Seq # *Modification Id* Act
----------------------------+
01924 M00S01886.cldt +++| MX0 8
01925 M00S01887.cldt +++| LX4 59-17
01926 M00S01888.cldt +++| BX6 X0*X4
01927 M00S01889.cldt +++| ZR X6,PRS3 IF FILE FOUND
01928 M00S01890.cldt +++|
01929 M00S01891.cldt +++|* THE LID FILE WAS NOT FOUND AND IS NOT LOCAL TO THE JOB.
01930 M00S01892.cldt +++|* DETERMINE IF *CLDT* WAS INTENDED TO CREATE AN LDT. NO LDT
01931 M00S01893.cldt +++|* WILL BE CREATED AND NORMAL EXIT PROCESSING (ENDRUN) WILL
01932 M00S01894.cldt +++|* OCCUR IF ALL OF THE FOLLOWING CRITERIA ARE MET.
01933 M00S01895.cldt +++|* 1) JOB HAS *DEADSTART SEQUENCE* SUBSYSTEM ID,
| Line S01896 Modification History |
M01 (Removed by) | cldt3 |
Seq # *Modification Id* Act
----------------------------+
01934 M01S01896.cldt3 ---|* 2) NO LIDCMID FILE IS FOUND UNDER UN=SYSTEMX, AND
01935 M01S01897.cldt3 ---|* 3) NO SPACE WAS RESERVED FOR THE LDT (I.E., *LDT=0* OR
01936 M01S01898.cldt3 ---|* NO *LDT=* ENTRY DEFINED IN THE CMRDECK).
| Line S00001 Modification History |
M01 (Added by) | cldt3 |
Seq # *Modification Id* Act
----------------------------+
01937 M01S00001.cldt3 +++|* 2) NO LIDCMID FILE IS FOUND UNDER UN=SYSTEMX.
01938 M00S01899.cldt +++|
01939 M00S01900.cldt +++| SA1 DSSQ
01940 M00S01901.cldt +++| NZ X1,PRS6 IF NOT DEADSTART SEQUENCE
| Line S01902 Modification History |
M01 (Removed by) | cldt3 |
Seq # *Modification Id* Act
----------------------------+
01941 M01S01902.cldt3 ---| SA2 LIDL
01942 M01S01903.cldt3 ---| SB2 X2
01943 M01S01904.cldt3 ---| GT B2,B1,PRS6 IF SPACE RESERVED FOR LDT
01944 M00S01905.cldt +++| EQ CLD1 * CLDT - NO LID TABLE CREATED.*
01945 M00S01906.cldt +++|
01946 M00S01907.cldt +++| PRS3 SA2 LIDL
01947 M00S01908.cldt +++| SB2 X2
01948 M00S01909.cldt +++| LE B2,B1,PRS5 IF NO SPACE RESERVED FOR LDT
01949 M00S01910.cldt +++| REWIND I,R
01950 M00S01911.cldt +++| READ I,R INITIAL READ
01951 M00S01912.cldt +++| SA1 X2+1 GET *FIRST*
01952 M00S01913.cldt +++| SA3 RCRD
01953 M00S01914.cldt +++| SA1 X1 READ FIRST STATEMENT IN FILE
01954 M00S01915.cldt +++| MX0 42
01955 M00S01916.cldt +++| BX4 X1-X3
01956 M00S01917.cldt +++| BX6 X0*X4
01957 M00S01918.cldt +++| ZR X6,PRSX IF FIRST STATEMENT IS LIDCMID
01958 M00S01919.cldt +++| SA1 JORG
01959 M00S01920.cldt +++| NZ X1,PRSX IF NON-SYSTEM ORIGIN USER
01960 M00S01921.cldt +++| MESSAGE PRSA * FIRST STATEMENT NOT LIDCMXX.*
01961 M00S01922.cldt +++| EQ CLD3 * CLDT ABORT.*
01962 M00S01923.cldt +++|
01963 M00S01924.cldt +++| PRS4 MESSAGE PRSB * CLDT - COMMAND ERROR.*
01964 M00S01925.cldt +++| EQ CLD3 * CLDT ABORT.*
01965 M00S01926.cldt +++|
01966 M00S01927.cldt +++| PRS5 SA1 JORG
01967 M00S01928.cldt +++| NZ X1,PRSX IF NON-SYSTEM ORIGIN USER
01968 M00S01929.cldt +++| MESSAGE CLDD * NO LID TABLE CREATED.*
01969 M00S01930.cldt +++| MESSAGE PRSC * BUFFER TOO SMALL.*
01970 M00S01931.cldt +++| EQ CLD3 * CLDT ABORT.*
01971 M00S01932.cldt +++|
01972 M00S01933.cldt +++| PRS6 MESSAGE CLDD * NO LID TABLE CREATED.*
01973 M00S01934.cldt +++| MESSAGE PRSD * FILE XXXXXXX NOT FOUND.*
01974 M00S01935.cldt +++| EQ CLD3 * CLDT ABORT.*
01975 M00S01936.cldt +++|
01976 M00S01937.cldt +++|* PRESET ERROR MESSAGES.
01977 M00S01938.cldt +++|
01978 M00S01939.cldt +++| PRSA DATA C* CLDT - FIRST STATEMENT NOT LIDCMXX.*
01979 M00S01940.cldt +++| PRSB DATA C* CLDT - COMMAND ERROR.*
01980 M00S01941.cldt +++| PRSC DATA C* CLDT - BUFFER TOO SMALL.*
01981 M00S01942.cldt +++| PRSD DATA C* CLDT - FILE XXXXXXX NOT FOUND.*
01982 M00S01943.cldt +++| SPACE 4,10
01983 M00S01944.cldt +++|* PRESET STORAGE LOCATIONS.
01984 M00S01945.cldt +++|
01985 M00S01946.cldt +++| ERAD BSS 8 ERROR MESSAGE RETURN ADDRESS
01986 M00S01947.cldt +++| LDPT VFD 12/0,12/1,18/LIDP,18/LDPT+1
01987 M00S01948.cldt +++| CON -1
01988 M00S01949.cldt +++| MACH CON 0 MACHINE ID
01989 M00S01950.cldt +++| RCRD CON 0 FIRST RECORD ON FILE
01990 M00S01951.cldt +++| SPACE 4,10
01991 M00S01952.cldt +++|* ARGUMENT TABLE.
01992 M00S01953.cldt +++|
01993 M00S01954.cldt +++| TARG BSS 0
01994 M00S01955.cldt +++| I ARG I,I
01995 M00S01956.cldt +++| ARG
01996 M00S01957.cldt +++| CFS SPACE 4,30
01997 M00S01958.cldt +++|** CFS - CALCULATE FREE SPACE.
01998 M00S01959.cldt +++|*
01999 M00S01960.cldt +++|* *CFS* WILL CALCULATE THE FREE SPACE FOR THE LID TABLE. EACH
02000 M00S01961.cldt +++|* PID WILL HAVE AN EQUAL AMOUNT OF WORDS TO ALLOW NEW LID-S TO
02001 M00S01962.cldt +++|* BE ADDED. THE SPACE FOR EACH PID IS CALCULATED BASED ON
02002 M00S01963.cldt +++|* THE FOLLOWING FORMULA.
02003 M00S01964.cldt +++|*
02004 M00S01965.cldt +++|* FS = (LIDL-1 - NP*3 - SUM(I[NLID * 0.5]))/NP
02005 M00S01966.cldt +++|*
02006 M00S01967.cldt +++|* WHERE
02007 M00S01968.cldt +++|* LIDL = TOTAL LENGTH OF LID TABLE IN CM WORD *LIDP*.
02008 M00S01969.cldt +++|* NP = TOTAL NUMBER OF PID-S.
02009 M00S01970.cldt +++|* NLID = TOTAL NUMBER OF LID-S OF PID.
02010 M00S01971.cldt +++|* I[ ] = INTEGER OF THE ARGUMENT.
02011 M00S01972.cldt +++|* SUM( ) = SUMMATION OF( ).
02012 M00S01973.cldt +++|*
02013 M00S01974.cldt +++|* ENTRY = FILE LIDCM LOCAL.
02014 M00S01975.cldt +++|*
02015 M00S01976.cldt +++|* EXIT (FS) = FREE SPACE FOR EACH PID.
02016 M00S01977.cldt +++|* TO *CLD3* IF FATAL ERROR ENCOUNTERED.
02017 M00S01978.cldt +++|*
02018 M00S01979.cldt +++|* USES X - 0, 1, 2, 3, 4, 6, 7.
02019 M00S01980.cldt +++|* A - 1, 2, 3, 6, 7.
02020 M00S01981.cldt +++|* B - 2, 5.
02021 M00S01982.cldt +++|*
02022 M00S01983.cldt +++|* CALLS CDD, PTL, SNM.
02023 M00S01984.cldt +++|*
02024 M00S01985.cldt +++|* MACROS MESSAGE, READ, READC, REWIND.
02025 M00S01986.cldt +++|*
02026 M00S01987.cldt +++|* NOTE *CFS* WILL BE OVERLAID BY THE LDT.
02027 M00S01988.cldt +++|
02028 M00S01989.cldt +++|
02029 M00S01990.cldt +++| CFS SUBR ENTRY/EXIT
02030 M00S01991.cldt +++| SA1 JORG
02031 M00S01992.cldt +++| ZR X1,CFS0 IF SYSTEM ORIGIN JOB
02032 M00S01993.cldt +++| SX6 MXLDT+1 DEFAULT = MAXIMUM LDT SIZE FOR *VERIFY*
02033 M00S01994.cldt +++| SA6 LIDL
02034 M00S01995.cldt +++| CFS0 REWIND I
02035 M00S01996.cldt +++| READ X2 INITIATE READ
02036 M00S01997.cldt +++| READC X2,WBUF,WBUFL SKIP FIRST LINE
02037 M00S01998.cldt +++| CFS1 RJ PTL PROCESS TEXT LINE
02038 M00S01999.cldt +++| SA2 CFSK
02039 M00S02000.cldt +++| NZ X2,CFS8 IF AN UNRECOGNIZED DIRECTIVE ENCOUNTERED
02040 M00S02001.cldt +++| SA2 CFSL
02041 M00S02002.cldt +++| ZR X2,CFS2 IF NOT INCORRECT CHARACTER
02042 M00S02003.cldt +++| BX6 X6-X6
02043 M00S02004.cldt +++| SA6 CFSL CLEAR ERROR FLAG
02044 M00S02005.cldt +++| EQ CFS1 READ NEXT STATEMENT
02045 M00S02006.cldt +++|
02046 M00S02007.cldt +++| CFS2 NZ X1,CFS4 IF EOR/EOF
02047 M00S02008.cldt +++| SA1 UBUF
02048 M00S02009.cldt +++| SA2 CLTH+1 CHECK IF *NPID*
02049 M00S02010.cldt +++| MX0 42
02050 M00S02011.cldt +++| BX3 X1-X2
02051 M00S02012.cldt +++| BX3 X0*X3
02052 M00S02013.cldt +++| ZR X3,CFS3 IF *NPID*
02053 M00S02014.cldt +++|
02054 M00S02015.cldt +++|* INCREMENT NUMBER OF LID-S BY 1, AND PROCESS NEW LID.
02055 M00S02016.cldt +++|
02056 M00S02017.cldt +++| SA1 CFSA
02057 M00S02018.cldt +++| SA2 A1+B1
02058 M00S02019.cldt +++| ERRNZ CFSB-CFSA-1 CFSA AND CFSB MUST BE CONTIGUOUS
02059 M00S02020.cldt +++| SX6 X1+B1
02060 M00S02021.cldt +++| SX7 X2+B1
02061 M00S02022.cldt +++| SA6 A1
02062 M00S02023.cldt +++| SA7 A2+
02063 M00S02024.cldt +++| EQ CFS1 READ NEXT STATEMENT
02064 M00S02025.cldt +++|
02065 M00S02026.cldt +++|* PROCESS NEW PID.
02066 M00S02027.cldt +++|
02067 M00S02028.cldt +++| CFS3 SA1 CFSC UPDATE NUMBER OF PID-S
02068 M00S02029.cldt +++| SA2 A1-B1 GET NUMBER OF LID OF PREVIOUS LID
02069 M00S02030.cldt +++| ERRNZ CFSC-CFSB-1 CFSC AND CFSB MUST BE CONTIGUOUS
02070 M00S02031.cldt +++| SX6 X1+B1
02071 M00S02032.cldt +++| SA6 A1+
02072 M00S02033.cldt +++| SX3 X6-MXPID-1 CHECK MAXIMUM NUMBER OF PID-S
02073 M00S02034.cldt +++| PL X3,CFS7 IF MAXIMUM NUMBER OF PID-S EXCEEDED
02074 M00S02035.cldt +++| SA3 CFSD
02075 M00S02036.cldt +++| IX7 X2+X3
02076 M00S02037.cldt +++| SA7 A3+ UPDATE NUMBER OF WORDS NEEDED FOR LID
02077 M00S02038.cldt +++| BX6 X6-X6
02078 M00S02039.cldt +++| SA6 CFSB CLEAR LID COUNT
02079 M00S02040.cldt +++| EQ CFS1 READ NEXT STATEMENT
02080 M00S02041.cldt +++|
02081 M00S02042.cldt +++|* END OF FILE.
02082 M00S02043.cldt +++|
02083 M00S02044.cldt +++| CFS4 SA2 HOST
02084 M00S02045.cldt +++| NZ X2,CFS5 IF HOST SPECIFIED
02085 M00S02046.cldt +++| SA2 CFSC
02086 M00S02047.cldt +++| SX2 X2+B1 ADD 1 FOR HOST PID
02087 M00S02048.cldt +++| BX6 X2
02088 M00S02049.cldt +++| SA6 CFSC
02089 M00S02050.cldt +++| SA2 CFSA
02090 M00S02051.cldt +++| SX2 X2+B1 ADD 1 FOR HOST LID
02091 M00S02052.cldt +++| BX6 X2
02092 M00S02053.cldt +++| SA6 CFSA
02093 M00S02054.cldt +++| CFS5 BX6 X6-X6
02094 M00S02055.cldt +++| SA6 HOST CLEAR HOST PID SPECIFIED
02095 M00S02056.cldt +++| SA2 CFSB GET NUMBER OF LID-S OF LAST PID
02096 M00S02057.cldt +++| SA3 CFSD
02097 M00S02058.cldt +++| IX2 X2+X3
02098 M00S02059.cldt +++|
02099 M00S02060.cldt +++|* CALCULATE FREE SPACE.
02100 M00S02061.cldt +++|
02101 M00S02062.cldt +++| SA1 CFSC NUMBER OF PID-S
02102 M00S02063.cldt +++| BX3 X1 MULTIPLIED BY 3
02103 M00S02064.cldt +++| LX3 1
02104 M00S02065.cldt +++| IX4 X3+X1 NUMBER OF WORDS FOR PID
02105 M00S02066.cldt +++| SA3 LIDL GET TOTAL LENGTH
| Line S00001 Modification History |
M01 (Added by) | cldt2 |
Seq # *Modification Id* Act
----------------------------+
02106 M01S00001.cldt2 +++| SX3 X3-1 SET LENGTH FOR CALCULATING FREE SPACE
02107 M00S02067.cldt +++| IX6 X2+X4
02108 M00S02068.cldt +++| SA6 CFSE MINIMUM WORDS FOR LDT
02109 M00S02069.cldt +++| IX7 X3-X6 TOTAL FREE SPACE
02110 M00S02070.cldt +++| NG X7,CFS6 IF NOT ENOUGH SPACE
02111 M00S02071.cldt +++| BX3 X7 SAVE TOTAL FREE SPACE
02112 M00S02072.cldt +++| BX2 X1 SAVE NUMBER OF PID-S
02113 M00S02073.cldt +++| IX6 X7/X1 FREE SPACE PER PID
02114 M00S02074.cldt +++| IX7 X2*X6 CALCULATE REMAINDER
02115 M00S02075.cldt +++| IX7 X3-X7
02116 M00S02076.cldt +++| SA6 FS
02117 M00S02077.cldt +++| SA7 FSR SAVE REMAINDER
02118 M00S02078.cldt +++| SX6 B1
02119 M00S02079.cldt +++| SA6 PTLF *PTL* CALLED ONCE
02120 M00S02080.cldt +++| EQ CFSX RETURN
02121 M00S02081.cldt +++|
02122 M00S02082.cldt +++| CFS6 MESSAGE CFSF *UNABLE TO GENERATE LID TABLE *
02123 M00S02083.cldt +++| SA1 LIDL
| Line S00002 Modification History |
M01 (Added by) | cldt2 |
Seq # *Modification Id* Act
----------------------------+
02124 M01S00002.cldt2 +++| SX1 X1-1
02125 M00S02084.cldt +++| RJ CDD CONVERT TO DISPLAY
02126 M00S02085.cldt +++| MX0 1
02127 M00S02086.cldt +++| SB2 B2-B1
02128 M00S02087.cldt +++| AX0 X0,B2
02129 M00S02088.cldt +++| BX1 X0*X4
02130 M00S02089.cldt +++| SB2 1RX REPLACE CHARACTER
02131 M00S02090.cldt +++| SB5 CFSG FWA OF MESSAGE
02132 M00S02091.cldt +++| RJ SNM SET NUMBER INTO CHARACTER
02133 M00S02092.cldt +++| MESSAGE CFSG *NUMBER OF WORDS AVAILABLE FOR LID - XXX.*
02134 M00S02093.cldt +++| SA1 CFSE NUMBER OF WORDS NEEDED
02135 M00S02094.cldt +++| RJ CDD CONVERT TO DISPLAY
02136 M00S02095.cldt +++| MX0 1 ZERO OUT BLANKS
02137 M00S02096.cldt +++| SB2 B2-B1
02138 M00S02097.cldt +++| AX0 X0,B2
02139 M00S02098.cldt +++| BX1 X0*X4
02140 M00S02099.cldt +++| SB2 1RX
02141 M00S02100.cldt +++| SB5 CFSH FWA OF MESSAGE
02142 M00S02101.cldt +++| RJ SNM
02143 M00S02102.cldt +++| MESSAGE CFSH * NUMBER OF WORDS NEEDED FOR LID - XXX.*
02144 M00S02103.cldt +++| EQ CLD3 * CLDT ABORT.*
02145 M00S02104.cldt +++|
02146 M00S02105.cldt +++|* MAXIMUM NUMBER OF PID-S EXCEEDED.
02147 M00S02106.cldt +++|
02148 M00S02107.cldt +++| CFS7 SX1 MXPID
02149 M00S02108.cldt +++| RJ CDD CONVERT MAXIMUM NUMBER OF PID-S TO DISPLAY
02150 M00S02109.cldt +++| MX0 1 ZERO OUT BLANKS
02151 M00S02110.cldt +++| SB2 B2-B1
02152 M00S02111.cldt +++| AX0 X0,B2
02153 M00S02112.cldt +++| BX1 X0*X4
| Line S02113 Modification History |
M01 (Removed by) | ns2250 |
Seq # *Modification Id* Act
----------------------------+
02154 M01S02113.ns2250 ---| SB2 1RX
| Line S00019 Modification History |
M01 (Added by) | ns2250 |
Seq # *Modification Id* Act
----------------------------+
02155 M01S00019.ns2250 +++| SB2 1R$
02156 M00S02114.cldt +++| SB5 CFSI FWA OF MESSAGE
02157 M00S02115.cldt +++| RJ SNM
02158 M00S02116.cldt +++| MESSAGE CFSI * EXCEEDED MAXIMUM NUMBER OF PID-S - XXX.*
02159 M00S02117.cldt +++| EQ CLD3 * CLDT ABORT.*
02160 M00S02118.cldt +++|
02161 M00S02119.cldt +++|* UNRECOGNIZED DIRECTIVE.
02162 M00S02120.cldt +++|
02163 M00S02121.cldt +++| CFS8 BX6 X6-X6
02164 M00S02122.cldt +++| SA6 CFSK CLEAR *CFS* FATAL ERROR FLAG
02165 M00S02123.cldt +++| ZR X1,CFS9 IF NOT EOR/EOF
02166 M00S02124.cldt +++| SX6 B1+
02167 M00S02125.cldt +++| SA6 CFSK SET *CFS* FATAL ERROR FLAG TO SHOW EOR/EOF
02168 M00S02126.cldt +++| CFS9 MESSAGE CFSJ * CLDT - UNRECOGNIZABLE DIRECTIVE.*
02169 M00S02127.cldt +++| MESSAGE CPEG *ERROR IN THE FOLLOWING STATEMENT.*
02170 M00S02128.cldt +++| MESSAGE WBUF
02171 M00S02129.cldt +++| SA2 CFSK
02172 M00S02130.cldt +++| NZ X2,CFS4 IF EOR/EOF
02173 M00S02131.cldt +++| BX6 X6-X6
02174 M00S02132.cldt +++| SA6 CFSK CLEAR *CFS* FATAL ERROR FLAG
02175 M00S02133.cldt +++| EQ CFS1 READ NEXT STATEMENT
02176 M00S02134.cldt +++|
02177 M00S02135.cldt +++|
02178 M00S02136.cldt +++| CFSA BSSZ 1 COUNTER FOR TOTAL NUMBER OF LID-S
02179 M00S02137.cldt +++| CFSB BSSZ 1 COUNTER FOR LID-S OF PID
02180 M00S02138.cldt +++| CFSC BSSZ 1 COUNTER FOR TOTAL NUMBER OF PID-S
02181 M00S02139.cldt +++| CFSD BSSZ 1 NUMBER OF WORDS FOR LID-S
02182 M00S02140.cldt +++| CFSE BSSZ 1 NUMBER OF WORDS NEEDED FOR LIDT
02183 M00S02141.cldt +++| CFSF DATA C* CLDT - UNABLE TO GENERATE LID TABLE.*
02184 M00S02142.cldt +++| CFSG DATA C* NUMBER OF WORDS AVAILABLE FOR LID - XXX.*
02185 M00S02143.cldt +++| CFSH DATA C* NUMBER OF WORDS NEEDED FOR LID - XXX.*
| Line S02144 Modification History |
M01 (Removed by) | ns2250 |
Seq # *Modification Id* Act
----------------------------+
02186 M01S02144.ns2250 ---| CFSI DATA C* CLDT - EXCEEDED MAXIMUM NUMBER OF PID-S - XXX.*
| Line S00020 Modification History |
M01 (Added by) | ns2250 |
Seq # *Modification Id* Act
----------------------------+
02187 M01S00020.ns2250 +++| CFSI DATA C* CLDT - EXCEEDED MAXIMUM NUMBER OF PID-S - $$$.*
02188 M00S02145.cldt +++| CFSJ DATA C* CLDT - UNRECOGNIZABLE DIRECTIVE.*
02189 M00S02146.cldt +++| CFSK CON 0 FATAL ERROR FLAG UNRECOGNIZED DIRECTIVE
02190 M00S02147.cldt +++| CFSL CON 0 FATAL ERROR FLAG INCORRECT CHARACTER
02191 M00S02148.cldt +++| SPACE 4
02192 M00S02149.cldt +++|* PRESET COMMON DECKS.
02193 M00S02150.cldt +++|
02194 M00S02151.cldt +++|*CALL COMCARG
02195 M00S02152.cldt +++|*CALL COMCCDD
02196 M00S02153.cldt +++|*CALL COMCLFM
02197 M00S02154.cldt +++|*CALL COMCSNM
02198 M00S02155.cldt +++| SPACE 4,10
02199 M00S02156.cldt +++|* RESERVE SUFFICIENT SPACE TO HOLD THE MAXIMUM SIZE OF THE LDT.
02200 M00S02157.cldt +++|
02201 M00S02158.cldt +++| ERRNZ PRS-LIDT-1 WORDS MUST BE CONTIGUOUS
02202 M00S02159.cldt +++| LENGTH EQU *-PRS LENGTH OF OVERLAYABLE ROUTINES
02203 M00S02160.cldt +++| MAXLTH EQU MXLDT-LENGTH MAX LDT SIZE - OVERLAYABLE LENGTH
02204 M00S02161.cldt +++| BSSZ MAXLTH ADDITIONAL CM WORDS REQUIRED TO HOLD LDT
02205 M00S02162.cldt +++| RFL= EQU *
02206 M00S02163.cldt +++| END CLDT