Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.tdu +++|*NOSEQ
00002 M00S00002.tdu +++|*WIDTH 132
00003 M00S00003.tdu +++|.PROC,TDU*I"Terminal Definition Utility",
00004 M00S00004.tdu +++| I'Terminal definition file (TDUIN)'=(*F,*N=TDUIN),
00005 M00S00005.tdu +++| L'Error listing file (OUTPUT)'=(*F,*N=OUTPUT),
| Line S00006 Modification History |
M01 (Removed by) | tdu3 |
Seq # *Modification Id* Act
----------------------------+
00006 M01S00006.tdu3 ---| LIB'Library file (TERMLIB)'=(*F,*N=TERMLIB).
| Line S00001 Modification History |
M01 (Added by) | tdu3 |
Seq # *Modification Id* Act
----------------------------+
00007 M01S00001.tdu3 +++| LIB'Library file (TERMLIB)'=(*F,*N=TERMLIB),
00008 M01S00002.tdu3 +++| REC'Record name to process'=(*S6/AD,*,*N=),
00009 M01S00003.tdu3 +++| RW'Rewind definition file?'=(*K=YES,YES,Y,NO,N=NO,*N=YES).
00010 M00S00007.tdu +++|.HELP.
00011 M00S00008.tdu +++|TDU - Terminal Definition Utility.
00012 M00S00009.tdu +++|
00013 M00S00010.tdu +++|The TDU procedure compiles into capsule format a user-
00014 M00S00011.tdu +++|defined terminal definition file, inserting the new
00015 M00S00012.tdu +++|capsule into a local user library.
00016 M00S00013.tdu +++|.HELP,I.
00017 M00S00014.tdu +++|The name of the user-defined terminal definition file
00018 M00S00015.tdu +++|( default is TDUIN ).
00019 M00S00016.tdu +++|.HELP,L.
00020 M00S00017.tdu +++|The name of the listing file ( default is list ).
00021 M00S00018.tdu +++|.HELP,LIB.
00022 M00S00019.tdu +++|The name of the library ( default is TERMLIB ).
| Line S00004 Modification History |
M01 (Added by) | tdu3 |
Seq # *Modification Id* Act
----------------------------+
00023 M01S00004.tdu3 +++|.HELP,REC.
00024 M01S00005.tdu3 +++|The name of the record to process from the terminal
00025 M01S00006.tdu3 +++|definition file. If * is specified, all records
00026 M01S00007.tdu3 +++|will be processed (default: process one terminal
00027 M01S00008.tdu3 +++|definition record regardless of the record name ).
00028 M01S00009.tdu3 +++|.HELP,RW.
00029 M01S00010.tdu3 +++|NO to prevent terminal definition and listing files
00030 M01S00011.tdu3 +++|from being rewound before and after processing.
00031 M01S00012.tdu3 +++|YES to have both files rewound before and after
00032 M01S00013.tdu3 +++|processing ( default is YES ).
00033 M00S00020.tdu +++|.ENDHELP.
00034 M00S00021.tdu +++|.IFE(.NOT.FILE(I,AS),NOINPUT)
| Line S00022 Modification History |
M01 (Removed by) | tdu1 |
Seq # *Modification Id* Act
----------------------------+
00035 M01S00022.tdu1 ---|REVERT. NO INPUT FILE I.
| Line S00001 Modification History |
M01 (Added by) | tdu1 |
M02 (Removed by) | tdu3 |
Seq # *Modification Id* Act
----------------------------+
00036 M02S00001.tdu3 ---|REVERT,ABORT. NO INPUT FILE I.
| Line S00014 Modification History |
M01 (Added by) | tdu3 |
Seq # *Modification Id* Act
----------------------------+
00037 M01S00014.tdu3 +++| REVERT,ABORT. NO INPUT FILE I.
00038 M00S00023.tdu +++|.ENDIF(NOINPUT)
| Line S00024 Modification History |
M01 (Removed by) | tdu3 |
Seq # *Modification Id* Act
----------------------------+
00039 M01S00024.tdu3 ---|REWIND,ZZZZZTL,ZZZZZTB,ZZZZZTA,LIB.
00040 M01S00025.tdu3 ---|RETURN,ZZZZZTC.
| Line S00015 Modification History |
M01 (Added by) | tdu3 |
Seq # *Modification Id* Act
----------------------------+
00041 M01S00015.tdu3 +++|.IF($RW$.NE.$NO$,REWIND)
00042 M01S00016.tdu3 +++| .IF($L$.NE.$OUTPUT$.AND.$L$.NE.$0$)REWIND,L.
00043 M01S00017.tdu3 +++| REWIND,I.
00044 M01S00018.tdu3 +++|.ENDIF(REWIND)
00045 M01S00019.tdu3 +++|RENAME,ZZZZZTI=I.
00046 M01S00020.tdu3 +++|REWIND,ZZZZZTA,LIB.
| Line S00001 Modification History |
M01 (Added by) | tdu2 |
Seq # *Modification Id* Act
----------------------------+
00047 M01S00001.tdu2 +++|.IF(CSET.EQ.NORMAL)CSET,ASCII.
| Line S00026 Modification History |
M01 (Removed by) | tdu3 |
Seq # *Modification Id* Act
----------------------------+
00048 M01S00026.tdu3 ---|TDUEX,I,ZZZZZTC,L.
| Line S00002 Modification History |
M01 (Added by) | tdu2 |
M02 (Removed by) | tdu3 |
Seq # *Modification Id* Act
----------------------------+
00049 M02S00002.tdu3 ---|.IF(CSET.EQ.NORMAL)CSET,NORMAL.
| Line S00027 Modification History |
M01 (Removed by) | tdu3 |
Seq # *Modification Id* Act
----------------------------+
00050 M01S00027.tdu3 ---|IF(.NOT.FILE(ZZZZZTC,AS),TDUERRS)
| Line S00028 Modification History |
M01 (Removed by) | tdu1 |
M02 (Removed by) | tdu3 |
Seq # *Modification Id* Act
----------------------------+
00051 M02S00028.tdu3 ---|REVERT. COMPILATION FAILED.
| Line S00002 Modification History |
M01 (Added by) | tdu1 |
M02 (Removed by) | tdu3 |
Seq # *Modification Id* Act
----------------------------+
00052 M02S00002.tdu3 ---|REVERT,ABORT. COMPILATION FAILED.
| Line S00029 Modification History |
M01 (Removed by) | tdu3 |
Seq # *Modification Id* Act
----------------------------+
00053 M01S00029.tdu3 ---|ENDIF(TDUERRS)
| Line S00021 Modification History |
M01 (Added by) | tdu3 |
Seq # *Modification Id* Act
----------------------------+
00054 M01S00021.tdu3 +++|.IF($REC$.NE.$$.AND.$REC$.NE.$*$,MULTI)
00055 M01S00022.tdu3 +++| GTR,ZZZZZTI,I.REC
00056 M01S00023.tdu3 +++|.ELSE(MULTI)
00057 M01S00024.tdu3 +++| COPYBR,ZZZZZTI,I.
00058 M01S00025.tdu3 +++| .IF($REC$.EQ.$*$,MULTI)
00059 M01S00026.tdu3 +++| WHILE(.NOT.(FILE(ZZZZZTI,EOF).OR.FILE(ZZZZZTI,EOI)),NEXTREC)
00060 M01S00027.tdu3 +++|.ENDIF(MULTI)
00061 M01S00028.tdu3 +++|RETURN,ZZZZZTB,ZZZZZTC,ZZZZZTL.
00062 M01S00029.tdu3 +++|TDUEX,I,ZZZZZTC,ZZZZZTL.
00063 M01S00030.tdu3 +++|IF(FILE(ZZZZZTC,AS),TDUERR)
00064 M01S00031.tdu3 +++| .IF($L$.NE.$0$)IF(FILE(ZZZZZTL,AS))COPYBR,ZZZZZTL,L.
00065 M01S00032.tdu3 +++| COMPASS,#I=ZZZZZTC,#L=0,B=ZZZZZTB,A.
00066 M01S00033.tdu3 +++| LDSET,ERR=ALL.
00067 M01S00034.tdu3 +++| LOAD,ZZZZZTB.
00068 M01S00035.tdu3 +++| NOGO,ZZZZZTA.
00069 M01S00036.tdu3 +++| .IF($REC$.EQ.$*$,MULTI)
00070 M01S00037.tdu3 +++| COPYBR,ZZZZZTI,I.
00071 M01S00038.tdu3 +++| ENDW(NEXTREC)
00072 M01S00039.tdu3 +++| .ENDIF(MULTI)
00073 M01S00040.tdu3 +++| .IF(FILE(LIB,AS),REPLACE)
00074 M01S00041.tdu3 +++| ULIB,R,ZZZZZTA,LIB.
00075 M01S00042.tdu3 +++| .ELSE(REPLACE)
00076 M01S00043.tdu3 +++| ULIB,C,ZZZZZTA,LIB.
00077 M01S00044.tdu3 +++| .ENDIF(REPLACE)
00078 M01S00045.tdu3 +++| REWIND,LIB.
00079 M01S00046.tdu3 +++| RENAME,I=ZZZZZTI.
00080 M01S00047.tdu3 +++| .IF($RW$.NE.$NO$,REWIND)
00081 M01S00048.tdu3 +++| REWIND,I.
00082 M01S00049.tdu3 +++| .IF($L$.NE.$OUTPUT$.AND.$L$.NE.$0$)REWIND,L.
00083 M01S00050.tdu3 +++| .ENDIF(REWIND)
00084 M01S00051.tdu3 +++| .IF(CSET.EQ.NORMAL)CSET,NORMAL.
00085 M01S00052.tdu3 +++| RETURN,ZZZZZTA,ZZZZZTB,ZZZZZTC,ZZZZZTL.
00086 M01S00053.tdu3 +++| REVERT. I --> LIB.
00087 M01S00054.tdu3 +++| EXIT.
00088 M01S00055.tdu3 +++|ENDIF(TDUERR)
00089 M01S00056.tdu3 +++|RENAME,I=ZZZZZTI.
00090 M01S00057.tdu3 +++|.IF($L$.NE.$0$)IF(FILE(ZZZZZTL,AS))COPYBR,ZZZZZTL,L.
| Line S00030 Modification History |
M01 (Removed by) | tdu1 |
Seq # *Modification Id* Act
----------------------------+
00091 M01S00030.tdu1 ---|COMPASS,#I=ZZZZZTC,#L=ZZZZZTL,B=ZZZZZTB.
| Line S00003 Modification History |
M01 (Added by) | tdu1 |
M02 (Removed by) | tdu3 |
Seq # *Modification Id* Act
----------------------------+
00092 M02S00003.tdu3 ---|COMPASS,#I=ZZZZZTC,#L=0,B=ZZZZZTB,A.
00093 M02S00004.tdu3 ---|LDSET,ERR=ALL.
| Line S00031 Modification History |
M01 (Removed by) | tdu3 |
Seq # *Modification Id* Act
----------------------------+
00094 M01S00031.tdu3 ---|LOAD,ZZZZZTB.
00095 M01S00032.tdu3 ---|NOGO,ZZZZZTA.
00096 M01S00033.tdu3 ---|.IF(FILE(LIB,AS),REPLACE)
00097 M01S00034.tdu3 ---| ULIB,R,ZZZZZTA,LIB.
00098 M01S00035.tdu3 ---|.ELSE(REPLACE)
00099 M01S00036.tdu3 ---| ULIB,C,ZZZZZTA,LIB.
00100 M01S00037.tdu3 ---|.ENDIF(REPLACE)
00101 M01S00038.tdu3 ---|RETURN,ZZZZZTB,ZZZZZTA,ZZZZZTC.
00102 M01S00039.tdu3 ---|REWIND,LIB.
| Line S00058 Modification History |
M01 (Added by) | tdu3 |
Seq # *Modification Id* Act
----------------------------+
00103 M01S00058.tdu3 +++|.IF($RW$.NE.$NO$,REWIND)
00104 M01S00059.tdu3 +++| REWIND,I.
00105 M01S00060.tdu3 +++| .IF($L$.NE.$OUTPUT$.AND.$L$.NE.$0$)REWIND,L.
00106 M01S00061.tdu3 +++|.ENDIF(REWIND)
00107 M01S00062.tdu3 +++|.IF(CSET.EQ.NORMAL)CSET,NORMAL.
00108 M01S00063.tdu3 +++|RETURN,ZZZZZTA,ZZZZZTB,ZZZZZTC,ZZZZZTL.
| Line S00040 Modification History |
M01 (Removed by) | tdu3 |
Seq # *Modification Id* Act
----------------------------+
00109 M01S00040.tdu3 ---|REVERT. I --> LIB.
00110 M01S00041.tdu3 ---|EXIT.
| Line S00042 Modification History |
M01 (Removed by) | tdu1 |
Seq # *Modification Id* Act
----------------------------+
00111 M01S00042.tdu1 ---|REVERT. COMPILATION FAILED.
| Line S00005 Modification History |
M01 (Added by) | tdu1 |
Seq # *Modification Id* Act
----------------------------+
00112 M01S00005.tdu1 +++|REVERT,ABORT. COMPILATION FAILED.
00113 M00S00043.tdu +++|*WEOR