Deck TDU

Library Member Format: MODIFY

Source

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