Deck TMSPROC

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.tmsproc +++|*NOSEQ
00002  M00S00002.tmsproc +++|.PROC,RGENTMS,FM=.
00003  M00S00003.tmsproc +++|.IFE,OT.NE.SYO,OT1.

Line S00004 Modification History
`M01` (Removed by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00004.nos252  ---|$REVERT,ABORT. INVALID ACCESS.

Line S00001 Modification History
`M01` (Added by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00001.nos252  +++|$REVERT,ABORT. INCORRECT ACCESS.
00006  M00S00005.tmsproc +++|.ENDIF,OT1.
00007  M00S00006.tmsproc +++|.IFE,$FM$.EQ.$$,FM1.
00008  M00S00007.tmsproc +++|$REVERT,ABORT. NO FAMILY NAME.
00009  M00S00008.tmsproc +++|.ENDIF,FM1.
00010  M00S00009.tmsproc +++|****************************************
00011  M00S00010.tmsproc +++|*
00012  M00S00011.tmsproc +++|* RGENTMS
00013  M00S00012.tmsproc +++|*
00014  M00S00013.tmsproc +++|* THIS PROCEDURE ROUTES A SYSTEM ORIGIN
00015  M00S00014.tmsproc +++|* JOB THAT GENERATES THE *TMS* BILLING
00016  M00S00015.tmsproc +++|* FILE *TFDUMP* ON USER INDEX 377777 OF
00017  M00S00016.tmsproc +++|* THE SPECIFIED FAMILY.  THIS PROCEDURE
00018  M00S00017.tmsproc +++|* MUST BE CALLED FROM A SYSTEM ORIGIN
00019  M00S00018.tmsproc +++|* JOB.
00020  M00S00019.tmsproc +++|*
00021  M00S00020.tmsproc +++|* FORMAT OF CALL -
00022  M00S00021.tmsproc +++|*
00023  M00S00022.tmsproc +++|*   RGENTMS,FAMILY.
00024  M00S00023.tmsproc +++|*
00025  M00S00024.tmsproc +++|*     FAMILY     NAME OF FAMILY TO
00026  M00S00025.tmsproc +++|*                GENERATE *TMS* BILLING
00027  M00S00026.tmsproc +++|*                FILE ON.  MANDATORY
00028  M00S00027.tmsproc +++|*                ENTRY.
00029  M00S00028.tmsproc +++|*
00030  M00S00029.tmsproc +++|* THE FOLLOWING LOCAL FILE NAMES ARE USED BY
00031  M00S00030.tmsproc +++|* *RGENTMS* -
00032  M00S00031.tmsproc +++|*
00033  M00S00032.tmsproc +++|*   ZZZJOB
00034  M00S00033.tmsproc +++|*
00035  M00S00034.tmsproc +++|* THE FOLLOWING MESSAGE MAY BE FLASHED BY
00036  M00S00035.tmsproc +++|* *RGENTMS* IF UNSUCCESSFUL -
00037  M00S00036.tmsproc +++|*
00038  M00S00037.tmsproc +++|*   RGENTMS ABORTED.
00039  M00S00038.tmsproc +++|*
00040  M00S00039.tmsproc +++|****************************************
00041  M00S00040.tmsproc +++|$ROUTE,ZZZJOB,OT=SYOT,DC=IN.
00042  M00S00041.tmsproc +++|$REVERT. RGENTMS COMPLETE.
00043  M00S00042.tmsproc +++|$EXIT.
00044  M00S00043.tmsproc +++|$OPMSG. RGENTMS ABORTED, SEE DAYFILE.
00045  M00S00044.tmsproc +++|$REVERT,ABORT. RGENTMS ABORTED.
00046  M00S00045.tmsproc +++|$EXIT.
00047  M00S00046.tmsproc +++|$REVERT,ABORT. RGENTMS ABORTED.
00048  M00S00047.tmsproc +++|.DATA,ZZZJOB.
00049  M00S00048.tmsproc +++|GENTMS(T7777) GENERATE BILLING FOR *TMS* TAPES.
00050  M00S00049.tmsproc +++|$ASSIGN,MS,OUTPUT.
00051  M00S00050.tmsproc +++|$NOTE(OUTPUT/NR)/1 *** GENTMS - GENERATE TMS BILLING INFORMATION. ***
00052  M00S00051.tmsproc +++|$SUI(377777)
00053  M00S00052.tmsproc +++|$FAMILY,FM.
00054  M00S00053.tmsproc +++|*
00055  M00S00054.tmsproc +++|$WHILE,R1 .EQ. 0,LOOP.
00056  M00S00055.tmsproc +++|$PURGE(TFDUMP/NA)
00057  M00S00056.tmsproc +++|$DEFINE(TFDUMP/PW=CHANGE,NA)
00058  M00S00057.tmsproc +++|*
00059  M00S00058.tmsproc +++|$IF,FILE(TFDUMP,PM),GENTMS1. IF TFDUMP WAS DEFINED
00060  M00S00059.tmsproc +++|$SET(R1=1) END LOOPING
00061  M00S00060.tmsproc +++|$ELSE(GENTMS1)
00062  M00S00061.tmsproc +++|*** INSTRUCTIONS.
00063  M00S00062.tmsproc +++|*
00064  M00S00063.tmsproc +++|*  THERE WAS A PROBLEM DEFINING AN EMPTY
00065  M00S00064.tmsproc +++|*  PERMANENT FILE (TFDUMP) ON WHICH TO
00066  M00S00065.tmsproc +++|*  WRITE BILLING INFORMATION.
00067  M00S00066.tmsproc +++|*  TYPE GO,JSN TO RETRY.
00068  M00S00067.tmsproc +++|*  TYPE DROP,JSN TO ABANDON GENTMS RUN.
00069  M00S00068.tmsproc +++|*
00070  M00S00069.tmsproc +++|$OPMSG. GENTMS ABORTED. GO,JSN TO RETRY.
00071  M00S00070.tmsproc +++|$SKIP,RETRY.
00072  M00S00071.tmsproc +++|$EXIT. OPERATOR DROPPED.
00073  M00S00072.tmsproc +++|$EXIT. ABANDON RUN.
00074  M00S00073.tmsproc +++|$ENDIF,RETRY.
00075  M00S00074.tmsproc +++|$ENDIF,GENTMS1.
00076  M00S00075.tmsproc +++|*
00077  M00S00076.tmsproc +++|$ENDW,LOOP.
00078  M00S00077.tmsproc +++|*
00079  M00S00078.tmsproc +++|* GET MACHINE READABLE FILE
00080  M00S00079.tmsproc +++|* FROM THE TAPE FILE CATALOG
00081  M00S00080.tmsproc +++|* VIA *TFSP*.
00082  M00S00081.tmsproc +++|*
00083  M00S00082.tmsproc +++|$SET,R1=0.
00084  M00S00083.tmsproc +++|$WHILE,R1.EQ.0,MREAD1.
00085  M00S00084.tmsproc +++|$RETURN,MREAD.
00086  M00S00085.tmsproc +++|$TFSP,L=0,SS=MREAD,OP=Z,RT./MREADUN=
00087  M00S00086.tmsproc +++|$SET,R1=1.
00088  M00S00087.tmsproc +++|$NOTE,OUTPUT,NR./ /  MACHINE READABLE FILE
00089  M00S00088.tmsproc +++|$NOTE,OUTPUT,NR./  GENERATED FROM FAST-ATTACHED
00090  M00S00089.tmsproc +++|$NOTE,OUTPUT,NR./  TAPE CATALOG FILE.
00091  M00S00090.tmsproc +++|$SKIP,MREAD2.
00092  M00S00091.tmsproc +++|$EXIT.
00093  M00S00092.tmsproc +++|*
00094  M00S00093.tmsproc +++|* UNABLE TO ACCESS FAST-ATTACHED FILE.
00095  M00S00094.tmsproc +++|* ATTEMP TO ACCESS DIRECT-ACCESS FILE
00096  M00S00095.tmsproc +++|* *ZZZZZFC*.
00097  M00S00096.tmsproc +++|*
00098  M00S00097.tmsproc +++|$ATTACH,OLD=ZZZZZFC/M=M.
00099  M00S00098.tmsproc +++|$RETURN,MREAD.
00100  M00S00099.tmsproc +++|$TFSP,L=0,LF,SS=MREAD,OP=Z./MREADUN=
00101  M00S00100.tmsproc +++|$RETURN,OLD.
00102  M00S00101.tmsproc +++|$SET,R1=1.
00103  M00S00102.tmsproc +++|$NOTE,OUTPUT,NR./ /  MACHINE READABLE FILE
00104  M00S00103.tmsproc +++|$NOTE,OUTPUT,NR./  GENERATED FROM DIRECT-ACCESS
00105  M00S00104.tmsproc +++|$NOTE,OUTPUT,NR./  FILE *ZZZZZFC*.
00106  M00S00105.tmsproc +++|$SKIP,MREAD2.
00107  M00S00106.tmsproc +++|$EXIT.
00108  M00S00107.tmsproc +++|*
00109  M00S00108.tmsproc +++|* UNABLE TO ACCESS DIRECT-ACCESS FILE.
00110  M00S00109.tmsproc +++|* CHECK IF DIRECT-ACCESS FILE EXISTS.
00111  M00S00110.tmsproc +++|*
00112  M00S00111.tmsproc +++|$CATLIST,FN=ZZZZZFC.
00113  M00S00112.tmsproc +++|*** INSTRUCTIONS.
00114  M00S00113.tmsproc +++|*
00115  M00S00114.tmsproc +++|* UNABLE TO ACCESS TAPE CATALOG FILE.
00116  M00S00115.tmsproc +++|* TYPE GO,JSN TO RETRY.
00117  M00S00116.tmsproc +++|* TYPE DROP,JSN TO ABANDON GENTMS RUN.
00118  M00S00117.tmsproc +++|*
00119  M00S00118.tmsproc +++|$OPMSG. GENTMS ABORTED. GO,JSN TO RETRY.
00120  M00S00119.tmsproc +++|$SKIP,MREAD2.
00121  M00S00120.tmsproc +++|$EXIT.
00122  M00S00121.tmsproc +++|*
00123  M00S00122.tmsproc +++|* DIRECT-ACCESS FILE *ZZZZZFC*
00124  M00S00123.tmsproc +++|* DOES NOT EXIST
00125  M00S00124.tmsproc +++|* OR
00126  M00S00125.tmsproc +++|* OPERATOR DROPPED TO ABANDON RUN.
00127  M00S00126.tmsproc +++|*
00128  M00S00127.tmsproc +++|$NOTE,OUTPUT,NR./ /  TAPE CATALOG FILE *ZZZZZFC*
00129  M00S00128.tmsproc +++|$NOTE,OUTPUT,NR./  DOES NOT EXIST
00130  M00S00129.tmsproc +++|$NOTE,OUTPUT,NR./  OR
00131  M00S00130.tmsproc +++|$NOTE,OUTPUT,NR./  OPERATOR DROPPED TO ABANDON RUN.
00132  M00S00131.tmsproc +++|$SET,R1=2.  FLAG CATALOG ERROR.
00133  M00S00132.tmsproc +++|$SKIP,ERRPROC.  PROCESS NO CATALOG ERROR AND ABORT.
00134  M00S00133.tmsproc +++|$ENDIF,MREAD2.
00135  M00S00134.tmsproc +++|$ENDW,MREAD1.
00136  M00S00135.tmsproc +++|*
00137  M00S00136.tmsproc +++|* CONVERT MACHINE READABLE LISTING
00138  M00S00137.tmsproc +++|* TO TFDUMP VIA *GENTMS* BINARY.
00139  M00S00138.tmsproc +++|*
00140  M00S00139.tmsproc +++|$REWIND,MREAD.
00141  M00S00140.tmsproc +++|$TMSBILL.
00142  M00S00141.tmsproc +++|$IFE,FILE(TAPE2,AS),FILE1.
00143  M00S00142.tmsproc +++|$REWIND,TAPE2.
00144  M00S00143.tmsproc +++|$SORT5.FROM=TAPE2 TO=TFDUMP KEY=((8,7,COBOL6,A),(21,6,COBOL6,A))
00145  M00S00144.tmsproc +++|$ENDIF,FILE1.
00146  M00S00145.tmsproc +++|$NOTE,OUTPUT,NR./ /  CONVERSION FROM MACHINE READABLE FILE
00147  M00S00146.tmsproc +++|$NOTE,OUTPUT,NR./  TO *TFDUMP* COMPLETE.
00148  M00S00147.tmsproc +++|$PACK,OUTPUT.
00149  M00S00148.tmsproc +++|$ROUTE,OUTPUT,DC=PR.
00150  M00S00149.tmsproc +++|$DAYFILE,OUT.
00151  M00S00150.tmsproc +++|$ROUTE,OUT,DC=PR.
00152  M00S00151.tmsproc +++|$EXIT.
00153  M00S00152.tmsproc +++|$ENDIF,ERRPROC.
00154  M00S00153.tmsproc +++|$IFE,R1.NE.2,CONVERR.
00155  M00S00154.tmsproc +++|$NOTE,OUTPUT,NR./ /  ERROR OCCURRED IN CONVERSION
00156  M00S00155.tmsproc +++|$NOTE,OUTPUT,NR./  FROM MACHINE READABLE LISTING
00157  M00S00156.tmsproc +++|$NOTE,OUTPUT,NR./  TO *TFDUMP*.
00158  M00S00157.tmsproc +++|$ENDIF,CONVERR.
00159  M00S00158.tmsproc +++|*** INSTRUCTIONS.
00160  M00S00159.tmsproc +++|*
00161  M00S00160.tmsproc +++|*  A PROBLEM OCCURRED WHILE WRITING
00162  M00S00161.tmsproc +++|*  BILLING INFORMATION TO THE FILE
00163  M00S00162.tmsproc +++|*  *TFDUMP* OR THE TMS DATA BASE COULD
00164  M00S00163.tmsproc +++|*  NOT BE ATTACHED.
00165  M00S00164.tmsproc +++|*  TYPE EITHER GO,JSN OR DROP,JSN TO
00166  M00S00165.tmsproc +++|*  ACKNOWLEDGE.
00167  M00S00166.tmsproc +++|*  SAVE THIS JOB'S OUTPUT FOR ANALYSIS.
00168  M00S00167.tmsproc +++|*  MANUALLY INITIATE GENTMS AGAIN WHEN
00169  M00S00168.tmsproc +++|*  THE CAUSE IS CORRECTED.
00170  M00S00169.tmsproc +++|*
00171  M00S00170.tmsproc +++|$PURGE(TFDUMP/NA)
00172  M00S00171.tmsproc +++|$PACK,OUTPUT.
00173  M00S00172.tmsproc +++|$OPMSG. GENTMS ABORTED. CFO,JSN.OK TO ACKNOWLEDGE.
00174  M00S00173.tmsproc +++|$REVERT,ABORT. GENTMS ABORTED.
00175  M00S00174.tmsproc +++|$EXIT.
00176  M00S00175.tmsproc +++|$REVERT,ABORT. GENTMS ABORTED.
00177  M00S00176.tmsproc +++|*WEOR
00178  M00S00177.tmsproc +++|.PROC,TMSDBLD,FM=,AFN=,DFN=DIRFILE,STIME=000000,ETIME=250000,
00179  M00S00178.tmsproc +++|SAM=0/1,EAM=0/1.
00180  M00S00179.tmsproc +++|.IFE,OT.NE.SYO,OT1.

Line S00180 Modification History
`M01` (Removed by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00181  M01S00180.nos252  ---|$REVERT,ABORT. INVALID ACCESS.

Line S00002 Modification History
`M01` (Added by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00182  M01S00002.nos252  +++|$REVERT,ABORT. INCORRECT ACCESS.
00183  M00S00181.tmsproc +++|.ENDIF,OT1.
00184  M00S00182.tmsproc +++|.IFE,$FM$.EQ.$$,FM1.
00185  M00S00183.tmsproc +++|$REVERT,ABORT. NO FAMILY NAME.
00186  M00S00184.tmsproc +++|.ENDIF,FM1.
00187  M00S00185.tmsproc +++|$RFL,0.
00188  M00S00186.tmsproc +++|$FAMILY,FM.
00189  M00S00187.tmsproc +++|$SUI,377777.
00190  M00S00188.tmsproc +++|****************************************
00191  M00S00189.tmsproc +++|*
00192  M00S00190.tmsproc +++|* TMSDBLD
00193  M00S00191.tmsproc +++|*
00194  M00S00192.tmsproc +++|* THIS PROCEDURE USES THE ACCOUNT FILE
00195  M00S00193.tmsproc +++|* TO GENERATE *TFSP* DIRECTIVES THAT CAN
00196  M00S00194.tmsproc +++|* BE USED TO RECOVER A TMS TAPE CATALOG
00197  M00S00195.tmsproc +++|* FILE.  THIS PROCEDURE MUST BE CALLED FROM A
00198  M00S00196.tmsproc +++|* SYSTEM ORIGIN JOB.
00199  M00S00197.tmsproc +++|*
00200  M00S00198.tmsproc +++|* FORMAT OF CALL -
00201  M00S00199.tmsproc +++|*
00202  M00S00200.tmsproc +++|*   TMSDBLD,FAMILY,#AFN,#DFN,#STIME,#ETIME,#SAM,#EAM.
00203  M00S00201.tmsproc +++|*
00204  M00S00202.tmsproc +++|*     FAMILY     NAME OF FAMILY TO BUILD
00205  M00S00203.tmsproc +++|*                DIRECITIVES AGAINST.  MANDATORY
00206  M00S00204.tmsproc +++|*                ENTRY.
00207  M00S00205.tmsproc +++|*
00208  M00S00206.tmsproc +++|*     #AFN        LOCAL FILE NAME OF
00209  M00S00207.tmsproc +++|*                ACCOUNT FILE.  IF NOT SPECIFIED,
00210  M00S00208.tmsproc +++|*                THE CURRENT ACCOUNT FILE WILL BE
00211  M00S00209.tmsproc +++|*                USED.
00212  M00S00210.tmsproc +++|*
00213  M00S00211.tmsproc +++|*     #DFN        LOCAL FILE NAME OF *TFSP*
00214  M00S00212.tmsproc +++|*                DIRECTIVE FILE.  DEFAULT IS
00215  M00S00213.tmsproc +++|                 *DIRFILE*. IF #DFN IS NOT AN EMPTY
00216  M00S00214.tmsproc +++|*                FILE, THE DIRECTIVES ARE COPIED
00217  M00S00215.tmsproc +++|*                TO THE END OF THE FILE.
00218  M00S00216.tmsproc +++|*
00219  M00S00217.tmsproc +++|*     #STIME      STARTING TIME TO BEGIN READING
00220  M00S00218.tmsproc +++|*                ACCOUNT FILE.  FORMAT IS HHMMSS.
00221  M00S00219.tmsproc +++|*                IF NOT SPECIFIED, THE ACCOUNT
00222  M00S00220.tmsproc +++|*                FILE WILL BE READ FROM THE START.
00223  M00S00221.tmsproc +++|*
00224  M00S00222.tmsproc +++|*     #ETIME      ENDING TIME TO COMPLETE READING
00225  M00S00223.tmsproc +++|*                ACCOUNT FILE.  FORMAT IS HHMMSS.
00226  M00S00224.tmsproc +++|*                IF NOT SPECIFIED, THE ACCOUNT
00227  M00S00225.tmsproc +++|*                FILE WILL BE READ TO THE END.
00228  M00S00226.tmsproc +++|*
00229  M00S00227.tmsproc +++|*     #SAM        IF SPECIFIED, THE STARTING TIME
00230  M00S00228.tmsproc +++|*                IS AFTER MIDNIGHT IN THE ACCOUNT
00231  M00S00229.tmsproc +++|*                FILE.
00232  M00S00230.tmsproc +++|*
00233  M00S00231.tmsproc +++|*     #EAM        IF SPECIFIED, THE ENDING TIME IS
00234  M00S00232.tmsproc +++|*                AFTER MIDNIGHT IN THE ACCOUNT
00235  M00S00233.tmsproc +++|*                FILE.
00236  M00S00234.tmsproc +++|*
00237  M00S00235.tmsproc +++|* THE CALLING JOB EXITS AT USER INDEX 377777
00238  M00S00236.tmsproc +++|* OF THE FAMILY.
00239  M00S00237.tmsproc +++|*
00240  M00S00238.tmsproc +++|* THE FOLLOWING LOCAL FILE NAMES ARE USED BY
00241  M00S00239.tmsproc +++|* *TMSDBLD* -
00242  M00S00240.tmsproc +++|*
00243  M00S00241.tmsproc +++|*   ACCFILE
00244  M00S00242.tmsproc +++|*   DIRFILE
00245  M00S00243.tmsproc +++|*   FAMNAME
00246  M00S00244.tmsproc +++|*
00247  M00S00245.tmsproc +++|* THE FOLLOWING MESSAGE MAY BE FLASHED BY
00248  M00S00246.tmsproc +++|* *TMSDBLD* IF UNSUCCESSFUL -
00249  M00S00247.tmsproc +++|*
00250  M00S00248.tmsproc +++|*   TMSDBLD ABORTED, CHECK DAYFILE.
00251  M00S00249.tmsproc +++|*
00252  M00S00250.tmsproc +++|****************************************
00253  M00S00251.tmsproc +++|.IFE,$AFN$.EQ.$$,AFN1.
00254  M00S00252.tmsproc +++|$AFD,ACCFILE.
00255  M00S00253.tmsproc +++|.ELSE,AFN1.
00256  M00S00254.tmsproc +++|$RENAME,ACCFILE=AFN.
00257  M00S00255.tmsproc +++|.ENDIF,AFN1.
00258  M00S00256.tmsproc +++|$IFE,FILE(DFN,AS),DFN1.
00259  M00S00257.tmsproc +++|$RENAME,DIRFILE=DFN.
00260  M00S00258.tmsproc +++|$ENDIF,DFN1.
00261  M00S00259.tmsproc +++|$RETURN,FAMNAME.
00262  M00S00260.tmsproc +++|$NOTE,FAMNAME,NR./FM
00263  M00S00261.tmsproc +++|.IFE,$ETIME$.EQ.$250000$,ETIME1.
00264  M00S00262.tmsproc +++|$NOTE,FAMNAME,NR./STIME_SAM_ETIME_1
00265  M00S00263.tmsproc +++|.ELSE,ETIME1.
00266  M00S00264.tmsproc +++|.IFE,$SAM$.EQ.$1$,SAM1.
00267  M00S00265.tmsproc +++|$NOTE,FAMNAME,NR./STIME_SAM_ETIME_1
00268  M00S00266.tmsproc +++|.ELSE,SAM1.
00269  M00S00267.tmsproc +++|$NOTE,FAMNAME,NR./STIME_SAM_ETIME_EAM
00270  M00S00268.tmsproc +++|.ENDIF,SAM1.
00271  M00S00269.tmsproc +++|.ENDIF,ETIME1.
00272  M00S00270.tmsproc +++|$PACK,FAMNAME.
00273  M00S00271.tmsproc +++|$REWIND,ACCFILE.
00274  M00S00272.tmsproc +++|$RECTMS.
00275  M00S00273.tmsproc +++|$RENAME,DFN=DIRFILE.
00276  M00S00274.tmsproc +++|$PACK,DFN.
00277  M00S00275.tmsproc +++|.IFE,$AFN$.NE.$$,AFN2.
00278  M00S00276.tmsproc +++|$RENAME,AFN=ACCFILE.
00279  M00S00277.tmsproc +++|.ENDIF,AFN2.
00280  M00S00278.tmsproc +++|$REVERT. TMS TMSDBLD COMPLETE.
00281  M00S00279.tmsproc +++|$EXIT.
00282  M00S00280.tmsproc +++|$OPMSG. TMSDBLD ABORTED, SEE DAYFILE.
00283  M00S00281.tmsproc +++|$REVERT,ABORT. TMSDBLD ABORTED.
00284  M00S00282.tmsproc +++|$EXIT.
00285  M00S00283.tmsproc +++|$REVERT,ABORT. TMSDBLD ABORTED.
00286  M00S00284.tmsproc +++|*WEOR
00287  M00S00285.tmsproc +++|.PROC,TMSDUMP,FM=,DFM=,DUI=377777,DPF=.
00288  M00S00286.tmsproc +++|.IFE,OT.NE.SYO,OT1.

Line S00287 Modification History
`M01` (Removed by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00289  M01S00287.nos252  ---|$REVERT,ABORT. INVALID ACCESS.

Line S00003 Modification History
`M01` (Added by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00290  M01S00003.nos252  +++|$REVERT,ABORT. INCORRECT ACCESS.
00291  M00S00288.tmsproc +++|.ENDIF,OT1.
00292  M00S00289.tmsproc +++|.IFE,$FM$.EQ.$$,FM1.
00293  M00S00290.tmsproc +++|$REVERT,ABORT. NO FAMILY NAME.
00294  M00S00291.tmsproc +++|.ENDIF,FM1.
00295  M00S00292.tmsproc +++|$FAMILY,FM.
00296  M00S00293.tmsproc +++|$SUI,377777.
00297  M00S00294.tmsproc +++|****************************************
00298  M00S00295.tmsproc +++|*
00299  M00S00296.tmsproc +++|* TMSDUMP
00300  M00S00297.tmsproc +++|*
00301  M00S00298.tmsproc +++|* THIS PROCEDURE USES *PFDUMP* TO DUMP A
00302  M00S00299.tmsproc +++|* TAPE CATALOG FILE OF A FAMILY TO A DIFFERENT
00303  M00S00300.tmsproc +++|* DEVICE.  THIS PROCEDURE MUST BE CALLED
00304  M00S00301.tmsproc +++|* FROM A SYSTEM ORIGIN JOB.
00305  M00S00302.tmsproc +++|*
00306  M00S00303.tmsproc +++|* FORMAT OF CALL -
00307  M00S00304.tmsproc +++|*
00308  M00S00305.tmsproc +++|*   TMSDUMP,FAMILY,#DFM,#DUI,#DPF.
00309  M00S00306.tmsproc +++|*
00310  M00S00307.tmsproc +++|*     FAMILY     NAME OF THE FAMILY OF THE
00311  M00S00308.tmsproc +++|*                TAPE CATALOG FILE TO DUMP.
00312  M00S00309.tmsproc +++|*                MANDATORY ENTRY.
00313  M00S00310.tmsproc +++|*
00314  M00S00311.tmsproc +++|*     #DFM        NAME OF THE FAMILY TO RECEIVE
00315  M00S00312.tmsproc +++|*                THE DUMP FILE.  DEFAULT IS
00316  M00S00313.tmsproc +++|*                THE SAME AS THE FAMILY OF THE
00317  M00S00314.tmsproc +++|*                TAPE CATALOG FILE.
00318  M00S00315.tmsproc +++|*
00319  M00S00316.tmsproc +++|*     #DUI        USER INDEX TO RECEIVE THE DUMP
00320  M00S00317.tmsproc +++|*                FILE.  DEFAULT IS 377777.
00321  M00S00318.tmsproc +++|*
00322  M00S00319.tmsproc +++|*     #DPF        NAME OF THE DIRECT-ACCESS FILE
00323  M00S00320.tmsproc +++|*                TO RECEIVE THE DUMP.  IF NOT
00324  M00S00321.tmsproc +++|*                SPECIFIED, THE DUMP WILL BE
00325  M00S00322.tmsproc +++|*                COPIED TO A LOCAL FILE *TAPE*.
00326  M00S00323.tmsproc +++|*
00327  M00S00324.tmsproc +++|* THE CALLING JOB EXITS AT USER INDEX 377777
00328  M00S00325.tmsproc +++|* OF THE FAMILY.
00329  M00S00326.tmsproc +++|*
00330  M00S00327.tmsproc +++|* THE FOLLOWING LOCAL FILE NAMES ARE USED BY
00331  M00S00328.tmsproc +++|* *TMSDUMP* -
00332  M00S00329.tmsproc +++|*
00333  M00S00330.tmsproc +++|*   TAPE
00334  M00S00331.tmsproc +++|*
00335  M00S00332.tmsproc +++|* THE FOLLOWING MESSAGE MAY BE FLASHED BY
00336  M00S00333.tmsproc +++|* *TMSDUMP* IF UNSUCCESSFUL -
00337  M00S00334.tmsproc +++|*
00338  M00S00335.tmsproc +++|*   TMSDUMP ABORTED, SEE DAYFILE.
00339  M00S00336.tmsproc +++|*
00340  M00S00337.tmsproc +++|****************************************
00341  M00S00338.tmsproc +++|.IFE,$DPF$.NE.$$,DPF1.
00342  M00S00339.tmsproc +++|.IFE,$DFM$.NE.$$,DFM1.
00343  M00S00340.tmsproc +++|$FAMILY,DFM.
00344  M00S00341.tmsproc +++|.ENDIF,DFM1.
00345  M00S00342.tmsproc +++|$SUI,DUI.
00346  M00S00343.tmsproc +++|$PURGE,DPF/NA.
00347  M00S00344.tmsproc +++|$DEFINE,TAPE=DPF.
00348  M00S00345.tmsproc +++|$FAMILY,FM.
00349  M00S00346.tmsproc +++|$SUI,377777.
00350  M00S00347.tmsproc +++|.ENDIF,DPF1.
00351  M00S00348.tmsproc +++|$PFDUMP,#FM=FM,UI=377777,PF=ZZZZZFC.
00352  M00S00349.tmsproc +++|$REVERT. TMSDUMP COMPLETE.
00353  M00S00350.tmsproc +++|$EXIT.
00354  M00S00351.tmsproc +++|$OPMSG. TMSDUMP ABORTED, SEE DAYFILE.
00355  M00S00352.tmsproc +++|$REVERT,ABORT. TMSDUMP ABORTED.
00356  M00S00353.tmsproc +++|$EXIT.
00357  M00S00354.tmsproc +++|$REVERT,ABORT. TMSDUMP ABORTED.
00358  M00S00355.tmsproc +++|*WEOR
00359  M00S00356.tmsproc +++|.PROC,TMSLOAD,FM=,DFM=,DUI=377777,DPF=.
00360  M00S00357.tmsproc +++|.IFE,OT.NE.SYO,OT1.

Line S00358 Modification History
`M01` (Removed by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00361  M01S00358.nos252  ---|$REVERT,ABORT. INVALID ACCESS.

Line S00004 Modification History
`M01` (Added by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00362  M01S00004.nos252  +++|$REVERT,ABORT. INCORRECT ACCESS.
00363  M00S00359.tmsproc +++|.ENDIF,OT1.
00364  M00S00360.tmsproc +++|.IFE,$FM$.EQ.$$,FM1.
00365  M00S00361.tmsproc +++|$REVERT,ABORT. NO FAMILY NAME.
00366  M00S00362.tmsproc +++|.ENDIF,FM1.
00367  M00S00363.tmsproc +++|$FAMILY,FM.
00368  M00S00364.tmsproc +++|$SUI,377777.
00369  M00S00365.tmsproc +++|****************************************
00370  M00S00366.tmsproc +++|*
00371  M00S00367.tmsproc +++|* TMSLOAD
00372  M00S00368.tmsproc +++|*
00373  M00S00369.tmsproc +++|* THIS PROCEDURE USES *PFLOAD* TO RELOAD A
00374  M00S00370.tmsproc +++|* TAPE CATALOG FILE OF A FAMILY FROM A DIFFERENT
00375  M00S00371.tmsproc +++|* DEVICE.  THIS PROCEDURE MUST BE CALLED
00376  M00S00372.tmsproc +++|* FROM A SYSTEM ORIGIN JOB.
00377  M00S00373.tmsproc +++|*
00378  M00S00374.tmsproc +++|* FORMAT OF CALL -
00379  M00S00375.tmsproc +++|*
00380  M00S00376.tmsproc +++|*   TMSLOAD,FAMILY,#DFM,#DUI,#DPF.
00381  M00S00377.tmsproc +++|*
00382  M00S00378.tmsproc +++|*     FAMILY     NAME OF THE FAMILY OF THE
00383  M00S00379.tmsproc +++|*                TAPE CATALOG FILE TO RELOAD.
00384  M00S00380.tmsproc +++|*                MANDATORY ENTRY.
00385  M00S00381.tmsproc +++|*
00386  M00S00382.tmsproc +++|*     #DFM        NAME OF THE FAMILY THAT HAS
00387  M00S00383.tmsproc +++|*                THE DUMP FILE.  DEFAULT IS
00388  M00S00384.tmsproc +++|*                THE SAME AS THE FAMILY OF THE
00389  M00S00385.tmsproc +++|*                TAPE CATALOG FILE.
00390  M00S00386.tmsproc +++|*
00391  M00S00387.tmsproc +++|*     #DUI        USER INDEX THAT HAS THE DUMP
00392  M00S00388.tmsproc +++|*                FILE.  DEFAULT IS 377777.
00393  M00S00389.tmsproc +++|*
00394  M00S00390.tmsproc +++|*     #DPF        NAME OF THE DIRECT-ACCESS FILE
00395  M00S00391.tmsproc +++|*                THAT HAS THE LOAD FILE.  IF NOT
00396  M00S00392.tmsproc +++|*                SPECIFIED, THE LOCAL FILE
00397  M00S00393.tmsproc +++|*                *TAPE* IS ASSUMED TO BE
00398  M00S00394.tmsproc +++|*                THE DUMP FILE.
00399  M00S00395.tmsproc +++|*
00400  M00S00396.tmsproc +++|* THE CALLING JOB EXITS AT USER INDEX 377777
00401  M00S00397.tmsproc +++|* OF THE FAMILY.
00402  M00S00398.tmsproc +++|*
00403  M00S00399.tmsproc +++|* THE FOLLOWING LOCAL FILE NAMES ARE USED BY
00404  M00S00400.tmsproc +++|* *TMSLOAD* -
00405  M00S00401.tmsproc +++|*
00406  M00S00402.tmsproc +++|*   TAPE
00407  M00S00403.tmsproc +++|*
00408  M00S00404.tmsproc +++|* THE FOLLOWING MESSAGE MAY BE FLASHED BY
00409  M00S00405.tmsproc +++|* *TMSLOAD* IF UNSUCCESSFUL -
00410  M00S00406.tmsproc +++|*
00411  M00S00407.tmsproc +++|*   TMSLOAD ABORTED, SEE DAYFILE.
00412  M00S00408.tmsproc +++|*
00413  M00S00409.tmsproc +++|****************************************
00414  M00S00410.tmsproc +++|.IFE,$DPF$.NE.$$,DPF1.
00415  M00S00411.tmsproc +++|.IFE,$DFM$.NE.$$,DFM1.
00416  M00S00412.tmsproc +++|$FAMILY,DFM.
00417  M00S00413.tmsproc +++|.ENDIF,DFM1.
00418  M00S00414.tmsproc +++|$SUI,DUI.
00419  M00S00415.tmsproc +++|$ATTACH,TAPE=DPF.
00420  M00S00416.tmsproc +++|$FAMILY,FM.
00421  M00S00417.tmsproc +++|$SUI,377777.
00422  M00S00418.tmsproc +++|.ENDIF,DPF1.
00423  M00S00419.tmsproc +++|$REWIND,TAPE.
00424  M00S00420.tmsproc +++|$PFLOAD,#FM=FM,UI=377777,PF=ZZZZZFC,OP=OR.
00425  M00S00421.tmsproc +++|$REVERT. TMSLOAD COMPLETE.
00426  M00S00422.tmsproc +++|$EXIT.
00427  M00S00423.tmsproc +++|$OPMSG. TMSLOAD ABORTED, SEE DAYFILE.
00428  M00S00424.tmsproc +++|$REVERT,ABORT. TMSLOAD ABORTED.
00429  M00S00425.tmsproc +++|$EXIT.
00430  M00S00426.tmsproc +++|$REVERT,ABORT. TMSLOAD ABORTED.
00431  M00S00427.tmsproc +++|*WEOR
00432  M00S00428.tmsproc +++|.PROC,TMSRBLD,FM=,P=,N=NEW,I=DIRFILE.
00433  M00S00429.tmsproc +++|.IFE,OT.NE.SYO,OT1.

Line S00430 Modification History
`M01` (Removed by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00434  M01S00430.nos252  ---|$REVERT,ABORT. INVALID ACCESS.

Line S00005 Modification History
`M01` (Added by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00435  M01S00005.nos252  +++|$REVERT,ABORT. INCORRECT ACCESS.
00436  M00S00431.tmsproc +++|.ENDIF,OT1.
00437  M00S00432.tmsproc +++|.IFE,$FM$.EQ.$$,FM1.
00438  M00S00433.tmsproc +++|$REVERT,ABORT. NO FAMILY NAME.
00439  M00S00434.tmsproc +++|.ENDIF,FM1.
00440  M00S00435.tmsproc +++|$FAMILY,FM.
00441  M00S00436.tmsproc +++|$SUI,377777.
00442  M00S00437.tmsproc +++|****************************************
00443  M00S00438.tmsproc +++|*
00444  M00S00439.tmsproc +++|* TMSRBLD
00445  M00S00440.tmsproc +++|*
00446  M00S00441.tmsproc +++|* THIS PROCEDURE CAN BE USED TO REBUILD A
00447  M00S00442.tmsproc +++|* TAPE CATALOG FILE GIVEN AN OLD TAPE
00448  M00S00443.tmsproc +++|* CATALOG FILE AND A *TFSP* DIRECTIVE FILE.
00449  M00S00444.tmsproc +++|* THIS PROCEDURE MUST BE CALLED FROM A
00450  M00S00445.tmsproc +++|* SYSTEM ORIGIN JOB.
00451  M00S00446.tmsproc +++|*
00452  M00S00447.tmsproc +++|* FORMAT OF CALL -
00453  M00S00448.tmsproc +++|*
00454  M00S00449.tmsproc +++|*   TMSRBLD,FAMILY,OFN,NFN,DFN.
00455  M00S00450.tmsproc +++|*
00456  M00S00451.tmsproc +++|*     FAMILY     NAME OF FAMILY OF TAPE
00457  M00S00452.tmsproc +++|*                CATALOG FILE.  MANDATORY
00458  M00S00453.tmsproc +++|*                ENTRY.
00459  M00S00454.tmsproc +++|*
00460  M00S00455.tmsproc +++|*     OFN        LOCAL FILE NAME OF OLD
00461  M00S00456.tmsproc +++|*                TAPE CATALOG FILE TO BUILD
00462  M00S00457.tmsproc +++|*                AGAINST.  IF NOT SPECIFIED,
00463  M00S00458.tmsproc +++|*                THE DIRECT-ACCESS FILE
00464  M00S00459.tmsproc +++|*                *ZZZZZFC* ON USER INDEX
00465  M00S00460.tmsproc +++|*                377777 OF THE FAMILY IS
00466  M00S00461.tmsproc +++|*                USED.  *ZZZZZFC* MUST NOT
00467  M00S00462.tmsproc +++|*                BE A FAST-ATTACHED FILE
00468  M00S00463.tmsproc +++|*                WHEN *TMSRBLD* IS CALLED.
00469  M00S00464.tmsproc +++|*
00470  M00S00465.tmsproc +++|*     NFN        LOCAL FILE NAME OF THE
00471  M00S00466.tmsproc +++|*                REBUILT TAPE CATALOG FILE.
00472  M00S00467.tmsproc +++|*                DEFAULT IS *NEW*.  THE
00473  M00S00468.tmsproc +++|*                *OFN* AND *NFN* PARAMETERS
00474  M00S00469.tmsproc +++|*                MAY HAVE THE SAME NAME.
00475  M00S00470.tmsproc +++|*
00476  M00S00471.tmsproc +++|*     DFN        LOCAL FILE NAME OF THE
00477  M00S00472.tmsproc +++|*                *TFSP* DIRECTIVE INPUT
00478  M00S00473.tmsproc +++|*                FILE TO APPLY AGAINST THE
00479  M00S00474.tmsproc +++|*                OLD TAPE CATALOG FILE.
00480  M00S00475.tmsproc +++|*                DEFAULT IS *DIRFILE*.
00481  M00S00476.tmsproc +++|*
00482  M00S00477.tmsproc +++|* THE CALLING JOB EXITS AT USER INDEX 377777
00483  M00S00478.tmsproc +++|* OF THE FAMILY.
00484  M00S00479.tmsproc +++|*
00485  M00S00480.tmsproc +++|* THE FOLLOWING LOCAL FILE NAMES ARE USED BY
00486  M00S00481.tmsproc +++|* *TMSRBLD* -
00487  M00S00482.tmsproc +++|*
00488  M00S00483.tmsproc +++|*   ZZZZZFC
00489  M00S00484.tmsproc +++|*   NEW
00490  M00S00485.tmsproc +++|*   DIRFILE
00491  M00S00486.tmsproc +++|*
00492  M00S00487.tmsproc +++|* THE FOLLOWING MESSAGE MAY BE FLASHED BY
00493  M00S00488.tmsproc +++|* *TMSRBLD* IF UNSUCCESSFUL -
00494  M00S00489.tmsproc +++|*
00495  M00S00490.tmsproc +++|*   TMSRBLD ABORTED, CHECK DAYFILE.
00496  M00S00491.tmsproc +++|*
00497  M00S00492.tmsproc +++|****************************************
00498  M00S00493.tmsproc +++|$REWIND,I.
00499  M00S00494.tmsproc +++|.IFE,$P$.EQ.$$,P1.
00500  M00S00495.tmsproc +++|$ATTACH,ZZZZZFC/M=W.
00501  M00S00496.tmsproc +++|$TFSP,LF,#P=ZZZZZFC,#N=N,#I=I,A.
00502  M00S00497.tmsproc +++|.ELSE,P1.
00503  M00S00498.tmsproc +++|$TFSP,LF,#P=P,#N=N,#I=I,A.
00504  M00S00499.tmsproc +++|.ENDIF,P1.
00505  M00S00500.tmsproc +++|$REVERT. TMS TMSRBLD COMPLETE.
00506  M00S00501.tmsproc +++|$EXIT.
00507  M00S00502.tmsproc +++|$OPMSG. TMSRBLD ABORTED, SEE DAYFILE.
00508  M00S00503.tmsproc +++|$REVERT,ABORT. TMSRBLD ABORTED.
00509  M00S00504.tmsproc +++|$EXIT.
00510  M00S00505.tmsproc +++|$REVERT,ABORT. TMSRBLD ABORTED.
00511  M00S00506.tmsproc +++|*WEOR