Deck PDU

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.pdu     +++|*NOSEQ
00002  M00S00002.pdu     +++|*WIDTH 132
00003  M00S00003.pdu     +++|.PROC,PDU*I,
00004  M00S00004.pdu     +++|I  [Panel definition file]=(*F),
00005  M00S00005.pdu     +++|L  [Listing file (OUTPUT)]=(*N=OUTPUT,*F),
00006  M00S00006.pdu     +++|C  [Capsule file (CAPSULE)]=(*N=CAPSULE,*F),

Line S00007 Modification History
`M01` (Removed by)	`pdu2`

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00007.pdu2    ---|LIB[Panel library file (PANELIB)]=(*N=PANELIB,*F).

Line S00001 Modification History
`M01` (Added by)	`pdu2`

Seq #  *Modification Id* Act 
----------------------------+
00008  M01S00001.pdu2    +++|LIB[Panel library file (PANELIB)]=(*N=PANELIB,*F),
00009  M01S00002.pdu2    +++|REC[Record name of panel definition file]=(*N=,*F,*),
00010  M01S00003.pdu2    +++|RW[Rewind panel definition file]=(*K=YES,YES,Y=YES,NO,N=NO,*N=YES).
00011  M00S00008.pdu     +++|.HELP
00012  M00S00009.pdu     +++|Compile a panel definition.
00013  M00S00010.pdu     +++|.HELP,I,NOLIST
00014  M00S00011.pdu     +++|

Line S00012 Modification History
`M01` (Removed by)	`pdu2`

Seq #  *Modification Id* Act 
----------------------------+
00015  M01S00012.pdu2    ---|   The panel definition file is a 6/12 ASCII text file which defines a
00016  M01S00013.pdu2    ---|single panel.  For example,

Line S00004 Modification History
`M01` (Added by)	`pdu2`

Seq #  *Modification Id* Act 
----------------------------+
00017  M01S00004.pdu2    +++|   The panel definition file is a 6/12 ASCII text file which defines one
00018  M01S00005.pdu2    +++|or more panels.  Multiple definitions are separated by an end of record.
00019  M01S00006.pdu2    +++|For example:
00020  M00S00014.pdu     +++|
00021  M00S00015.pdu     +++|      {"Panel with a single variable" var justone}
00022  M00S00016.pdu     +++|      This is it: __________
00023  M00S00017.pdu     +++|
00024  M00S00018.pdu     +++|   Default: None - you must specify a file name.
00025  M00S00019.pdu     +++|.HELP,L,NOLIST
00026  M00S00020.pdu     +++|
00027  M00S00021.pdu     +++|   The listing file is a copy of the panel definition file with error
00028  M00S00022.pdu     +++|messages, if any, interspersed.
00029  M00S00023.pdu     +++|
00030  M00S00024.pdu     +++|   Default:  OUTPUT
00031  M00S00025.pdu     +++|.HELP,C,NOLIST
00032  M00S00026.pdu     +++|
00033  M00S00027.pdu     +++|  The capsule file will contain the compiled panel in CAP format.
00034  M00S00028.pdu     +++|
00035  M00S00029.pdu     +++|  C=0 means check the panel for errors but don't generate a capsule.
00036  M00S00030.pdu     +++|
00037  M00S00031.pdu     +++|   Default: CAPSULE
00038  M00S00032.pdu     +++|.HELP,LIB,NOLIST
00039  M00S00033.pdu     +++|
00040  M00S00034.pdu     +++|   Specify name of library file to contain the panel capsule.
00041  M00S00035.pdu     +++|
00042  M00S00036.pdu     +++|   LIB=0 means don't LIBEDIT any library.
00043  M00S00037.pdu     +++|
00044  M00S00038.pdu     +++|   Default: PANELIB

Line S00007 Modification History
`M01` (Added by)	`pdu2`

Seq #  *Modification Id* Act 
----------------------------+
00045  M01S00007.pdu2    +++|.HELP,REC,NOLIST
00046  M01S00008.pdu2    +++|
00047  M01S00009.pdu2    +++|   Specify the selected record name to be processed within the panel
00048  M01S00010.pdu2    +++|   definition file.  If a value is specified, the record to be selected
00049  M01S00011.pdu2    +++|   must have as the first line of the record an identifier matching the
00050  M01S00012.pdu2    +++|   specified value.  For example:
00051  M01S00013.pdu2    +++|
00052  M01S00014.pdu2    +++|      ONEVAR
00053  M01S00015.pdu2    +++|      {"Panel with a single variable" var justone}
00054  M01S00016.pdu2    +++|      This is it:  __________
00055  M01S00017.pdu2    +++|      (EOR)
00056  M01S00018.pdu2    +++|      TWOVARS
00057  M01S00019.pdu2    +++|      {"Panel with two variables" var first var second}
00058  M01S00020.pdu2    +++|      These are the variables:  __________  __________
00059  M01S00021.pdu2    +++|
00060  M01S00022.pdu2    +++|   Specify * to process all records from the panel definition file.
00061  M01S00023.pdu2    +++|
00062  M01S00024.pdu2    +++|   Default:  Process one panel definition record regardless of name.
00063  M01S00025.pdu2    +++|.HELP,RW,NOLIST
00064  M01S00026.pdu2    +++|
00065  M01S00027.pdu2    +++|   Specify NO or N to prevent rewind of the panel definition file
00066  M01S00028.pdu2    +++|   and listing file before and after processing.
00067  M01S00029.pdu2    +++|   Specify YES or Y to rewind the panel definition file and listing
00068  M01S00030.pdu2    +++|   file before and after processing.
00069  M01S00031.pdu2    +++|
00070  M01S00032.pdu2    +++|   Default: The panel definition and listing files will be rewound.
00071  M00S00039.pdu     +++|.ENDHELP

Line S00040 Modification History
`M01` (Removed by)	`pdu2`

Seq #  *Modification Id* Act 
----------------------------+
00072  M01S00040.pdu2    ---| RETURN,ZZZZSF0,ZZZZSF1,C.

Line S00041 Modification History
`M01` (Removed by)	`pdu1`
`M02` (Removed by)	`pdu2`

Seq #  *Modification Id* Act 
----------------------------+
00073  M02S00041.pdu2    ---| PANEL,#I=I,#L=L,#C=ZZZZSF0.

Line S00001 Modification History
`M01` (Added by)	`pdu1`
`M02` (Removed by)	`pdu2`

Seq #  *Modification Id* Act 
----------------------------+
00074  M02S00001.pdu2    ---| $PANEL,#I=I,#L=L,#C=ZZZZSF0.

Line S00033 Modification History
`M01` (Added by)	`pdu2`

Seq #  *Modification Id* Act 
----------------------------+
00075  M01S00033.pdu2    +++| .IF($RW$.NE.$NO$,REWIND)
00076  M01S00034.pdu2    +++|   .IF($L$.NE.$0$.AND.$L$.NE.$OUTPUT$)REWIND(L)
00077  M01S00035.pdu2    +++|   REWIND(I)
00078  M01S00036.pdu2    +++| .ENDIF(REWIND)
00079  M01S00037.pdu2    +++| RENAME(ZZZZSF3=I)
00080  M01S00038.pdu2    +++| RETURN(ZZZZSF0,ZZZZSF1,ZZZZSF2,C)
00081  M01S00039.pdu2    +++| .IF($REC$.NE.$$.AND.$REC$.NE.$*$,MULTI)
00082  M01S00040.pdu2    +++|   GTR(ZZZZSF3,I)REC
00083  M01S00041.pdu2    +++| .ELSE(MULTI)
00084  M01S00042.pdu2    +++|   COPYBR(ZZZZSF3,I)
00085  M01S00043.pdu2    +++|   .IF($REC$.EQ.$*$,MULTI)
00086  M01S00044.pdu2    +++|     WHILE(.NOT.(FILE(ZZZZSF3,EOF).OR.FILE(ZZZZSF3,EOI)),NEXTREC)
00087  M01S00045.pdu2    +++| .ENDIF(MULTI)
00088  M01S00046.pdu2    +++| $PANEL(#I=I,#L=ZZZZSF2,#C=ZZZZSF0)
00089  M01S00047.pdu2    +++| .IF($L$.NE.$0$)COPYBR(ZZZZSF2,L)
00090  M00S00042.pdu     +++| .IF($C$.NE.$0$,LOAD)

Line S00043 Modification History
`M01` (Removed by)	`pdu2`

Seq #  *Modification Id* Act 
----------------------------+
00091  M01S00043.pdu2    ---| COMPASS,#I=ZZZZSF0,#L=0,B=ZZZZSF1,S=0.
00092  M01S00044.pdu2    ---| LOAD(ZZZZSF1)
00093  M01S00045.pdu2    ---| NOGO(C)
00094  M01S00046.pdu2    ---| .IF($LIB$.NE.$0$,STORE)
00095  M01S00047.pdu2    ---|   .IF(.NOT.FILE(LIB,AS),NOTAS)

Line S00048 Modification History
`M01` (Removed by)	`pdu1`
`M02` (Removed by)	`pdu2`

Seq #  *Modification Id* Act 
----------------------------+
00096  M02S00048.pdu2    ---|     ULIB,#C,C,LIB.

Line S00002 Modification History
`M01` (Added by)	`pdu1`
`M02` (Removed by)	`pdu2`

Seq #  *Modification Id* Act 
----------------------------+
00097  M02S00002.pdu2    ---|     $ULIB,#C,C,LIB.

Line S00049 Modification History
`M01` (Removed by)	`pdu2`

Seq #  *Modification Id* Act 
----------------------------+
00098  M01S00049.pdu2    ---|   .ELSE(NOTAS)

Line S00050 Modification History
`M01` (Removed by)	`pdu1`
`M02` (Removed by)	`pdu2`

Seq #  *Modification Id* Act 
----------------------------+
00099  M02S00050.pdu2    ---|     ULIB,#R,C,LIB.

Line S00003 Modification History
`M01` (Added by)	`pdu1`
`M02` (Removed by)	`pdu2`

Seq #  *Modification Id* Act 
----------------------------+
00100  M02S00003.pdu2    ---|     $ULIB,#R,C,LIB.

Line S00051 Modification History
`M01` (Removed by)	`pdu2`

Seq #  *Modification Id* Act 
----------------------------+
00101  M01S00051.pdu2    ---|   .ENDIF(NOTAS)
00102  M01S00052.pdu2    ---| .ENDIF(STORE)

Line S00048 Modification History
`M01` (Added by)	`pdu2`

Seq #  *Modification Id* Act 
----------------------------+
00103  M01S00048.pdu2    +++|   COMPASS,#I=ZZZZSF0,#L=0,B=ZZZZSF1,S=0.
00104  M01S00049.pdu2    +++|   LOAD(ZZZZSF1)
00105  M01S00050.pdu2    +++|   NOGO(C)
00106  M00S00053.pdu     +++| .ENDIF(LOAD)

Line S00054 Modification History
`M01` (Removed by)	`pdu2`

Seq #  *Modification Id* Act 
----------------------------+
00107  M01S00054.pdu2    ---| RETURN,ZZZZSF0,ZZZZSF1.

Line S00051 Modification History
`M01` (Added by)	`pdu2`

Seq #  *Modification Id* Act 
----------------------------+
00108  M01S00051.pdu2    +++| RETURN(ZZZZSF0,ZZZZSF1,ZZZZSF2)
00109  M01S00052.pdu2    +++| .IF($REC$.EQ.$*$,MULTI)
00110  M01S00053.pdu2    +++|   COPYBR(ZZZZSF3,I)
00111  M01S00054.pdu2    +++|   ENDW(NEXTREC)
00112  M01S00055.pdu2    +++| .ENDIF(MULTI)
00113  M01S00056.pdu2    +++| .IF($C$.NE.$0$.AND.$LIB$.NE.$0$,STORE)
00114  M01S00057.pdu2    +++|   .IF(.NOT.FILE(LIB,AS),NOTAS)
00115  M01S00058.pdu2    +++|     $ULIB(#C,C,LIB)
00116  M01S00059.pdu2    +++|   .ELSE(NOTAS)
00117  M01S00060.pdu2    +++|     $ULIB(#R,C,LIB)
00118  M01S00061.pdu2    +++|   .ENDIF(NOTAS)
00119  M01S00062.pdu2    +++| .ENDIF(STORE)
00120  M01S00063.pdu2    +++| RENAME(I=ZZZZSF3)
00121  M01S00064.pdu2    +++| .IF($RW$.NE.$NO$,REWIND)
00122  M01S00065.pdu2    +++|   .IF($L$.NE.$0$.AND.$L$.NE.$OUTPUT$)REWIND(L)
00123  M01S00066.pdu2    +++|   REWIND(I)
00124  M01S00067.pdu2    +++| .ENDIF(REWIND)
00125  M00S00055.pdu     +++| REVERT,NOLIST.
00126  M00S00056.pdu     +++| EXIT.

Line S00057 Modification History
`M01` (Removed by)	`pdu2`

Seq #  *Modification Id* Act 
----------------------------+
00127  M01S00057.pdu2    ---| RETURN,ZZZZSF0,ZZZZSF1.

Line S00068 Modification History
`M01` (Added by)	`pdu2`

Seq #  *Modification Id* Act 
----------------------------+
00128  M01S00068.pdu2    +++| RENAME(I=ZZZZSF3)
00129  M01S00069.pdu2    +++| .IF($RW$.NE.$NO$,REWIND)
00130  M01S00070.pdu2    +++|   .IF($L$.NE.$0$.AND.$L$.NE.$OUTPUT$)REWIND(L)
00131  M01S00071.pdu2    +++|   REWIND(I)
00132  M01S00072.pdu2    +++| .ENDIF(REWIND)
00133  M01S00073.pdu2    +++| .IF($L$.NE.$0$)COPYBR(ZZZZSF2,L)
00134  M01S00074.pdu2    +++| RETURN(ZZZZSF0,ZZZZSF1,ZZZZSF2)
00135  M00S00058.pdu     +++| REVERT,ABORT.
00136  M00S00059.pdu     +++|*WEOR