cdc:nos2.source:opl.opl871:deck:pdu
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
cdc/nos2.source/opl.opl871/deck/pdu.txt · Last modified: (external edit)