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