MACRO 00010003 &NAME MOUNTREC 00020004 * 00030001 MNTRDW DC S(MNTLEN) RDW, RECORD DESCRIPTOR WORD 00040031 DS H 00050031 ALOCDATE DS PL4 1-4 FIRST DATE FOR VOLUME ALLOCATION 00060031 ALOCTIME DS XL4 5-8 FIRST TIME FOR VOLUME ALLOCATION 00070031 * ALL TIMES ARE HHMMSSTH 00080054 MNTSDATE DS PL4 9-12 FIRST DATE MOUNT PENDING SEEN 00090031 MNTSTIME DS XL4 13-16 FIRST TIME MOUNT PENDING SEEN 00100031 * ALOC TIME IN TOTAL RECORD 00110033 * 00120001 MNTEDATE DS PL4 17-20 LAST DATE MOUNT PENDING SEEN 00130031 MNTETIME DS XL4 21-24 LAST TIME MOUNT PENDING SEEN 00140031 * MPEND TIME IN TOTAL RECORD 00150033 * 00160000 FSTPART EQU *-ALOCDATE 00170025 DEVNUMB DS XL2 25-26 4 DIGIT DEVICE NUMBER 00180031 CUASLEEP DS XL2 27-28 LONGEST SLEEP INTERVAL 00190057 * 00200000 MNTTYPE DS 0XL4 29-32 UCB TYPE FIELD 00210031 MNTBYT1 DS X 29-29 UCB BYTE 1 00220031 MNTBYT2 DS X 30-30 UCB BYTE 2 00230031 MNTBYT3 DS X 31-31 UCB BYTE 3 X'80' = TAPE 00240031 MNTBYT4 DS X 32-32 UCB BYTE 4 DEVICE TYPE 00250031 * X'03'=3420, X'80'=3480, 00260030 * X'81'=3490, X'83'=3590 00270030 * 00280019 SYSID DS CL4 33-36 SYSTEM ID 00290031 * 00300000 JOBNAME DS CL8 37-44 JOBNAME USING TAPE DEVICE 00310031 STEPNAME DS CL8 45-52 STEPNAME USING TAPE 00320031 PROCNAME DS CL8 53-60 PROC STEPNAME USING TAPE 00330031 JESNUM DS XL2 61-62 LAST 2 BYTES OF JESNUM SEE 111 00340067 * 00350007 VOLSER DS CL6 63-68 VOLUME SERIAL NUMBER USED 00360031 * 00370001 MNTFLG1 DS X 69-69 FLAG FIELD 1 00380031 F1SPEC EQU X'80' SPECIFIC MOUNT REQUEST FLAG 00390030 F1CSL EQU X'40' CSL PRESENT ON DEVICE 00400030 F1STRTD EQU X'20' ALLOC IN PROGRESS WHEN STARTED 00410030 F1TRUNC EQU X'10' ALLOC IN PROGRESS WHEN ENDED 00420030 F1NOSIO EQU X'08' NO SIO VALUES AVAILABLE 00430030 F1TERM EQU X'04' JOB TERMINATED B4 MNT DONE 00440034 F1ALERT EQU X'02' ALERT ALREADY ISSUED 00450039 F1DISC EQU X'01' %DISC ALERT ALREADY ISSUED 00460064 MNTFLG2 DS X 70-70 FLAG FIELD 2 00470031 TOTREC EQU X'80' INTERVAL DEVICE TOTAL RECORD 00480032 ENDREC EQU X'40' INTERVAL END OF ALLOC RECORD 00490036 * EQU X'20' EXTRA FLAG USED IN REPORTING 00500049 * EQU X'10' EXTRA FLAG USED IN REPORTING 00510049 ISSTC EQU X'08' STARTED TASK 00520058 DIDFLUSH EQU X'04' WRITTEN BECAUSE OF FLUSH 00530050 NEWFLUSH EQU X'02' NEW RECORD BECAUSE OF FLUSH 00540050 MLTDSN EQU X'01' N,SL FILE 00550048 * 00560001 DSNSEQ DS XL2 71-72 DSN SEQ ON VOLUME 00570047 VOLSIO DS XL4 73-76 UCB START IO COUNT 00580037 * IF BELOW 16MB LINE 00590030 AENDDATE DS PL4 77-80 LAST DATE FOR VOLUME ALLOCATION 00600037 AENDTIME DS XL4 81-84 LAST TIME FOR VOLUME ALLOCATION 00610037 * 00620014 * FOLLOWING FIELDS FROM CHANNEL MEASUREMENT BLOCK 00630038 * DESCRIBED IN PRINCIPLES OF OPS 00640030 * ((FIELD * 128)+50000)/100000 = TENTHS OF SECONDS 00650038 CONNTIME DS XL4 85-88 DEVICE CONNECT TIME 00660037 PENDTIME DS XL4 89-92 DEVICE PEND TIME 00670037 DISCTIME DS XL4 93-96 DEVICE DISCONNECT TIME 00680037 CUQTIME DS XL4 97-100 CONTROL UNIT QUEUE TIME 00690037 * 00700012 GRPNAME DS XL8 101-108 GROUP NAME FILLED IN BY REPORTER 00710037 LOADTIME DS XL2 109-110 USER SUPPLIED LOAD THREAD TIME 00720044 JESNUM1 DS XL1 111-111 FIRST BYTE OF JESNUM 00730067 RES112 DS XL1 112-112 DEBUGGING FLAGS - WHY REC WRITTEN 00740070 DEBUG1 EQU X'80' 00741070 DEBUG2 EQU X'40' 00742070 DEBUG3 EQU X'20' 00743070 DEBUG4 EQU X'10' 00744070 DEBUG5 EQU X'08' 00745070 DEBUG6 EQU X'04' 00746070 DEBUG7 EQU X'02' 00747070 DEBUG8 EQU X'01' 00748070 REWDATE DS PL4 113-116 DATE REWIND FIRST SEEN 00750052 REWTIME DS XL4 117-120 TIME REWIND FIRST SEEN 00760052 NRDYDATE DS PL4 121-124 DATE NRDY FIRST SEEN 00770053 NRDYTIME DS XL4 125-128 TIME NRDY FIRST SEEN 00780053 OPENDATE DS PL4 129-132 DATE SCRATCH VOLSER FIRST SEEN 00790059 OPENTIME DS XL4 133-136 TIME SCRATCH VOLSER FIRST SEEN 00800059 * ADD ANY NEW FIELDS AT THE END OF THE RECORD AND RELY ON MNTRDW 00810012 * VALUE TO DETERMINE WHAT DATA FIELDS ARE AVAILABLE. 00820012 * CHANGE MOUNTSMF ALSO. PLUS SORTIN AND SORTED DCBS IN EACH MODULE. 00830061 JOBPART EQU *-JOBNAME 00840019 ASMDTMER DS 0CL14 00841069 ASMDATER DC CL9' ' 137-145 ASSEMBLY DATE IN RECORD 00850068 ASMTIMER DC CL5' ' 146-150 ASSEMBLY TIME IN RECORD 00860068 MNTLEN EQU *-MNTRDW 00870019 MEND 00880001