cdc:nos2.source:opl.opl871:deck:tmsproc
Deck TMSPROC
1 Modification
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.tmsproc +++|*NOSEQ 00002 M01S00002.tmsproc +++|.PROC,RGENTMS,FM=. 00003 M01S00003.tmsproc +++|.IFE,OT.NE.SYO,OT1.
Line S00004 Modification History | |
---|---|
M01 (Added by) | tmsproc |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 00004 M02S00004.nos252 ---|$REVERT,ABORT. INVALID ACCESS. 00005 M01S00001.nos252 +++|$REVERT,ABORT. INCORRECT ACCESS. 00006 M01S00005.tmsproc +++|.ENDIF,OT1. 00007 M01S00006.tmsproc +++|.IFE,$FM$.EQ.$$,FM1. 00008 M01S00007.tmsproc +++|$REVERT,ABORT. NO FAMILY NAME. 00009 M01S00008.tmsproc +++|.ENDIF,FM1. 00010 M01S00009.tmsproc +++|**************************************** 00011 M01S00010.tmsproc +++|* 00012 M01S00011.tmsproc +++|* RGENTMS 00013 M01S00012.tmsproc +++|* 00014 M01S00013.tmsproc +++|* THIS PROCEDURE ROUTES A SYSTEM ORIGIN 00015 M01S00014.tmsproc +++|* JOB THAT GENERATES THE *TMS* BILLING 00016 M01S00015.tmsproc +++|* FILE *TFDUMP* ON USER INDEX 377777 OF 00017 M01S00016.tmsproc +++|* THE SPECIFIED FAMILY. THIS PROCEDURE 00018 M01S00017.tmsproc +++|* MUST BE CALLED FROM A SYSTEM ORIGIN 00019 M01S00018.tmsproc +++|* JOB. 00020 M01S00019.tmsproc +++|* 00021 M01S00020.tmsproc +++|* FORMAT OF CALL - 00022 M01S00021.tmsproc +++|* 00023 M01S00022.tmsproc +++|* RGENTMS,FAMILY. 00024 M01S00023.tmsproc +++|* 00025 M01S00024.tmsproc +++|* FAMILY NAME OF FAMILY TO 00026 M01S00025.tmsproc +++|* GENERATE *TMS* BILLING 00027 M01S00026.tmsproc +++|* FILE ON. MANDATORY 00028 M01S00027.tmsproc +++|* ENTRY. 00029 M01S00028.tmsproc +++|* 00030 M01S00029.tmsproc +++|* THE FOLLOWING LOCAL FILE NAMES ARE USED BY 00031 M01S00030.tmsproc +++|* *RGENTMS* - 00032 M01S00031.tmsproc +++|* 00033 M01S00032.tmsproc +++|* ZZZJOB 00034 M01S00033.tmsproc +++|* 00035 M01S00034.tmsproc +++|* THE FOLLOWING MESSAGE MAY BE FLASHED BY 00036 M01S00035.tmsproc +++|* *RGENTMS* IF UNSUCCESSFUL - 00037 M01S00036.tmsproc +++|* 00038 M01S00037.tmsproc +++|* RGENTMS ABORTED. 00039 M01S00038.tmsproc +++|* 00040 M01S00039.tmsproc +++|**************************************** 00041 M01S00040.tmsproc +++|$ROUTE,ZZZJOB,OT=SYOT,DC=IN. 00042 M01S00041.tmsproc +++|$REVERT. RGENTMS COMPLETE. 00043 M01S00042.tmsproc +++|$EXIT. 00044 M01S00043.tmsproc +++|$OPMSG. RGENTMS ABORTED, SEE DAYFILE. 00045 M01S00044.tmsproc +++|$REVERT,ABORT. RGENTMS ABORTED. 00046 M01S00045.tmsproc +++|$EXIT. 00047 M01S00046.tmsproc +++|$REVERT,ABORT. RGENTMS ABORTED. 00048 M01S00047.tmsproc +++|.DATA,ZZZJOB. 00049 M01S00048.tmsproc +++|GENTMS(T7777) GENERATE BILLING FOR *TMS* TAPES. 00050 M01S00049.tmsproc +++|$ASSIGN,MS,OUTPUT. 00051 M01S00050.tmsproc +++|$NOTE(OUTPUT/NR)/1 *** GENTMS - GENERATE TMS BILLING INFORMATION. *** 00052 M01S00051.tmsproc +++|$SUI(377777) 00053 M01S00052.tmsproc +++|$FAMILY,FM. 00054 M01S00053.tmsproc +++|* 00055 M01S00054.tmsproc +++|$WHILE,R1 .EQ. 0,LOOP. 00056 M01S00055.tmsproc +++|$PURGE(TFDUMP/NA) 00057 M01S00056.tmsproc +++|$DEFINE(TFDUMP/PW=CHANGE,NA) 00058 M01S00057.tmsproc +++|* 00059 M01S00058.tmsproc +++|$IF,FILE(TFDUMP,PM),GENTMS1. IF TFDUMP WAS DEFINED 00060 M01S00059.tmsproc +++|$SET(R1=1) END LOOPING 00061 M01S00060.tmsproc +++|$ELSE(GENTMS1) 00062 M01S00061.tmsproc +++|*** INSTRUCTIONS. 00063 M01S00062.tmsproc +++|* 00064 M01S00063.tmsproc +++|* THERE WAS A PROBLEM DEFINING AN EMPTY 00065 M01S00064.tmsproc +++|* PERMANENT FILE (TFDUMP) ON WHICH TO 00066 M01S00065.tmsproc +++|* WRITE BILLING INFORMATION. 00067 M01S00066.tmsproc +++|* TYPE GO,JSN TO RETRY. 00068 M01S00067.tmsproc +++|* TYPE DROP,JSN TO ABANDON GENTMS RUN. 00069 M01S00068.tmsproc +++|* 00070 M01S00069.tmsproc +++|$OPMSG. GENTMS ABORTED. GO,JSN TO RETRY. 00071 M01S00070.tmsproc +++|$SKIP,RETRY. 00072 M01S00071.tmsproc +++|$EXIT. OPERATOR DROPPED. 00073 M01S00072.tmsproc +++|$EXIT. ABANDON RUN. 00074 M01S00073.tmsproc +++|$ENDIF,RETRY. 00075 M01S00074.tmsproc +++|$ENDIF,GENTMS1. 00076 M01S00075.tmsproc +++|* 00077 M01S00076.tmsproc +++|$ENDW,LOOP. 00078 M01S00077.tmsproc +++|* 00079 M01S00078.tmsproc +++|* GET MACHINE READABLE FILE 00080 M01S00079.tmsproc +++|* FROM THE TAPE FILE CATALOG 00081 M01S00080.tmsproc +++|* VIA *TFSP*. 00082 M01S00081.tmsproc +++|* 00083 M01S00082.tmsproc +++|$SET,R1=0. 00084 M01S00083.tmsproc +++|$WHILE,R1.EQ.0,MREAD1. 00085 M01S00084.tmsproc +++|$RETURN,MREAD. 00086 M01S00085.tmsproc +++|$TFSP,L=0,SS=MREAD,OP=Z,RT./MREADUN= 00087 M01S00086.tmsproc +++|$SET,R1=1. 00088 M01S00087.tmsproc +++|$NOTE,OUTPUT,NR./ / MACHINE READABLE FILE 00089 M01S00088.tmsproc +++|$NOTE,OUTPUT,NR./ GENERATED FROM FAST-ATTACHED 00090 M01S00089.tmsproc +++|$NOTE,OUTPUT,NR./ TAPE CATALOG FILE. 00091 M01S00090.tmsproc +++|$SKIP,MREAD2. 00092 M01S00091.tmsproc +++|$EXIT. 00093 M01S00092.tmsproc +++|* 00094 M01S00093.tmsproc +++|* UNABLE TO ACCESS FAST-ATTACHED FILE. 00095 M01S00094.tmsproc +++|* ATTEMP TO ACCESS DIRECT-ACCESS FILE 00096 M01S00095.tmsproc +++|* *ZZZZZFC*. 00097 M01S00096.tmsproc +++|* 00098 M01S00097.tmsproc +++|$ATTACH,OLD=ZZZZZFC/M=M. 00099 M01S00098.tmsproc +++|$RETURN,MREAD. 00100 M01S00099.tmsproc +++|$TFSP,L=0,LF,SS=MREAD,OP=Z./MREADUN= 00101 M01S00100.tmsproc +++|$RETURN,OLD. 00102 M01S00101.tmsproc +++|$SET,R1=1. 00103 M01S00102.tmsproc +++|$NOTE,OUTPUT,NR./ / MACHINE READABLE FILE 00104 M01S00103.tmsproc +++|$NOTE,OUTPUT,NR./ GENERATED FROM DIRECT-ACCESS 00105 M01S00104.tmsproc +++|$NOTE,OUTPUT,NR./ FILE *ZZZZZFC*. 00106 M01S00105.tmsproc +++|$SKIP,MREAD2. 00107 M01S00106.tmsproc +++|$EXIT. 00108 M01S00107.tmsproc +++|* 00109 M01S00108.tmsproc +++|* UNABLE TO ACCESS DIRECT-ACCESS FILE. 00110 M01S00109.tmsproc +++|* CHECK IF DIRECT-ACCESS FILE EXISTS. 00111 M01S00110.tmsproc +++|* 00112 M01S00111.tmsproc +++|$CATLIST,FN=ZZZZZFC. 00113 M01S00112.tmsproc +++|*** INSTRUCTIONS. 00114 M01S00113.tmsproc +++|* 00115 M01S00114.tmsproc +++|* UNABLE TO ACCESS TAPE CATALOG FILE. 00116 M01S00115.tmsproc +++|* TYPE GO,JSN TO RETRY. 00117 M01S00116.tmsproc +++|* TYPE DROP,JSN TO ABANDON GENTMS RUN. 00118 M01S00117.tmsproc +++|* 00119 M01S00118.tmsproc +++|$OPMSG. GENTMS ABORTED. GO,JSN TO RETRY. 00120 M01S00119.tmsproc +++|$SKIP,MREAD2. 00121 M01S00120.tmsproc +++|$EXIT. 00122 M01S00121.tmsproc +++|* 00123 M01S00122.tmsproc +++|* DIRECT-ACCESS FILE *ZZZZZFC* 00124 M01S00123.tmsproc +++|* DOES NOT EXIST 00125 M01S00124.tmsproc +++|* OR 00126 M01S00125.tmsproc +++|* OPERATOR DROPPED TO ABANDON RUN. 00127 M01S00126.tmsproc +++|* 00128 M01S00127.tmsproc +++|$NOTE,OUTPUT,NR./ / TAPE CATALOG FILE *ZZZZZFC* 00129 M01S00128.tmsproc +++|$NOTE,OUTPUT,NR./ DOES NOT EXIST 00130 M01S00129.tmsproc +++|$NOTE,OUTPUT,NR./ OR 00131 M01S00130.tmsproc +++|$NOTE,OUTPUT,NR./ OPERATOR DROPPED TO ABANDON RUN. 00132 M01S00131.tmsproc +++|$SET,R1=2. FLAG CATALOG ERROR. 00133 M01S00132.tmsproc +++|$SKIP,ERRPROC. PROCESS NO CATALOG ERROR AND ABORT. 00134 M01S00133.tmsproc +++|$ENDIF,MREAD2. 00135 M01S00134.tmsproc +++|$ENDW,MREAD1. 00136 M01S00135.tmsproc +++|* 00137 M01S00136.tmsproc +++|* CONVERT MACHINE READABLE LISTING 00138 M01S00137.tmsproc +++|* TO TFDUMP VIA *GENTMS* BINARY. 00139 M01S00138.tmsproc +++|* 00140 M01S00139.tmsproc +++|$REWIND,MREAD. 00141 M01S00140.tmsproc +++|$TMSBILL. 00142 M01S00141.tmsproc +++|$IFE,FILE(TAPE2,AS),FILE1. 00143 M01S00142.tmsproc +++|$REWIND,TAPE2. 00144 M01S00143.tmsproc +++|$SORT5.FROM=TAPE2 TO=TFDUMP KEY=((8,7,COBOL6,A),(21,6,COBOL6,A)) 00145 M01S00144.tmsproc +++|$ENDIF,FILE1. 00146 M01S00145.tmsproc +++|$NOTE,OUTPUT,NR./ / CONVERSION FROM MACHINE READABLE FILE 00147 M01S00146.tmsproc +++|$NOTE,OUTPUT,NR./ TO *TFDUMP* COMPLETE. 00148 M01S00147.tmsproc +++|$PACK,OUTPUT. 00149 M01S00148.tmsproc +++|$ROUTE,OUTPUT,DC=PR. 00150 M01S00149.tmsproc +++|$DAYFILE,OUT. 00151 M01S00150.tmsproc +++|$ROUTE,OUT,DC=PR. 00152 M01S00151.tmsproc +++|$EXIT. 00153 M01S00152.tmsproc +++|$ENDIF,ERRPROC. 00154 M01S00153.tmsproc +++|$IFE,R1.NE.2,CONVERR. 00155 M01S00154.tmsproc +++|$NOTE,OUTPUT,NR./ / ERROR OCCURRED IN CONVERSION 00156 M01S00155.tmsproc +++|$NOTE,OUTPUT,NR./ FROM MACHINE READABLE LISTING 00157 M01S00156.tmsproc +++|$NOTE,OUTPUT,NR./ TO *TFDUMP*. 00158 M01S00157.tmsproc +++|$ENDIF,CONVERR. 00159 M01S00158.tmsproc +++|*** INSTRUCTIONS. 00160 M01S00159.tmsproc +++|* 00161 M01S00160.tmsproc +++|* A PROBLEM OCCURRED WHILE WRITING 00162 M01S00161.tmsproc +++|* BILLING INFORMATION TO THE FILE 00163 M01S00162.tmsproc +++|* *TFDUMP* OR THE TMS DATA BASE COULD 00164 M01S00163.tmsproc +++|* NOT BE ATTACHED. 00165 M01S00164.tmsproc +++|* TYPE EITHER GO,JSN OR DROP,JSN TO 00166 M01S00165.tmsproc +++|* ACKNOWLEDGE. 00167 M01S00166.tmsproc +++|* SAVE THIS JOB'S OUTPUT FOR ANALYSIS. 00168 M01S00167.tmsproc +++|* MANUALLY INITIATE GENTMS AGAIN WHEN 00169 M01S00168.tmsproc +++|* THE CAUSE IS CORRECTED. 00170 M01S00169.tmsproc +++|* 00171 M01S00170.tmsproc +++|$PURGE(TFDUMP/NA) 00172 M01S00171.tmsproc +++|$PACK,OUTPUT. 00173 M01S00172.tmsproc +++|$OPMSG. GENTMS ABORTED. CFO,JSN.OK TO ACKNOWLEDGE. 00174 M01S00173.tmsproc +++|$REVERT,ABORT. GENTMS ABORTED. 00175 M01S00174.tmsproc +++|$EXIT. 00176 M01S00175.tmsproc +++|$REVERT,ABORT. GENTMS ABORTED. 00177 M01S00176.tmsproc +++|*WEOR 00178 M01S00177.tmsproc +++|.PROC,TMSDBLD,FM=,AFN=,DFN=DIRFILE,STIME=000000,ETIME=250000, 00179 M01S00178.tmsproc +++|SAM=0/1,EAM=0/1. 00180 M01S00179.tmsproc +++|.IFE,OT.NE.SYO,OT1.
Line S00180 Modification History | |
---|---|
M01 (Added by) | tmsproc |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 00181 M02S00180.nos252 ---|$REVERT,ABORT. INVALID ACCESS. 00182 M01S00002.nos252 +++|$REVERT,ABORT. INCORRECT ACCESS. 00183 M01S00181.tmsproc +++|.ENDIF,OT1. 00184 M01S00182.tmsproc +++|.IFE,$FM$.EQ.$$,FM1. 00185 M01S00183.tmsproc +++|$REVERT,ABORT. NO FAMILY NAME. 00186 M01S00184.tmsproc +++|.ENDIF,FM1. 00187 M01S00185.tmsproc +++|$RFL,0. 00188 M01S00186.tmsproc +++|$FAMILY,FM. 00189 M01S00187.tmsproc +++|$SUI,377777. 00190 M01S00188.tmsproc +++|**************************************** 00191 M01S00189.tmsproc +++|* 00192 M01S00190.tmsproc +++|* TMSDBLD 00193 M01S00191.tmsproc +++|* 00194 M01S00192.tmsproc +++|* THIS PROCEDURE USES THE ACCOUNT FILE 00195 M01S00193.tmsproc +++|* TO GENERATE *TFSP* DIRECTIVES THAT CAN 00196 M01S00194.tmsproc +++|* BE USED TO RECOVER A TMS TAPE CATALOG 00197 M01S00195.tmsproc +++|* FILE. THIS PROCEDURE MUST BE CALLED FROM A 00198 M01S00196.tmsproc +++|* SYSTEM ORIGIN JOB. 00199 M01S00197.tmsproc +++|* 00200 M01S00198.tmsproc +++|* FORMAT OF CALL - 00201 M01S00199.tmsproc +++|* 00202 M01S00200.tmsproc +++|* TMSDBLD,FAMILY,#AFN,#DFN,#STIME,#ETIME,#SAM,#EAM. 00203 M01S00201.tmsproc +++|* 00204 M01S00202.tmsproc +++|* FAMILY NAME OF FAMILY TO BUILD 00205 M01S00203.tmsproc +++|* DIRECITIVES AGAINST. MANDATORY 00206 M01S00204.tmsproc +++|* ENTRY. 00207 M01S00205.tmsproc +++|* 00208 M01S00206.tmsproc +++|* #AFN LOCAL FILE NAME OF 00209 M01S00207.tmsproc +++|* ACCOUNT FILE. IF NOT SPECIFIED, 00210 M01S00208.tmsproc +++|* THE CURRENT ACCOUNT FILE WILL BE 00211 M01S00209.tmsproc +++|* USED. 00212 M01S00210.tmsproc +++|* 00213 M01S00211.tmsproc +++|* #DFN LOCAL FILE NAME OF *TFSP* 00214 M01S00212.tmsproc +++|* DIRECTIVE FILE. DEFAULT IS 00215 M01S00213.tmsproc +++| *DIRFILE*. IF #DFN IS NOT AN EMPTY 00216 M01S00214.tmsproc +++|* FILE, THE DIRECTIVES ARE COPIED 00217 M01S00215.tmsproc +++|* TO THE END OF THE FILE. 00218 M01S00216.tmsproc +++|* 00219 M01S00217.tmsproc +++|* #STIME STARTING TIME TO BEGIN READING 00220 M01S00218.tmsproc +++|* ACCOUNT FILE. FORMAT IS HHMMSS. 00221 M01S00219.tmsproc +++|* IF NOT SPECIFIED, THE ACCOUNT 00222 M01S00220.tmsproc +++|* FILE WILL BE READ FROM THE START. 00223 M01S00221.tmsproc +++|* 00224 M01S00222.tmsproc +++|* #ETIME ENDING TIME TO COMPLETE READING 00225 M01S00223.tmsproc +++|* ACCOUNT FILE. FORMAT IS HHMMSS. 00226 M01S00224.tmsproc +++|* IF NOT SPECIFIED, THE ACCOUNT 00227 M01S00225.tmsproc +++|* FILE WILL BE READ TO THE END. 00228 M01S00226.tmsproc +++|* 00229 M01S00227.tmsproc +++|* #SAM IF SPECIFIED, THE STARTING TIME 00230 M01S00228.tmsproc +++|* IS AFTER MIDNIGHT IN THE ACCOUNT 00231 M01S00229.tmsproc +++|* FILE. 00232 M01S00230.tmsproc +++|* 00233 M01S00231.tmsproc +++|* #EAM IF SPECIFIED, THE ENDING TIME IS 00234 M01S00232.tmsproc +++|* AFTER MIDNIGHT IN THE ACCOUNT 00235 M01S00233.tmsproc +++|* FILE. 00236 M01S00234.tmsproc +++|* 00237 M01S00235.tmsproc +++|* THE CALLING JOB EXITS AT USER INDEX 377777 00238 M01S00236.tmsproc +++|* OF THE FAMILY. 00239 M01S00237.tmsproc +++|* 00240 M01S00238.tmsproc +++|* THE FOLLOWING LOCAL FILE NAMES ARE USED BY 00241 M01S00239.tmsproc +++|* *TMSDBLD* - 00242 M01S00240.tmsproc +++|* 00243 M01S00241.tmsproc +++|* ACCFILE 00244 M01S00242.tmsproc +++|* DIRFILE 00245 M01S00243.tmsproc +++|* FAMNAME 00246 M01S00244.tmsproc +++|* 00247 M01S00245.tmsproc +++|* THE FOLLOWING MESSAGE MAY BE FLASHED BY 00248 M01S00246.tmsproc +++|* *TMSDBLD* IF UNSUCCESSFUL - 00249 M01S00247.tmsproc +++|* 00250 M01S00248.tmsproc +++|* TMSDBLD ABORTED, CHECK DAYFILE. 00251 M01S00249.tmsproc +++|* 00252 M01S00250.tmsproc +++|**************************************** 00253 M01S00251.tmsproc +++|.IFE,$AFN$.EQ.$$,AFN1. 00254 M01S00252.tmsproc +++|$AFD,ACCFILE. 00255 M01S00253.tmsproc +++|.ELSE,AFN1. 00256 M01S00254.tmsproc +++|$RENAME,ACCFILE=AFN. 00257 M01S00255.tmsproc +++|.ENDIF,AFN1. 00258 M01S00256.tmsproc +++|$IFE,FILE(DFN,AS),DFN1. 00259 M01S00257.tmsproc +++|$RENAME,DIRFILE=DFN. 00260 M01S00258.tmsproc +++|$ENDIF,DFN1. 00261 M01S00259.tmsproc +++|$RETURN,FAMNAME. 00262 M01S00260.tmsproc +++|$NOTE,FAMNAME,NR./FM 00263 M01S00261.tmsproc +++|.IFE,$ETIME$.EQ.$250000$,ETIME1. 00264 M01S00262.tmsproc +++|$NOTE,FAMNAME,NR./STIME_SAM_ETIME_1 00265 M01S00263.tmsproc +++|.ELSE,ETIME1. 00266 M01S00264.tmsproc +++|.IFE,$SAM$.EQ.$1$,SAM1. 00267 M01S00265.tmsproc +++|$NOTE,FAMNAME,NR./STIME_SAM_ETIME_1 00268 M01S00266.tmsproc +++|.ELSE,SAM1. 00269 M01S00267.tmsproc +++|$NOTE,FAMNAME,NR./STIME_SAM_ETIME_EAM 00270 M01S00268.tmsproc +++|.ENDIF,SAM1. 00271 M01S00269.tmsproc +++|.ENDIF,ETIME1. 00272 M01S00270.tmsproc +++|$PACK,FAMNAME. 00273 M01S00271.tmsproc +++|$REWIND,ACCFILE. 00274 M01S00272.tmsproc +++|$RECTMS. 00275 M01S00273.tmsproc +++|$RENAME,DFN=DIRFILE. 00276 M01S00274.tmsproc +++|$PACK,DFN. 00277 M01S00275.tmsproc +++|.IFE,$AFN$.NE.$$,AFN2. 00278 M01S00276.tmsproc +++|$RENAME,AFN=ACCFILE. 00279 M01S00277.tmsproc +++|.ENDIF,AFN2. 00280 M01S00278.tmsproc +++|$REVERT. TMS TMSDBLD COMPLETE. 00281 M01S00279.tmsproc +++|$EXIT. 00282 M01S00280.tmsproc +++|$OPMSG. TMSDBLD ABORTED, SEE DAYFILE. 00283 M01S00281.tmsproc +++|$REVERT,ABORT. TMSDBLD ABORTED. 00284 M01S00282.tmsproc +++|$EXIT. 00285 M01S00283.tmsproc +++|$REVERT,ABORT. TMSDBLD ABORTED. 00286 M01S00284.tmsproc +++|*WEOR 00287 M01S00285.tmsproc +++|.PROC,TMSDUMP,FM=,DFM=,DUI=377777,DPF=. 00288 M01S00286.tmsproc +++|.IFE,OT.NE.SYO,OT1.
Line S00287 Modification History | |
---|---|
M01 (Added by) | tmsproc |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 00289 M02S00287.nos252 ---|$REVERT,ABORT. INVALID ACCESS. 00290 M01S00003.nos252 +++|$REVERT,ABORT. INCORRECT ACCESS. 00291 M01S00288.tmsproc +++|.ENDIF,OT1. 00292 M01S00289.tmsproc +++|.IFE,$FM$.EQ.$$,FM1. 00293 M01S00290.tmsproc +++|$REVERT,ABORT. NO FAMILY NAME. 00294 M01S00291.tmsproc +++|.ENDIF,FM1. 00295 M01S00292.tmsproc +++|$FAMILY,FM. 00296 M01S00293.tmsproc +++|$SUI,377777. 00297 M01S00294.tmsproc +++|**************************************** 00298 M01S00295.tmsproc +++|* 00299 M01S00296.tmsproc +++|* TMSDUMP 00300 M01S00297.tmsproc +++|* 00301 M01S00298.tmsproc +++|* THIS PROCEDURE USES *PFDUMP* TO DUMP A 00302 M01S00299.tmsproc +++|* TAPE CATALOG FILE OF A FAMILY TO A DIFFERENT 00303 M01S00300.tmsproc +++|* DEVICE. THIS PROCEDURE MUST BE CALLED 00304 M01S00301.tmsproc +++|* FROM A SYSTEM ORIGIN JOB. 00305 M01S00302.tmsproc +++|* 00306 M01S00303.tmsproc +++|* FORMAT OF CALL - 00307 M01S00304.tmsproc +++|* 00308 M01S00305.tmsproc +++|* TMSDUMP,FAMILY,#DFM,#DUI,#DPF. 00309 M01S00306.tmsproc +++|* 00310 M01S00307.tmsproc +++|* FAMILY NAME OF THE FAMILY OF THE 00311 M01S00308.tmsproc +++|* TAPE CATALOG FILE TO DUMP. 00312 M01S00309.tmsproc +++|* MANDATORY ENTRY. 00313 M01S00310.tmsproc +++|* 00314 M01S00311.tmsproc +++|* #DFM NAME OF THE FAMILY TO RECEIVE 00315 M01S00312.tmsproc +++|* THE DUMP FILE. DEFAULT IS 00316 M01S00313.tmsproc +++|* THE SAME AS THE FAMILY OF THE 00317 M01S00314.tmsproc +++|* TAPE CATALOG FILE. 00318 M01S00315.tmsproc +++|* 00319 M01S00316.tmsproc +++|* #DUI USER INDEX TO RECEIVE THE DUMP 00320 M01S00317.tmsproc +++|* FILE. DEFAULT IS 377777. 00321 M01S00318.tmsproc +++|* 00322 M01S00319.tmsproc +++|* #DPF NAME OF THE DIRECT-ACCESS FILE 00323 M01S00320.tmsproc +++|* TO RECEIVE THE DUMP. IF NOT 00324 M01S00321.tmsproc +++|* SPECIFIED, THE DUMP WILL BE 00325 M01S00322.tmsproc +++|* COPIED TO A LOCAL FILE *TAPE*. 00326 M01S00323.tmsproc +++|* 00327 M01S00324.tmsproc +++|* THE CALLING JOB EXITS AT USER INDEX 377777 00328 M01S00325.tmsproc +++|* OF THE FAMILY. 00329 M01S00326.tmsproc +++|* 00330 M01S00327.tmsproc +++|* THE FOLLOWING LOCAL FILE NAMES ARE USED BY 00331 M01S00328.tmsproc +++|* *TMSDUMP* - 00332 M01S00329.tmsproc +++|* 00333 M01S00330.tmsproc +++|* TAPE 00334 M01S00331.tmsproc +++|* 00335 M01S00332.tmsproc +++|* THE FOLLOWING MESSAGE MAY BE FLASHED BY 00336 M01S00333.tmsproc +++|* *TMSDUMP* IF UNSUCCESSFUL - 00337 M01S00334.tmsproc +++|* 00338 M01S00335.tmsproc +++|* TMSDUMP ABORTED, SEE DAYFILE. 00339 M01S00336.tmsproc +++|* 00340 M01S00337.tmsproc +++|**************************************** 00341 M01S00338.tmsproc +++|.IFE,$DPF$.NE.$$,DPF1. 00342 M01S00339.tmsproc +++|.IFE,$DFM$.NE.$$,DFM1. 00343 M01S00340.tmsproc +++|$FAMILY,DFM. 00344 M01S00341.tmsproc +++|.ENDIF,DFM1. 00345 M01S00342.tmsproc +++|$SUI,DUI. 00346 M01S00343.tmsproc +++|$PURGE,DPF/NA. 00347 M01S00344.tmsproc +++|$DEFINE,TAPE=DPF. 00348 M01S00345.tmsproc +++|$FAMILY,FM. 00349 M01S00346.tmsproc +++|$SUI,377777. 00350 M01S00347.tmsproc +++|.ENDIF,DPF1. 00351 M01S00348.tmsproc +++|$PFDUMP,#FM=FM,UI=377777,PF=ZZZZZFC. 00352 M01S00349.tmsproc +++|$REVERT. TMSDUMP COMPLETE. 00353 M01S00350.tmsproc +++|$EXIT. 00354 M01S00351.tmsproc +++|$OPMSG. TMSDUMP ABORTED, SEE DAYFILE. 00355 M01S00352.tmsproc +++|$REVERT,ABORT. TMSDUMP ABORTED. 00356 M01S00353.tmsproc +++|$EXIT. 00357 M01S00354.tmsproc +++|$REVERT,ABORT. TMSDUMP ABORTED. 00358 M01S00355.tmsproc +++|*WEOR 00359 M01S00356.tmsproc +++|.PROC,TMSLOAD,FM=,DFM=,DUI=377777,DPF=. 00360 M01S00357.tmsproc +++|.IFE,OT.NE.SYO,OT1.
Line S00358 Modification History | |
---|---|
M01 (Added by) | tmsproc |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 00361 M02S00358.nos252 ---|$REVERT,ABORT. INVALID ACCESS. 00362 M01S00004.nos252 +++|$REVERT,ABORT. INCORRECT ACCESS. 00363 M01S00359.tmsproc +++|.ENDIF,OT1. 00364 M01S00360.tmsproc +++|.IFE,$FM$.EQ.$$,FM1. 00365 M01S00361.tmsproc +++|$REVERT,ABORT. NO FAMILY NAME. 00366 M01S00362.tmsproc +++|.ENDIF,FM1. 00367 M01S00363.tmsproc +++|$FAMILY,FM. 00368 M01S00364.tmsproc +++|$SUI,377777. 00369 M01S00365.tmsproc +++|**************************************** 00370 M01S00366.tmsproc +++|* 00371 M01S00367.tmsproc +++|* TMSLOAD 00372 M01S00368.tmsproc +++|* 00373 M01S00369.tmsproc +++|* THIS PROCEDURE USES *PFLOAD* TO RELOAD A 00374 M01S00370.tmsproc +++|* TAPE CATALOG FILE OF A FAMILY FROM A DIFFERENT 00375 M01S00371.tmsproc +++|* DEVICE. THIS PROCEDURE MUST BE CALLED 00376 M01S00372.tmsproc +++|* FROM A SYSTEM ORIGIN JOB. 00377 M01S00373.tmsproc +++|* 00378 M01S00374.tmsproc +++|* FORMAT OF CALL - 00379 M01S00375.tmsproc +++|* 00380 M01S00376.tmsproc +++|* TMSLOAD,FAMILY,#DFM,#DUI,#DPF. 00381 M01S00377.tmsproc +++|* 00382 M01S00378.tmsproc +++|* FAMILY NAME OF THE FAMILY OF THE 00383 M01S00379.tmsproc +++|* TAPE CATALOG FILE TO RELOAD. 00384 M01S00380.tmsproc +++|* MANDATORY ENTRY. 00385 M01S00381.tmsproc +++|* 00386 M01S00382.tmsproc +++|* #DFM NAME OF THE FAMILY THAT HAS 00387 M01S00383.tmsproc +++|* THE DUMP FILE. DEFAULT IS 00388 M01S00384.tmsproc +++|* THE SAME AS THE FAMILY OF THE 00389 M01S00385.tmsproc +++|* TAPE CATALOG FILE. 00390 M01S00386.tmsproc +++|* 00391 M01S00387.tmsproc +++|* #DUI USER INDEX THAT HAS THE DUMP 00392 M01S00388.tmsproc +++|* FILE. DEFAULT IS 377777. 00393 M01S00389.tmsproc +++|* 00394 M01S00390.tmsproc +++|* #DPF NAME OF THE DIRECT-ACCESS FILE 00395 M01S00391.tmsproc +++|* THAT HAS THE LOAD FILE. IF NOT 00396 M01S00392.tmsproc +++|* SPECIFIED, THE LOCAL FILE 00397 M01S00393.tmsproc +++|* *TAPE* IS ASSUMED TO BE 00398 M01S00394.tmsproc +++|* THE DUMP FILE. 00399 M01S00395.tmsproc +++|* 00400 M01S00396.tmsproc +++|* THE CALLING JOB EXITS AT USER INDEX 377777 00401 M01S00397.tmsproc +++|* OF THE FAMILY. 00402 M01S00398.tmsproc +++|* 00403 M01S00399.tmsproc +++|* THE FOLLOWING LOCAL FILE NAMES ARE USED BY 00404 M01S00400.tmsproc +++|* *TMSLOAD* - 00405 M01S00401.tmsproc +++|* 00406 M01S00402.tmsproc +++|* TAPE 00407 M01S00403.tmsproc +++|* 00408 M01S00404.tmsproc +++|* THE FOLLOWING MESSAGE MAY BE FLASHED BY 00409 M01S00405.tmsproc +++|* *TMSLOAD* IF UNSUCCESSFUL - 00410 M01S00406.tmsproc +++|* 00411 M01S00407.tmsproc +++|* TMSLOAD ABORTED, SEE DAYFILE. 00412 M01S00408.tmsproc +++|* 00413 M01S00409.tmsproc +++|**************************************** 00414 M01S00410.tmsproc +++|.IFE,$DPF$.NE.$$,DPF1. 00415 M01S00411.tmsproc +++|.IFE,$DFM$.NE.$$,DFM1. 00416 M01S00412.tmsproc +++|$FAMILY,DFM. 00417 M01S00413.tmsproc +++|.ENDIF,DFM1. 00418 M01S00414.tmsproc +++|$SUI,DUI. 00419 M01S00415.tmsproc +++|$ATTACH,TAPE=DPF. 00420 M01S00416.tmsproc +++|$FAMILY,FM. 00421 M01S00417.tmsproc +++|$SUI,377777. 00422 M01S00418.tmsproc +++|.ENDIF,DPF1. 00423 M01S00419.tmsproc +++|$REWIND,TAPE. 00424 M01S00420.tmsproc +++|$PFLOAD,#FM=FM,UI=377777,PF=ZZZZZFC,OP=OR. 00425 M01S00421.tmsproc +++|$REVERT. TMSLOAD COMPLETE. 00426 M01S00422.tmsproc +++|$EXIT. 00427 M01S00423.tmsproc +++|$OPMSG. TMSLOAD ABORTED, SEE DAYFILE. 00428 M01S00424.tmsproc +++|$REVERT,ABORT. TMSLOAD ABORTED. 00429 M01S00425.tmsproc +++|$EXIT. 00430 M01S00426.tmsproc +++|$REVERT,ABORT. TMSLOAD ABORTED. 00431 M01S00427.tmsproc +++|*WEOR 00432 M01S00428.tmsproc +++|.PROC,TMSRBLD,FM=,P=,N=NEW,I=DIRFILE. 00433 M01S00429.tmsproc +++|.IFE,OT.NE.SYO,OT1.
Line S00430 Modification History | |
---|---|
M01 (Added by) | tmsproc |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 00434 M02S00430.nos252 ---|$REVERT,ABORT. INVALID ACCESS. 00435 M01S00005.nos252 +++|$REVERT,ABORT. INCORRECT ACCESS. 00436 M01S00431.tmsproc +++|.ENDIF,OT1. 00437 M01S00432.tmsproc +++|.IFE,$FM$.EQ.$$,FM1. 00438 M01S00433.tmsproc +++|$REVERT,ABORT. NO FAMILY NAME. 00439 M01S00434.tmsproc +++|.ENDIF,FM1. 00440 M01S00435.tmsproc +++|$FAMILY,FM. 00441 M01S00436.tmsproc +++|$SUI,377777. 00442 M01S00437.tmsproc +++|**************************************** 00443 M01S00438.tmsproc +++|* 00444 M01S00439.tmsproc +++|* TMSRBLD 00445 M01S00440.tmsproc +++|* 00446 M01S00441.tmsproc +++|* THIS PROCEDURE CAN BE USED TO REBUILD A 00447 M01S00442.tmsproc +++|* TAPE CATALOG FILE GIVEN AN OLD TAPE 00448 M01S00443.tmsproc +++|* CATALOG FILE AND A *TFSP* DIRECTIVE FILE. 00449 M01S00444.tmsproc +++|* THIS PROCEDURE MUST BE CALLED FROM A 00450 M01S00445.tmsproc +++|* SYSTEM ORIGIN JOB. 00451 M01S00446.tmsproc +++|* 00452 M01S00447.tmsproc +++|* FORMAT OF CALL - 00453 M01S00448.tmsproc +++|* 00454 M01S00449.tmsproc +++|* TMSRBLD,FAMILY,OFN,NFN,DFN. 00455 M01S00450.tmsproc +++|* 00456 M01S00451.tmsproc +++|* FAMILY NAME OF FAMILY OF TAPE 00457 M01S00452.tmsproc +++|* CATALOG FILE. MANDATORY 00458 M01S00453.tmsproc +++|* ENTRY. 00459 M01S00454.tmsproc +++|* 00460 M01S00455.tmsproc +++|* OFN LOCAL FILE NAME OF OLD 00461 M01S00456.tmsproc +++|* TAPE CATALOG FILE TO BUILD 00462 M01S00457.tmsproc +++|* AGAINST. IF NOT SPECIFIED, 00463 M01S00458.tmsproc +++|* THE DIRECT-ACCESS FILE 00464 M01S00459.tmsproc +++|* *ZZZZZFC* ON USER INDEX 00465 M01S00460.tmsproc +++|* 377777 OF THE FAMILY IS 00466 M01S00461.tmsproc +++|* USED. *ZZZZZFC* MUST NOT 00467 M01S00462.tmsproc +++|* BE A FAST-ATTACHED FILE 00468 M01S00463.tmsproc +++|* WHEN *TMSRBLD* IS CALLED. 00469 M01S00464.tmsproc +++|* 00470 M01S00465.tmsproc +++|* NFN LOCAL FILE NAME OF THE 00471 M01S00466.tmsproc +++|* REBUILT TAPE CATALOG FILE. 00472 M01S00467.tmsproc +++|* DEFAULT IS *NEW*. THE 00473 M01S00468.tmsproc +++|* *OFN* AND *NFN* PARAMETERS 00474 M01S00469.tmsproc +++|* MAY HAVE THE SAME NAME. 00475 M01S00470.tmsproc +++|* 00476 M01S00471.tmsproc +++|* DFN LOCAL FILE NAME OF THE 00477 M01S00472.tmsproc +++|* *TFSP* DIRECTIVE INPUT 00478 M01S00473.tmsproc +++|* FILE TO APPLY AGAINST THE 00479 M01S00474.tmsproc +++|* OLD TAPE CATALOG FILE. 00480 M01S00475.tmsproc +++|* DEFAULT IS *DIRFILE*. 00481 M01S00476.tmsproc +++|* 00482 M01S00477.tmsproc +++|* THE CALLING JOB EXITS AT USER INDEX 377777 00483 M01S00478.tmsproc +++|* OF THE FAMILY. 00484 M01S00479.tmsproc +++|* 00485 M01S00480.tmsproc +++|* THE FOLLOWING LOCAL FILE NAMES ARE USED BY 00486 M01S00481.tmsproc +++|* *TMSRBLD* - 00487 M01S00482.tmsproc +++|* 00488 M01S00483.tmsproc +++|* ZZZZZFC 00489 M01S00484.tmsproc +++|* NEW 00490 M01S00485.tmsproc +++|* DIRFILE 00491 M01S00486.tmsproc +++|* 00492 M01S00487.tmsproc +++|* THE FOLLOWING MESSAGE MAY BE FLASHED BY 00493 M01S00488.tmsproc +++|* *TMSRBLD* IF UNSUCCESSFUL - 00494 M01S00489.tmsproc +++|* 00495 M01S00490.tmsproc +++|* TMSRBLD ABORTED, CHECK DAYFILE. 00496 M01S00491.tmsproc +++|* 00497 M01S00492.tmsproc +++|**************************************** 00498 M01S00493.tmsproc +++|$REWIND,I. 00499 M01S00494.tmsproc +++|.IFE,$P$.EQ.$$,P1. 00500 M01S00495.tmsproc +++|$ATTACH,ZZZZZFC/M=W. 00501 M01S00496.tmsproc +++|$TFSP,LF,#P=ZZZZZFC,#N=N,#I=I,A. 00502 M01S00497.tmsproc +++|.ELSE,P1. 00503 M01S00498.tmsproc +++|$TFSP,LF,#P=P,#N=N,#I=I,A. 00504 M01S00499.tmsproc +++|.ENDIF,P1. 00505 M01S00500.tmsproc +++|$REVERT. TMS TMSRBLD COMPLETE. 00506 M01S00501.tmsproc +++|$EXIT. 00507 M01S00502.tmsproc +++|$OPMSG. TMSRBLD ABORTED, SEE DAYFILE. 00508 M01S00503.tmsproc +++|$REVERT,ABORT. TMSRBLD ABORTED. 00509 M01S00504.tmsproc +++|$EXIT. 00510 M01S00505.tmsproc +++|$REVERT,ABORT. TMSRBLD ABORTED. 00511 M01S00506.tmsproc +++|*WEOR
cdc/nos2.source/opl.opl871/deck/tmsproc.txt ยท Last modified: by 127.0.0.1