/********************************************************* @Y30LB33*/ 00138803 /* @Y30LB33*/ 00144403 /* MSS GLOBAL DATA AREAS FOR AMS (VS2): 04/05/76 @ZA09521*/ 00150042 /* (1) MSS MESSAGE STRUCTURES @Y30LB30*/ 00200003 /* (2) SYSTEM ADAPTER DECLARATIONS @Y30LB30*/ 00250003 /* A) DATA STRUCTURES @Y30LB30*/ 00300003 /* B) SYMBOLIC RETURN CODES @Y30LB30*/ 00350003 /* (3) VOLUME SERVICE DECLARATIONS @Y30LB30*/ 00400003 /* A) DATA STRUCTURES @Y30LB30*/ 00450003 /* B) SYMBOLIC RETURN CODES @Y30LB30*/ 00500003 /* (4) INPUT/OUTPUT ADAPTER DECLARATIONS @Y30LB30*/ 00550003 /* (5) CONVENTIONALIZED NAMED VALUES DELCARATIONS @Y30LB30*/ 00600003 /* @Y30LB30*/ 00650003 /* CHANGE ACTIVITY - @YD00171*/ 00700003 /* @YD00171 @YD00171*/ 00750003 /* @YD00175 @YD00175*/ 00800003 /* CHANGE 03 3/18/75 NEW COPY CART. MSSC MESSAGE FORMAT @ZM00741*/ 00850003 /* CHANGE 04 11/10/75 NEW STAEPARM FORMAT @ZA05112*/ 00900003 /* CHANGE 05 03/04/76 MDFORCE IN MDAGL @ZA09521*/ 00910003 /* CHANGE 06 9/1/76 DCRR - REBUILD A VOLUME LABEL @ZDR2057*/ 00911003 /* CHANGE 07 10/13/76 FIX TO CTMSG CTARRAY MULTIPLE @ZA14727*/ 00921000 /* CHANGE 08 10/20/76 REPAIRV @ZA11014*/ 00921400 /* CHANGE 09 04/05/76 RACF D.S. PROTECTION FLAG IN VSDSTAT @G24LB31*/ 00923000 /* CHANGE 10 05/10/76 NEW KEYWORD FOR MODIFYC @G24LB40*/ 00930000 /* @YD00171*/ 00950003 /********************************************************* @Y30LB30*/ 01000003 /*@Y30LB30*/ 01050003 /********************************************************* @Y30LB33*/ 01100003 /* @Y30LB33*/ 01150003 /* THIS STRUCTURE IS THE FORMAT OF THE COPY CARTRIDGE @Y30LB33*/ 01200003 /* MESSAGE RETURNED AFTER THE SUCCESSFUL COMPLETION @Y30LB33*/ 01250003 /* OF THE USSC MACRO. @Y30LB33*/ 01300003 /* @Y30LB33*/ 01350003 /********************************************************* @Y30LB33*/ 01400003 /*@Y30LB33*/ 01450003 DCL CCMSGPTR PTR(31); /*PTR TO MSG AREA @Y30LB33*/ 01500003 /*@Y30LB33*/ 01550003 DCL 1 CCMSG BASED(CCMSGPTR), /*@Y30LB33*/ 01600003 2 CCPSTCDE CHAR(1), /* POST CODE @ZM00741*/ 01650003 2 CCEJCODE FIXED(8), /* EJECT CODE @ZM00741*/ 01700003 2 * CHAR(2), /* RESERVED @ZM00741*/ 01750003 2 CCVOL CHAR(6), /* VOLUME @Y30LB33*/ 01800003 2 * CHAR(2), /* RESERVED @ZM00741*/ 01850003 2 CCNEWCSN CHAR(12), /* REPLACEMENT CART @Y30LB33*/ 01900003 2 CCOLDCSN CHAR(12); /* OLD CARTRIDGE @Y30LB33*/ 01950003 /*@Y30LB33*/ 02000003 /*@Y30LB33*/ 02050003 /********************************************************* @Y30LB33*/ 02100003 /* @Y30LB33*/ 02150003 /* THIS STRUCTURE IS THE FORMAT OF THE MOVE AND @Y30LB33*/ 02200003 /* DEFINE MESSAGES RETURNED AFTER THE SUCCESSFUL @Y30LB33*/ 02250003 /* COMPLETION OF THE USSC MACRO @Y30LB33*/ 02300003 /* @Y30LB33*/ 02350003 /********************************************************* @Y30LB33*/ 02400003 /*@Y30LB33*/ 02450003 DCL CMMSGPTR PTR(31); /*PTR TO MSG AREA @Y30LB30*/ 02500003 /*@Y30LB33*/ 02550003 DCL 1 CMMSG BASED(CMMSGPTR), /*@Y30LB30*/ 02600003 2 CMOLDVOL CHAR(6), /* OLD VOLID @Y30LB30*/ 02650003 2 CMVOLFLG CHAR(1), /* MESSAGE FLAGS @Y30LB30*/ 02700003 3 CMCECART BIT(1), /* CE CART @Y30LB30*/ 02750003 3 CMSCRVOL BIT(1), /* SCRATCH VOLUME @Y30LB30*/ 02800003 3 CMDERAS BIT(1), /* DASD ERASE @Y30LB30*/ 02850003 3 CMEXCL BIT(1), /* EXCLUSIVE VOLUME @Y30LB30*/ 02900003 3 CMSCRCRT BIT(1), /* SCRATCH CARTRIDGE @Y30LB30*/ 02950003 3 CMBIND BIT(1), /* BOUND VOLUME @Y30LB30*/ 03000003 3 CMRONLY BIT(1), /* READONLY VOLUME @Y30LB30*/ 03050003 3 * BIT(1), /* UNUSED @Y30LB33*/ 03100003 2 * CHAR(1), /* UNUSED @Y30LB33*/ 03150003 2 CMNEWVOL CHAR(6), /* NEW VOLID @Y30LB30*/ 03200003 2 * CHAR(1), /* UNUSED @Y30LB33*/ 03250003 2 CMNUMCRT CHAR(1), /* NUMBER OF CARTS @Y30LB30*/ 03300003 2 CMCSN1 CHAR(12), /* CART SERIAL 1 @Y30LB30*/ 03350003 2 CMCSN2 CHAR(12); /* CART SERIAL 2 @Y30LB30*/ 03400003 /*@Y30LB33*/ 03450003 /********************************************************* @Y30LB33*/ 03500003 /* @Y30LB33*/ 03550003 /* THIS STRUCTURE IS THE FORMAT OF THE COPY TABLES @Y30LB33*/ 03600003 /* MESSAGE RETURNED AFTER THE SUCCESSFUL COMPLETION @Y30LB33*/ 03650003 /* OF THE USSC MACRO TO COPY THE MSC TABLES @Y30LB30*/ 03700003 /* @Y30LB33*/ 03750003 /********************************************************* @Y30LB33*/ 03800003 /*@Y30LB33*/ 03850003 DCL CTMSGPTR PTR(31); /*PTR TO MSG AREA @Y30LB33*/ 03900003 /*@Y30LB33*/ 03950003 DCL 1 CTMSG BASED(CTMSGPTR), /*@Y30LB33*/ 04000003 2 * CHAR(1), /* UNUSED @Y30LB33*/ 04050003 2 CTREALCC CHAR(2), /* CYLINDER IN @Y30LB33*/ 04100003 /* TARGET DATA SET @Y30LB33*/ 04150003 /* WHERE FIRST @Y30LB33*/ 04200003 /* BEGINS @Y30LB33*/ 04250003 2 CTREALH FIXED(8) UNSIGNED, /*@Y30LB33*/ 04300003 /* TRACK IN TARGET @Y30LB33*/ 04350003 /* DATA SET WHERE @Y30LB33*/ 04400003 /* FIRST TABLE @Y30LB33*/ 04450003 /* BEGINS @Y30LB33*/ 04500003 2 CTARRAY(14) CHAR(4), /* TABLE TRACKS @ZA14727*/ 04550000 3 CTTBLID CHAR(1), /* TABLE ID @Y30LB33*/ 04600003 3 CTTBLCC FIXED(8) /* CYLINDER WHERE @Y30LB33*/ 04650003 UNSIGNED, /* TABLE BEGAN ON @Y30LB33*/ 04700003 /* TABLE VOLUME @Y30LB33*/ 04750003 3 CTTBLHH FIXED(8) /* TRACK WHERE @Y30LB33*/ 04800003 UNSIGNED, /* TABLE BEGAN ON @Y30LB33*/ 04810003 /* TABLE VOLUME @Y30LB33*/ 04900003 3 CTTBLRR FIXED(8) /* RECORD WHERE @Y30LB33*/ 04950003 UNSIGNED; /* TABLE BEGAN ON @Y30LB33*/ 05000003 /* TABLE VOLUME @Y30LB33*/ 05050003 /* @Y30LB33*/ 05100003 /********************************************************* @Y30LB37*/ 05150003 /* @Y30LB37*/ 05200003 /* THIS STRUCTURE IS THE ARGUMENT LIST FOR MOUNT/DEMOUNT @Y30LB37*/ 05250003 /* FOR THE UMSSUNIT MACRO CALL. @Y30LB37*/ 05300003 /* @Y30LB37*/ 05350003 /********************************************************* @Y30LB37*/ 05400003 /*@Y30LB37*/ 05450003 DCL 1 MDAGL BDY(WORD) BASED, /*@Y30LB37*/ 05500003 2 MDHEAD CHAR(8), /*MDAGL HEADING @Y30LB37*/ 05550003 2 MDUCBPTR PTR(31), /*PTR TO UCB ADDR @Y30LB37*/ 05600003 2 MDDDNAME CHAR(8), /*DDNAME @Y30LB37*/ 05650003 2 MDPUAGL PTR(31), /*PTR TO PUAGL @Y30LB37*/ 05700003 2 MDLABEL CHAR(6), /*VOL SERIAL NUMBER @Y30LB37*/ 05750003 2 MDFLAGS, /*OPTION FLAGS @Y30LB37*/ 05800003 3 MDNEWVOL BIT(1), /*NEW VOLUME @Y30LB37*/ 05850003 3 MDCLEAR BIT(1), /*CLEAR WITH MOUNT @Y30LB37*/ 05900003 3 MDPOST BIT(1), /*POST WITH DEMOUNT @Y30LB37*/ 05950003 3 MDWAIT BIT(1), /*WAIT ON DEMOUNT @Y30LB37*/ 06000003 3 MDENQ BIT(1), /*INTERNAL ENQ FLAG @Y30LB37*/ 06050003 3 MDDEQ BIT(1), /*DEQ WITH DEMOUNT @YD00175*/ 06100003 3 MDFORCE BIT(1), /*FORCE DEMOUNT @ZA09521*/ 06150003 3 MDVTOCTR BIT(1), /* USE SUPPLIED VTOC @ZDR2057*/ 06151003 2 * CHAR(1), /* RESERVED (UNUSED) @ZDR2057*/ 06152003 2 MDVTOC CHAR(5) BDY(WORD), /* VTOC @ZDR2057*/ 06153003 3 MDCC FIXED(15), /* CC (CYLANDER) @ZDR2057*/ 06154003 3 MDHH FIXED(15), /* HH (HEAD) @ZDR2057*/ 06155003 3 MDR CHAR(1); /* R (RECORD) @ZDR2057*/ 06156003 /*@Y30LB30*/ 06200003 /********************************************************* @Y30LB37*/ 06250003 /* @Y30LB37*/ 06300003 /* THIS STRUCTURE IS THE ARGUMENT LIST FOR POST UCB @Y30LB37*/ 06350003 /* FOR THE UMSSUNIT MACRO CALL. @Y30LB37*/ 06400003 /* @Y30LB37*/ 06450003 /********************************************************* @Y30LB37*/ 06500003 /*@Y30LB37*/ 06550003 DCL 1 PUAGL BDY(WORD) BASED, /*@Y30LB37*/ 06600003 2 PUHEAD CHAR(8), /*PUAGL HEADING @Y30LB37*/ 06650003 2 PUUCBPTR PTR(31), /*UCB POINTER @Y30LB37*/ 06700003 2 PUTTRPTR PTR(31), /*TTR POINTER @Y30LB37*/ 06750003 2 PULABELP PTR(31); /*VOLUME LABEL PTR @Y30LB37*/ 06800003 /*@Y30LB37*/ 06850003 /********************************************************* @Y30LB37*/ 06900003 /* @Y30LB37*/ 06950003 /* THIS STRUCTURE IS THE ARGUMENT LIST FOR CHECK UCB @Y30LB37*/ 07000003 /* FOR THE UMSSUNIT MACRO CALL. @Y30LB37*/ 07050003 /* @Y30LB37*/ 07100003 /********************************************************* @Y30LB37*/ 07150003 /*@Y30LB37*/ 07200003 DCL 1 CKAGL BDY(WORD) BASED, /*@Y30LB37*/ 07250003 2 CKHEAD CHAR(8), /*CKAGL HEADING @Y30LB37*/ 07300003 2 CKUCBPTR PTR(31), /*UCB POINTER @Y30LB37*/ 07350003 2 CKDDNAME CHAR(8), /*DDNAME @Y30LB37*/ 07400003 2 CKDATYPE PTR(31), /*RET ADDR OF TYPE @Y30LB37*/ 07450003 2 CKLABELP PTR(31), /*VOLUME LABEL PTR @Y30LB37*/ 07500003 2 CKFLAGS, /*OPTION FLAGS @Y30LB37*/ 07550003 3 CKTESTVT BIT(1), /*TEST VIRTUAL @Y30LB37*/ 07600003 3 CKRETTYP BIT(1), /*RETURN TYPE @Y30LB37*/ 07650003 3 CKDMTABL BIT(1), /*TEST DEMOUNTABLE @Z40LB35*/ 07700003 3 * BIT(5); /*RESERVED @YD00175*/ 07750003 /*@Y30LB37*/ 07800003 /********************************************************* @YD00175*/ 07850003 /* @YD00175*/ 07900003 /* THIS STRUCTURE IS THE ARGUMENT LIST FOR EXCLUSIVE @YD00175*/ 07950003 /* CONTROL FOR THE UMSSUNIT MACRO CALL. @YD00175*/ 08000003 /* @YD00175*/ 08050003 /********************************************************* @YD00175*/ 08100003 /*@YD00175*/ 08150003 DCL 1 EXCLAGL BDY(WORD) BASED, /*@YD00175*/ 08200003 2 EXCLHEAD CHAR(8), /*EXCLAGL HEADING @YD00175*/ 08250003 2 EXCLUCBP PTR(31), /*UCB POINTER @YD00175*/ 08300003 2 EXCLDDP PTR(31), /*DDNAME POINTER @YD00175*/ 08350003 2 EXCLVOL CHAR(6), /*VOLUME SERIAL @YD00175*/ 08400003 2 EXCLFLAG, /*OPTION FLAGS @YD00175*/ 08450003 3 EXCLMNT BIT(1), /*VOLUME MOUNTED FLAG @YD00175*/ 08500003 3 * BIT(7); /*RESERVED @YD00175*/ 08550003 /*@YD00175*/ 08600003 /********************************************************* @YD00175*/ 08650003 /* @Y30LB35*/ 08700003 /* THIS STRUCTURE IS THE ARGUMENT LIST FOR OPEN @Y30LB35*/ 08750003 /* FOR THE UEXCP MACRO CALL. @Y30LB35*/ 08800003 /* @Y30LB35*/ 08850003 /********************************************************* @Y30LB35*/ 08900003 /*@Y30LB35*/ 08950003 DCL 1 EXOARG BDY(WORD) BASED, /*@Y30LB35*/ 09000003 2 EXOHEAD CHAR(8), /*RESERVED @Y30LB35*/ 09050003 2 EXODDN PTR(31), /*POINTER TO DDNAME @Y30LB35*/ 09100003 2 EXODSN PTR(31), /*POINTER TO DSNAME @Y30LB35*/ 09150003 2 EXOVSN PTR(31), /*POINTER TO VOL SER @Y30LB35*/ 09200003 2 EXOUCB PTR(31), /*POINTER TO UCB @Y30LB35*/ 09250003 2 EXOEXT PTR(31), /*POINTER RET EXTENTS @Y30LB30*/ 09300003 2 EXOCTLBK PTR(31), /*PTR RET IOCTLBK PTR @Y30LB30*/ 09350003 2 EXOPT, /*OPEN OPITIONS @Y30LB35*/ 09400003 3 EXOTAB BIT(1), /*OPEN FOR MSC TABLES @Y30LB30*/ 09450003 3 EXOLAB BIT(1), /*OPEN VOL LABEL @Y30LB35*/ 09500003 3 EXOPASS BIT(1), /*OPEN TEST PASSWD @Y30LB35*/ 09550003 3 EXONEW BIT(1), /*OPEN VOL TO INIT @Y30LB35*/ 09600003 3 EXOVTOC BIT(1), /*OPEN VOL TO READ @Z40LB35*/ 09650003 /*VTOC DSCBS @Z40LB35*/ 09700003 3 EXOREP BIT(1), /*REPAIR OPEN @ZA11014*/ 09750000 3 * BIT(2), /*RESERVED @ZA11014*/ 09770000 2 EXFLG, /*OPEN FLAGS @Y30LB35*/ 09790000 3 EXOREAD BIT(1), /*INDICATES READ ONLY @Y30LB35*/ 09810000 3 * BIT(2), /*RESERVED @ZA11014*/ 09830000 3 EXORVS BIT(1), /*VSAM DATA SET @ZA11014*/ 09850000 3 EXOSPK BIT(1), /*STAGING PACK @ZA11014*/ 09870000 3 EXORDS BIT(1), /*DATA SET @ZA11014*/ 09890000 3 EXORVT BIT(1), /*VTOC @ZA11014*/ 09910000 3 EXOVTH BIT(1); /*VTOC HEADER @ZA11014*/ 09930000 /*@Y30LB30*/ 09950003 /********************************************************* @Y30LB35*/ 10000003 /* @Y30LB35*/ 10050003 /* THIS STRUCTURE IS THE ARGUMENT LIST FOR GET @Y30LB35*/ 10100003 /* FOR THE UEXCP MACRO CALL. @Y30LB35*/ 10150003 /* @Y30LB35*/ 10200003 /********************************************************* @Y30LB35*/ 10250003 /*@Y30LB35*/ 10300003 DCL 1 EXGARG BDY(WORD) BASED, /*@Y30LB35*/ 10350003 2 EXGHEAD CHAR(8), /*RESERVED @Y30LB35*/ 10400003 2 EXGCTLBK PTR(31), /*POINTER TO IOCTLBK @Y30LB35*/ 10450003 2 EXGCCHH1 PTR(31), /*PTR TO SEEK CCHHR @Y30LB35*/ 10500003 2 EXGCCHH2 PTR(31), /*PTR TO SEARCH CCHHR @Y30LB35*/ 10550003 2 EXGRECNO FIXED(31), /*NUM RECORDS TO READ @Y30LB35*/ 10600003 2 EXGDATAP PTR(31), /*PTR AREA FOR RECS @Y30LB35*/ 10650003 2 EXGKEYLN FIXED(8) UNSIGNED, /*LEN OF KEY @Y30LB35*/ 10700003 2 * FIXED(8), /*RESERVED @Y30LB35*/ 10750003 2 EXGDATAL FIXED(15) UNSIGNED;/*LEN OF DATA @Y30LB35*/ 10800003 /********************************************************* @ZA11014*/ 10850000 /* @ZA11014*/ 10851000 /* THIS STRUCTURE IS THE ARGUMENT LIST FOR REPAIRV @ZA11014*/ 10852000 /* I/O CALLS TO THE UEXCP MACRO @ZA11014*/ 10853000 /* @ZA11014*/ 10854000 /********************************************************* @ZA11014*/ 10855000 /*@Y30LB35*/ 10856000 DCL 1 EXWRARG BDY(WORD) BASED, /*@ZA11014*/ 10857000 2 EXRWRES CHAR(8), /*RESERVED @ZA11014*/ 10858000 2 EXRWCTBL PTR(31), /*POINTER TO IOCTLBK @ZA11014*/ 10859000 2 EXRWIOAR PTR(31), /*PTR TO SEEK CCHHR @ZA11014*/ 10860000 2 EXRWDARE PTR(31), /*PTR TO SEARCH CCHHR @ZA11014*/ 10861000 2 EXLOCPTR PTR(31), /*NUM RECORDS TO READ @ZA11014*/ 10862000 2 EXCCWCNT FIXED(15), /*PTR AREA FOR RECS @ZA11014*/ 10863000 2 EXRWCHR, /*@ZA11014*/ 10864000 3 EXCC FIXED(16), /*@ZA11014*/ 10865000 3 EXHH FIXED(16), /*@ZA11014*/ 10866000 3 EXRECNUM FIXED(8), /*@ZA11014*/ 10867000 2 * FIXED(8), /* RESERVED @ZA11014*/ 10868000 2 EXRWKDLN PTR(31), /*@ZA11014*/ 10869000 2 EXSPACE, /*@ZA11014*/ 10870000 3 * FIXED(8), /*@ZA11014*/ 10871000 3 * PTR(24), /*@ZA11014*/ 10872000 3 * FIXED(15), /*@ZA11014*/ 10873000 3 * FIXED(15), /*@ZA11014*/ 10874000 3 * FIXED(15), /*@ZA11014*/ 10875000 2 EXRWFUN FIXED(8); /*@ZA11014*/ 10876000 /********************************************************* @Y30LB35*/ 10900003 /* @Y30LB35*/ 10950003 /* THIS STRUCTURE IS THE ARGUMENT LIST FOR PUT @Y30LB35*/ 11000003 /* FOR THE UEXCP MACRO CALL. @Y30LB35*/ 11050003 /* @Y30LB35*/ 11100003 /********************************************************* @Y30LB35*/ 11150003 /*@Y30LB35*/ 11200003 DCL 1 EXPARG BDY(WORD) BASED, /*@Y30LB35*/ 11250003 2 EXPHEAD CHAR(8), /*RESERVED @Y30LB35*/ 11300003 2 EXPCTLBK PTR(31), /*PTR IOCTLBK PTR @Y30LB35*/ 11350003 2 EXPDATA PTR(31), /*PTR DATA-TO-WRITE @Y30LB35*/ 11400003 2 EXPCCHHR PTR(31); /*PTR TO SEEK CCHHR @Y30LB35*/ 11450003 /*@Y30LB30*/ 11500003 /********************************************************* @Y30LB35*/ 11550003 /* @Y30LB35*/ 11600003 /* THIS STRUCTURE IS THE ARGUMENT LIST FOR DATA-TO-WRITE @Y30LB35*/ 11650003 /* FOR THE UEXCP MACRO CALL. @Y30LB35*/ 11700003 /* @Y30LB35*/ 11750003 /********************************************************* @Y30LB35*/ 11800003 /*@Y30LB35*/ 11850003 DCL 1 EXPDATAB BDY(WORD) BASED(EXPDATA), /*@Y30LB35*/ 11900003 2 EXPRECNO FIXED(31), /*NUM OF RECORDS @Y30LB35*/ 11950003 2 EXPARRAY (*), /*DATA-TO-WRITE ARRAY @Y30LB35*/ 12000003 3 EXPDATAP PTR(31), /*PTR TO DATA @Y30LB30*/ 12050003 3 EXPKEYLN FIXED(8) UNSIGNED, /*LEN OF KEY @Y30LB35*/ 12100003 3 * FIXED(8), /*RESERVED @Y30LB35*/ 12150003 3 EXPDATAL FIXED(15) UNSIGNED;/*LEN DATA @Y30LB35*/ 12200003 /*@Y30LB30*/ 12250003 /********************************************************* @Y30LB35*/ 12300003 /* @Y30LB35*/ 12350003 /* THIS STRUCTURE IS THE ARGUMENT LIST FOR VOLUME SERVICES @Y30LB35*/ 12400003 /* FOR THE 'INITVOL', 'GETLABEL', AND 'PUTLABEL' REQUEST. @Y30LB35*/ 12450003 /* @Y30LB35*/ 12500003 /********************************************************* @Y30LB35*/ 12550003 /*@Y30LB35*/ 12600003 DCL 1 VS2AGL BDY(WORD) BASED, /*@Y30LB35*/ 12650003 2 VS2HEAD CHAR(8), /*RESERVED @Y30LB35*/ 12700003 2 VSUCBPTR PTR(31), /*PTR TO UCB ADDR @Y30LB35*/ 12750003 2 VSVTOCSZ FIXED(31), /*VTOC TRK SIZE @Y30LB35*/ 12800003 2 VSOWNPTR PTR(31), /*PTR TO OWNER NAME @Y30LB30*/ 12850003 2 VSVOLPTR PTR(31), /*PTR TO VOLUME SER @Y30LB30*/ 12900003 2 VSIOBKPT PTR(31), /*PTR TO IOXCTLBK PTR @Y30LB30*/ 12950003 2 VSLABOPT, /*LABEL OPTIONS @Y30LB35*/ 13000003 3 VSOWNER BIT(1), /*RETRIEVE OR UPDATE @Y30LB35*/ 13050003 /*OWNER FIELD IN LABEL@Y30LB35*/ 13100003 3 VSVOLSER BIT(1), /*RETRIEVE OR UPDATE @Y30LB35*/ 13150003 /*VOL FIELD IN LABEL @Y30LB35*/ 13200003 3 VSNOVTOC BIT(1), /* NO DEFAULT VTOC @ZDR2057*/ 13201003 3 * BIT(5), /*RESERVED @ZDR2057*/ 13202003 2 VSVOLUME CHAR(6), /*SERIAL NUM FOR OPEN @Y30LB35*/ 13300003 2 VS2MSG, /*MESSAGE OPTION @Y30LB35*/ 13350003 3 VS2TOV BIT(1), /*TO VOLUME PLACED IN @Y30LB35*/ 13400003 /*MESSAGE @Y30LB35*/ 13450003 3 * BIT(7), /*RESERVED @Y30LB35*/ 13500003 2 VS2RESOP, /*RESERVE OPTION @Y30LB30*/ 13550003 3 VS2RES BIT(1), /*RESERVE TO BE @Y30LB35*/ 13600003 /*PERFORMED @Y30LB35*/ 13650003 3 VS2REAL BIT(1), /*REAL VOLUME @Y30LB35*/ 13700003 3 * BIT(6), /*RESERVED @Y30LB35*/ 13750003 2 VSDDNAME CHAR(8), /*DD NAME @YD00175*/ 13800003 2 * CHAR(3), /* RESERVED (UNUSED) @ZDR2057*/ 13801003 2 VSVTOCPT PTR(31); /* PTR TO VTOC @ZDR2057*/ 13802003 /*@Y30LB30*/ 13850003 /********************************************************* @Y30LB30*/ 13900003 /* @Y30LB30*/ 13950003 /* THIS STRUCTURE IS THE ARGUMENT LIST FOR VOLUME SERVICES @Y30LB30*/ 14000003 /* FOR THE 'SECCHECK', 'SCRVTOC ', 'GETVTOC ', 'PUTVTOC ', @Y30LB30*/ 14050003 /* AND 'RECATLG ' SERVICE REQUESTS. @Y30LB30*/ 14100003 /* @Y30LB30*/ 14150003 /********************************************************* @Y30LB30*/ 14200003 /*@Y30LB30*/ 14250003 DCL 1 VS1AGL BDY (WORD) BASED, /*@Y30LB30*/ 14300003 2 VSHEAD CHAR(8), /*RESERVED @Y30LB30*/ 14350003 2 VSUCBP PTR(31), /*UCB ADDRESS PTR @Y30LB30*/ 14400003 2 VSVOLP PTR(31), /*VOLUME SER PTR @Y30LB30*/ 14450003 2 VSFILEP PTR(31), /*DD NAME PTR @Y30LB30*/ 14500003 2 VSIOP PTR(31), /*VTOC IOCSTR PTR @Y30LB30*/ 14550003 2 VSNUMATP PTR(31), /*NO. ALT TRACK PTR @Y30LB30*/ 14600003 2 VSNXTATP PTR(31), /*NEXT ALT TRK PTR @Y30LB30*/ 14650003 2 VSCATP PTR(31), /*VSAM CAT NAME PTR @Y30LB30*/ 14700003 2 VSACBP PTR(31), /*VSAM CAT ACB PTR @Y30LB30*/ 14750003 2 VSCATDDP PTR(31), /*VSAM CAT DDNAME PTR @Y30LB30*/ 14800003 2 VSPSWDP PTR(31), /*VSAM CAT PSWD PTR @Y30LB30*/ 14850003 2 VSPFILEP PTR(31), /*PASSWORD FILE PTR @Y30LB30*/ 14900003 2 VSSERP PTR(31), /*NEW SERIAL PTR @Y30LB30*/ 14950003 2 VSDEVP PTR(31), /*DEVICE TYPE PTR @Y30LB30*/ 15000003 2 VSOSERP PTR(31), /*OLD SERIAL PTR @Y30LB30*/ 15050003 2 VSODEVP PTR(31), /*OLD DEVICE PTR @Y30LB30*/ 15100003 2 VSSECOPT, /*SECURITY CHECK OPT @Y30LB30*/ 15150003 3 VSNOVSAM BIT(1), /*NO VSAM DATA SETS @Y30LB30*/ 15200003 3 VSMASTER BIT(1), /*VSAM MASTER/RACF ALTER @G24LB31*/ 15250042 3 VSNONONV BIT(1), /*NO NON-VSAM D.S. @Y30LB30*/ 15300003 3 VSREAD BIT(1), /*NON-VSAM READ ACCESS @G24LB31*/ 15350042 3 VSWRITE BIT(1), /*NON-VSAM WRITE ACCESS @G24LB31*/ 15400042 3 VSUCTEST BIT(1), /*RET USER CAT INFO @Y30LB30*/ 15450003 3 VSOPCAT BIT(1), /*OPEN USERCAT VS/2 @Y30LB30*/ 15500003 3 VSUCMAST BIT(1), /*VSAM UCAT MASTER/RACF @G24LB31*/ 15550042 2 VSVTOPT, /*VTOC FIELD OPTIONS @Y30LB30*/ 15600003 3 VSTIME BIT(1), /*VSAM TIME STAMP @Y30LB30*/ 15650003 3 VSALTTRK BIT(1), /*ALTERNATE TRACKS @Y30LB30*/ 15700003 3 VSVSFLAG BIT(1), /*VSAM OWNERSHIP FLAG @Y30LB30*/ 15750003 3 * BIT(5), /*RESERVED @Y30LB30*/ 15800003 2 VSCATOPT, /*RECATALOG OPTIONS @Y30LB30*/ 15850003 3 VSDEVICE BIT(1), /*DEVICE TYPE @Y30LB30*/ 15900003 3 VSSERIAL BIT(1), /*VOLUME SERIAL @Y30LB30*/ 15950003 3 VSLIST BIT(1), /*LIST NAMES @Y30LB30*/ 16000003 3 * BIT(5), /*RESERVED @Y30LB30*/ 16050003 2 VSRETURN, /*INFORMATION RETURN @Y30LB30*/ 16100003 3 VSVSAM BIT(1), /*VOL OWNED BY VSAM @Y30LB30*/ 16150003 3 VSUCAT BIT(1), /*USER CAT ON VOLUME @Y30LB30*/ 16200003 3 * BIT(6), /*RESERVED @Y30LB30*/ 16250003 2 VSMSG, /*MESSAGE OPTIONS @Y30LB30*/ 16300003 3 VSFROMV BIT(1), /*FROM VOLUME @Y30LB30*/ 16350003 3 VSTOV BIT(1), /*TO VOLUME @Y30LB30*/ 16400003 3 * BIT(6), /*RESERVED @Y30LB30*/ 16450003 2 VSRESOPT, /*RESERVE OPTIONS @Y30LB30*/ 16500003 3 VSRES BIT(1), /*RESERVE VOLUME @Y30LB30*/ 16550003 3 VSREAL BIT(1), /*REAL VOLUME @Y30LB30*/ 16600003 3 * BIT(6); /*RESERVED @Y30LB30*/ 16650003 /*@Y30LB30*/ 16700003 /********************************************************* @Y30LB34*/ 16750003 /* @Y30LB34*/ 16800003 /* THIS STRUCTURE IS THE ARGUMENT LIST FOR URECAT MACRO @Y30LB34*/ 16850003 /* @Y30LB34*/ 16900003 /********************************************************* @Y30LB34*/ 16950003 /*@Y30LB34*/ 17000003 DCL 1 RCTAGL BDY(WORD) BASED, /* @Y30LB34*/ 17050003 2 RCTHEAD CHAR(8), /*RESERVED @Y30LB30*/ 17100003 2 RCTOPT CHAR(2), /*RECAT OPTIONS @Y30LB30*/ 17150003 3 RCTDEV BIT(1), /*DEVICE TYPE @Y30LB30*/ 17200003 3 RCTVOL BIT(1), /*VOLUME SERIAL @Y30LB30*/ 17250003 3 * BIT(6), /*RESERVED @Y30LB34*/ 17300003 2 * CHAR(2), /*RESERVED @Y30LB34*/ 17350003 2 RCTODEV FIXED(31), /*OLD DEV TYPE @Y30LB30*/ 17400003 2 RCTNDEV FIXED(31), /*NEW DEV TYPE @Y30LB30*/ 17450003 2 RCTOVOL CHAR(6), /*OLD VOL SER @Y30LB30*/ 17500003 2 RCTNVOL CHAR(6), /*NEW VOL SER @Y30LB30*/ 17550003 2 RCTDSET CHAR(44); /*DATA SET NAME @Y30LB30*/ 17600003 /*@Y30LB34*/ 17650003 /*@Y30LB34*/ 17700003 /********************************************************* @Y30LB30*/ 17750003 /* @Y30LB30*/ 17800003 /* THIS STRUCTURE IS THE ARGUMENT LIST FOR USTAE MACRO @Y30LB30*/ 17850003 /* @Y30LB30*/ 17900003 /********************************************************* @Y30LB30*/ 17950003 /*@Y30LB30*/ 18000003 DCL 1 STAEPARM BDY(WORD) BASED, /*@Y30LB33*/ 18050003 2 STAHEAD CHAR(8), /*RESERVED @Y30LB30*/ 18100003 2 STAVUCB PTR(31), /*VIRTUAL UCB ADDR @Y30LB30*/ 18150003 2 STAVVOL CHAR(6), /*VIRTUAL VOLSER @Y30LB30*/ 18200003 2 * CHAR(2), /*RESERVED @Y30LB30*/ 18250003 2 STARUCB PTR(31), /*REAL UCB ADDR @Y30LB30*/ 18300003 2 STARVOL CHAR(6), /*REAL VOLSER @Y30LB30*/ 18350003 2 * CHAR(2), /*RESERVED @Y30LB30*/ 18400003 2 STARTTR CHAR(4), /*TTR TO THE VTOC @Y30LB30*/ 18450003 2 STARTSAV PTR(31), /*PTR TO RETRY SAVAREA @Y30LB30*/ 18500003 2 STAEXSAV PTR(31), /*PTR STAEEXIT SAVAREA @Y30LB35*/ 18550003 2 STARTADD PTR(31), /*PTR TO RETRY AREA @Y30LB30*/ 18600003 2 STATCB PTR(31), /*PTR TO ENQUEUED TCB @Y30LB35*/ 18650003 2 STARCVY, /*TRACKING FLAGS @Y30LB30*/ 18700003 3 STAVMNT BIT(1), /*VIRT VOL MOUNTED @Y30LB30*/ 18750003 3 STAVDMNT BIT(1), /*VIRT VOL DEMOUNTED @Y30LB30*/ 18800003 3 STAVENQ BIT(1), /*VOL ENQUEUED @Y30LB30*/ 18850003 3 STAVPOST BIT(1), /*VIRT VOL POSTED @Y30LB30*/ 18900003 3 STACLEAR BIT(1), /*REAL UCB CLEARED @Y30LB30*/ 18950003 3 * BIT(3), /*RESERVED @Y30LB30*/ 19000003 2 STARETRY, /*RETRY FLAGS @Y30LB30*/ 19050003 3 STAIO05 BIT(1), /*IO5 RETRY IN CONTROL @Y30LB30*/ 19100003 3 STAOFF BIT(1), /*STAE CANCELLED (VS1) @Y30LB35*/ 19150003 3 STAVTOC BIT(1), /*OPEN VTOC IN-PROCESS @Z40LB35*/ 19200003 3 * BIT(5), /*RESERVED @ZA05112*/ 19250003 2 STAVTTR CHAR(4); /*VIRTUAL VTOC TTR @ZA05112*/ 19300003 /*@Y30LB37*/ 19350003 /********************************************************* @Y30LB37*/ 19400003 /* @Y30LB37*/ 19450003 /* THIS STRUCTURE IS THE MAPPING OF THE VOLUME LABEL REC @Y30LB37*/ 19500003 /* @Y30LB37*/ 19550003 /********************************************************* @Y30LB37*/ 19600003 /*@Y30LB37*/ 19650003 DCL 1 VOLLABEL BASED, 19700003 2 VOLKEY CHAR(4), /*VOL LABEL KEY @Y30LB37*/ 19750003 2 VOLLABI CHAR(3), /*LABEL ID 'VOL' @Y30LB37*/ 19800003 2 VOLNO CHAR(1), /*VOL LABEL SEQ NUMBER @Y30LB37*/ 19850003 2 VOLSERNO CHAR(6), /*VOLUME SERIAL @Y30LB37*/ 19900003 2 VOLSECTY CHAR(1), /*RESERVED @Y30LB37*/ 19950003 2 VOLVTOC CHAR(5), /*CCHHR OF THE VTOC @Y30LB37*/ 20000003 2 VOLRESV1 CHAR(25), /*RESERVED @Y30LB37*/ 20050003 2 VOLOWNER CHAR(10), /*USER NAME AREA @Y30LB37*/ 20100003 2 VOLRESV3 CHAR(29); /*RESERVED @Y30LB37*/ 20150003 /*@Y30LB37*/ 20200003 /********************************************************* @Y30LB35*/ 20250003 /* @Y30LB35*/ 20300003 /* THIS STRUCTURE IS THE MAPPING OF THE SVC 82 PARMLIST @Y30LB35*/ 20350003 /* @Y30LB35*/ 20400003 /********************************************************* @Y30LB35*/ 20450003 /*@Y30LB35*/ 20500003 DCL 1 SV82LIST BDY(WORD) BASED, /*SVC 82 ARG LIST @Y30LB35*/ 20550003 2 SV82CODE BIT(8), /*OPERATION CODE @Y30LB35*/ 20600003 2 SV82UCBP PTR(24), /*UCB ADDRESS @Y30LB35*/ 20650003 2 * PTR(31), /*THIRD ARGUMENT @Y30LB35*/ 20700003 3 SV82DCBP PTR(31), /*DCB PTR FOR - OPEN @Y30LB35*/ 20750003 4 SV82VOLP PTR(31),/*VOL PTR FOR - POST @Y30LB35*/ 20800003 2 SV82TTRP PTR(31), /*TTR TO VTOC ADDRESS @Y30LB35*/ 20850003 2 * PTR(31), /*FIFTH ARGUMENT @Y30LB35*/ 20900003 3 SV82WRKP PTR(31), /*ADD RET AREA - CLEAR @Y30LB35*/ 20950003 4 SV82DEBP PTR(31); /*ADDR DEB - CLOSE @Y30LB35*/ 21000003 /*@Y30LB35*/ 21050003 /********************************************************* @Z40LB37*/ 21100003 /* @Z40LB37*/ 21150003 /* SORT ARGUMENT LIST @Z40LB37*/ 21200003 /* @Z40LB37*/ 21250003 /********************************************************* @Z40LB37*/ 21300003 21350003 DCL 1 SRTAGL BDY(WORD) BASED, /* @Z40LB37*/ 21400003 2 SRTHEAD CHAR(8), /*SRTAGL HEADING @Z40LB37*/ 21450003 2 SRTADDR PTR(31), /*PTR TO FIRST @Z40LB37*/ 21500003 /*ELEMENT @Z40LB37*/ 21550003 2 SRTNUM FIXED(31), /*NUMBER OF @Z40LB37*/ 21600003 /*ELEMENTS @Z40LB37*/ 21650003 2 SRTLEN FIXED(31), /*LENGTH OF @Z40LB37*/ 21700003 /*ELEMENT @Z40LB37*/ 21750003 2 SRTPOSIT FIXED(31), /*SORT FIELD @Z40LB37*/ 21800003 /*STARTING POSITION @Z40LB37*/ 21850003 2 SRTFLDLN FIXED(31), /*SORT FIELD LENGTH @Z40LB37*/ 21900003 2 SRTWORKP PTR(31); /*WORK AREA ADDRESS @Z40LB37*/ 21950003 22000003 /********************************************************* @Z40LB37*/ 22050003 /* @Z40LB37*/ 22100003 /* ULOCATE DATA SET RETURNED INFORMATION AREA @Z40LB37*/ 22150003 /* @Z40LB37*/ 22200003 /********************************************************* @Z40LB37*/ 22250003 22300003 DCL 1 LCTINFO BDY(WORD) BASED, /* @Z40LB37*/ 22350003 2 LCTHEAD CHAR(8), /*LCTINFO HEADING @Z40LB37*/ 22400003 2 LCTMULVC FIXED(31), /*NUMBER OF VOLUMES @Z40LB37*/ 22450003 2 LCTACBP PTR(31), /*PTR TO THE ACB @Z40LB37*/ 22500003 2 LCTCREAT CHAR(4), /*VSAM CREATION DATE @Z40LB37*/ 22550003 2 LCTEXPIR CHAR(4), /*VSAM EXPIRATION @Z40LB37*/ 22600003 /*DATE @Z40LB37*/ 22650003 2 LCTOWNER CHAR(8), /*OWNER NAME @Z40LB37*/ 22700003 2 LCTFLAGS, /*RETURN FLAGS @Z40LB37*/ 22750003 3 LCTVSCAT BIT(1), /*VSAM CATALOG ENTRY @Z40LB37*/ 22800003 3 * BIT(7); /*RESERVED @Z40LB37*/ 22850003 22900003 /********************************************************* @Z40LB37*/ 22950003 /* @Z40LB37*/ 23000003 /* UUNCATLG ARGUMENT LIST @Z40LB63*/ 23050003 /* @Z40LB37*/ 23100003 /********************************************************* @Z40LB37*/ 23150003 23200003 DCL 1 UCTAGL BDY(WORD) BASED, /* @Z40LB63*/ 23250003 2 UCTHEAD CHAR(8), /*UCTAGL HEADING @Z40LB63*/ 23300003 2 UCTDSN CHAR(44), /*DATA SET NAME @Z40LB63*/ 23350003 2 UCTACBP PTR(31), /*PTR TO CAT ACB @Z40LB63*/ 23400003 2 UCTVOLP PTR(31), /*PTR TO VOLUME @Z40LB30*/ 23450003 /*LIST @Z40LB30*/ 23500003 2 UCTDD CHAR(8), /*DDNAME @Z40LB63*/ 23550003 2 UCTFLAGS, /*OPTION FLAGS @Z40LB63*/ 23600003 3 UCTVSCAT BIT(1), /*VSAM CATALOG @Z40LB63*/ 23650003 3 * BIT(7); /*RESERVED @Z40LB63*/ 23700003 23750003 /********************************************************* @Z40LB37*/ 23800003 /* @Z40LB37*/ 23850003 /* ARGUMENT LIST FOR SELECTING A DDNAME @Z40LB37*/ 23900003 /* @Z40LB37*/ 23950003 /********************************************************* @Z40LB37*/ 24000003 24050003 DCL 1 SELAGL BDY(WORD) BASED, /* @Z40LB37*/ 24100003 2 SELHEAD CHAR(8), /*SELAGL HEADING @Z40LB37*/ 24150003 2 SELUCBP PTR(31), /*UCB POINTER @Z40LB37*/ 24200003 2 SELDDNP PTR(31), /*DDNAME POINTER @Z40LB37*/ 24250003 2 SELVOL CHAR(6), /*VOLUME SERIAL @Z40LB37*/ 24300003 2 SELFLAGS, /*OPTION FLAGS @Z40LB37*/ 24350003 3 * BIT(8); /*RESERVED @Z40LB37*/ 24400003 24450003 /********************************************************* @Z40LB37*/ 24500003 /* @Z40LB37*/ 24550003 /* ARGUMENT LIST FOR CONVERT DATE PROCEDURE @Z40LB35*/ 24600003 /* @Z40LB37*/ 24650003 /********************************************************* @Z40LB37*/ 24700003 24750003 DCL 1 DATESAGL BDY(WORD) BASED, 24800003 2 DATHEAD CHAR(8), /*IDENTIFIER HEADER @Z40LB35*/ 24850003 2 DATDATE FIXED(31), /*DATE TO CONVERT @Z40LB35*/ 24900003 2 DATDAYS FIXED(31), /*DAYS TO ADJUST @Z40LB35*/ 24950003 2 DATRETRN PTR(31), /*RETURN PTR OF DATE @Z40LB35*/ 25000003 2 DATESOPT BIT(8), /*OPTIONS FLAGS @Z40LB35*/ 25050003 3 DATADD BIT(1), /*ADD DAYS TO DATE @Z40LB35*/ 25100003 3 DATSUB BIT(1), /*SUBTRACT DAYS @Z40LB35*/ 25150003 3 DATDTEOP BIT(1), /*ADJUST DAYS @Z40LB35*/ 25200003 3 DATDAYOP BIT(1), /*CONVERT DATE ONLY @Z40LB35*/ 25250003 3 * BIT(4); /*RESERVED @Z40LB35*/ 25300003 25350003 /********************************************************* @Z40LB35*/ 25400003 /* @Z40LB37*/ 25450003 /* SELECTDS DATA SET ARGUMENT LIST @Z40LB35*/ 25500003 /* @Z40LB35*/ 25550003 /********************************************************* @Z40LB37*/ 25600003 25650003 DCL 1 VS3AGL BDY(WORD) BASED, 25700003 2 VS3HEAD CHAR(8), /*RESERVED @Z40LB35*/ 25750003 2 VS3LISTP PTR(31), /*PTR LIST ADDR @Z40LB35*/ 25800003 2 VS3EXDSP PTR(31), /*PTR EXCLUDE DS @Z40LB35*/ 25850003 2 VS3LEVP PTR(31), /*PTR LEVEL QUAL @Z40LB35*/ 25900003 2 VS3LEVLN FIXED(15), /*LENGTH OF QUAL @Z40LB35*/ 25950003 2 VS3AST FIXED(15), /*OFFSET ASTERISK @Z40LB35*/ 26000003 2 VS3EXPIR PTR(31), /*PTR EXPIRATION DATE @Z40LB35*/ 26050003 2 VS3CREAT PTR(31), /*PTR CREATION DATE @Z40LB35*/ 26100003 2 VS3UCBP PTR(31), /*PTR UCB @Z40LB35*/ 26150003 2 VS3DEV CHAR(4), /*DEVICE TYPE @Z40LB35*/ 26200003 2 VS3POOL CHAR(4), /*STORAGE POOL ID @Z40LB35*/ 26250003 2 VS3VOL CHAR(6), /*SERIAL NUMBER @Z40LB35*/ 26300003 2 VS3DD CHAR(8), /*DDNAME FOR OPEN @Z40LB35*/ 26350003 2 VS3FLAGS, /*FLAGS @Z40LB35*/ 26400003 3 VS3STAT BIT(1), /*RETURN VSDSTAT @Z40LB35*/ 26450003 3 VS3USAGE BIT(1), /*RETURN VSDUSAGE @Z40LB35*/ 26500003 3 VS3SCR BIT(1), /*RETURN VSDSCR @Z40LB35*/ 26550003 3 VS3UNCAT BIT(1), /*UNCAT SELECTION @Z40LB35*/ 26600003 3 VS3SYSNM BIT(1), /*SYSTEM NAME @Z40LB35*/ 26650003 /*SELECTION @Z40LB35*/ 26700003 3 * BIT(3); /*RESERVED @Z40LB35*/ 26750003 26800003 /********************************************************* @YD00175*/ 26850003 /* @YD00175*/ 26900003 /* SELECTED DATA SET ARRAY @Z40LB35*/ 26950003 /* @Z40LB35*/ 27000003 /********************************************************* @Z40LB35*/ 27050003 27100003 DCL ELEMENT FIXED(31); /*ELEMENT COUNTER @Z40LB35*/ 27150003 27200003 DCL 1 VSDVTOC BASED(VSDSPACE),/*LSPACE INFO BLOCK @Z40LB35*/ 27250003 2 * CHAR(6), /*RESERVED @Z40LB35*/ 27300003 2 VSDFRCYL CHAR(4), /*TOTAL FREE CYL @Z40LB35*/ 27350003 2 * CHAR(1), /*RESERVED @Z40LB35*/ 27400003 2 VSDFRTRK CHAR(4), /*TOTAL FREE TRACKS @Z40LB35*/ 27450003 2 * CHAR(1), /*RESERVED @Z40LB35*/ 27500003 2 VSDFREXT CHAR(4), /*TOTAL FREE EXTENTS @Z40LB35*/ 27550003 2 * CHAR(1), /*RESERVED @Z40LB35*/ 27600003 2 VSDFRCCL CHAR(4); /*LARGEST CONT CYL @Z40LB35*/ 27650003 27700003 DCL 1 VSDSTAT BASED(ADDR(VSDVARY(ELEMENT))) BDY(WORD), 27750003 2 VSDCREAT FIXED(31), /*CREATION DATE @Z40LB35*/ 27800003 2 VSDEXPIR FIXED(31), /*EXPIRATION DATE @Z40LB35*/ 27850003 2 VSDOWNER CHAR(8), /*OWNER OF D. S. @Z40LB35*/ 27900003 2 VSDSFLG1 BIT(8), /*FLAG BYTE @Z40LB35*/ 27950003 3 VSDVTOCC BIT(1), /*CREATION DATE VTOC @Z40LB35*/ 28000003 3 VSDVTOCE BIT(1), /*EXPIRATION DATE @Z40LB35*/ 28050003 /*VTOC @Z40LB35*/ 28100003 3 VSDVSAMC BIT(1), /*CREATION DATE VSAM @Z40LB35*/ 28150003 3 VSDVSAME BIT(1), /*EXPIRATION DATE @Z40LB35*/ 28200003 /*VSAM @Z40LB35*/ 28250003 3 VSDCATLG BIT(1), /*DSN IS CATALOGED @Z40LB35*/ 28300003 3 VSDCVSAM BIT(1), /*CATLG IN VSAM @Z40LB35*/ 28350003 3 * BIT(2), /*RESERVED @Z40LB35*/ 28400003 2 VSDFLG2 BIT(8), /*FLAG BYTE @Z40LB35*/ 28450003 3 VSDPWR BIT(1), /*READ PROTECTED @Z40LB35*/ 28500003 3 VSDPWW BIT(1), /*WRITE PROTECTED @Z40LB35*/ 28550003 3 VSDPROT BIT(1), /*DSN IS PROTECTED @Z40LB35*/ 28600003 3 VSDERROR BIT(1), /*CATALOG ERROR @Z40LB35*/ 28650003 3 VSDRACF BIT(1), /*RACF PROTECTED @G24LB31*/ 28660042 3 * BIT(3), /*RESERVED @G24LB31*/ 28700042 /*THE FOLLOWING PORTION IS THE CALLERS WORK AREA @Z40LB35*/ 28750003 2 VSDCRE CHAR(2), /*CREATION DATE @Z40LB35*/ 28800003 2 VSDEXP CHAR(2), /*EXPIRATION DATE @Z40LB35*/ 28850003 2 VSDCAT CHAR(3), /*CATALOG INFO @Z40LB35*/ 28900003 2 VSDPRTC CHAR(4), /*PROTECTION INFO @G24LB31*/ 28950042 2 * CHAR(3); /*UNUSED, BDY ALIGN @G24LB31*/ 28960042 29000003 DCL 1 VSDSCR BASED(ADDR(VSDVARY(ELEMENT))) BDY(WORD), 29050003 2 VSDACBPT PTR(31), /*ACB PTR TO VSAM CAT @Z40LB35*/ 29100003 2 VSDSCRFL BIT(8), /*FLAG BYTE @Z40LB35*/ 29150003 3 VSDCATLC BIT(1), /*DATA SET IN CATLG @Z40LB35*/ 29200003 3 VSDVSAM BIT(1), /*DSN IN VSAM CATLG @Z40LB35*/ 29250003 3 * BIT(6), /*RESERVED @Z40LB35*/ 29300003 2 * CHAR(3); /*RESERVED @Z40LB35*/ 29350003 29400003 29450003 DCL 1 VSDUSAGE BASED(ADDR(VSDVARY(ELEMENT))) BDY(WORD), 29500003 2 VSDTRKS FIXED(15), /*TRACKS ALLOCATED @Z40LB35*/ 29550003 2 VSDFTRK FIXED(15), /*TRACKS FREE @Z40LB35*/ 29600003 2 VSDSECAL FIXED(31), /*SECONDARY ALLOC @Z40LB35*/ 29650003 2 VSDEXTS FIXED(8), /*NUMBER EXTENTS @Z40LB35*/ 29700003 2 VSDDORG BIT(8), /*FLAG BYTE @Z40LB35*/ 29750003 3 VSDOPO BIT(1), /*PARTITIONED ORG @Z40LB35*/ 29800003 3 VSDOPS BIT(1), /*PHYSICAL SEQUENTIAL @Z40LB35*/ 29850003 3 VSDOUN BIT(1), /*UNKNOWN ORG @Z40LB35*/ 29900003 3 VSDODA BIT(1), /*DIRECT ACCESS ORG @Z40LB35*/ 29950003 3 VSDOIS BIT(1), /*INDEX SEQ ORG @Z40LB35*/ 30000003 3 VSDOU BIT(1), /*UNMOVEABLE @Z40LB35*/ 30050003 3 * BIT(2), /*RESERVED @Z40LB35*/ 30100003 2 VSDALLOC BIT(8), /*FLAG BYTE @Z40LB35*/ 30150003 3 VSDACYL BIT(1), /*CYLINDER ALLOC @Z40LB35*/ 30200003 3 VSDATRK BIT(1), /*TRACK ALLOC @Z40LB35*/ 30250003 3 VSDABLK BIT(1), /*BLOCK ALLOC @Z40LB35*/ 30300003 3 VSDABSTR BIT(1), /*ABSOLUTE TRACKS @Z40LB35*/ 30350003 3 * BIT(4), /*RESERVED @Z40LB35*/ 30400003 2 VSDUSEF BIT(8), /*FLAG BYTE @Z40LB35*/ 30450003 3 VSDCALFR BIT(1), /*UNABLE CAL. SPACE @Z40LB35*/ 30500003 3 * BIT(7), /*RESERVED @Z40LB35*/ 30550003 /*THE FOLLOWING PORTION IS THE CALLERS WORK AREA @Z40LB35*/ 30600003 2 VSDSCAL CHAR(4), /*SECONDARY ALLOC @Z40LB35*/ 30650003 2 VSDDSORG CHAR(3), /*DSORG @Z40LB35*/ 30700003 3 * CHAR(2), /*RESERVED @Z40LB35*/ 30750003 3 VSDDSOR3 CHAR(1), /*DSORG INFO @Z40LB35*/ 30800003 2 VSDALLC CHAR(5), /*TOTAL TRKS ALLOC @Z40LB35*/ 30850003 2 VSDFREE CHAR(4); /*FREE TRACKS @Z40LB35*/ 30900003 30950003 DCL 1 VSDBLOCK BDY(WORD) BASED, 31000003 2 VSDELEM FIXED(31), /*NUMBER DSN'S @Z40LB35*/ 31050003 2 VSDVTOCS FIXED(31), /*NUMBER TRKS IN VTOC @Z40LB35*/ 31100003 2 VSDFMT0 FIXED(31), /*NUMBER FMT0 IN VTOC @Z40LB35*/ 31150003 2 VSDSPACE PTR(31), /*PTR TO LSPACE INFO @Z40LB35*/ 31200003 2 VSDARRAY(*) BDY(WORD), 31250003 3 VSDVOLCT FIXED(31), /*VOLUME COUNT @Z40LB35*/ 31300003 3 VSDDSN CHAR(44), /*DSN @Z40LB35*/ 31350003 3 VSDVARY CHAR(MAX(LENGTH(VSDSTAT), 31400003 LENGTH(VSDSCR),LENGTH(VSDUSAGE))); /*@Z40LB35*/ 31450003 31500003 /********************************************************* @YD00175*/ 31550003 /* @YD00175*/ 31600003 /* KEYWORD ARGUMENT DECLARATIONS FOR ADAPTORS AND #Y30LB30*/ 31650003 /* VOLUME SERVICES #Y30LB30*/ 31700003 /* #Y30LB30*/ 31750003 /********************************************************* #Y30LB30*/ 31800003 /*#Y30LB30*/ 31850003 DCL SECCHECK CHAR(8) INIT('SECCHECK'); /*#Y30LB30*/ 31900003 /*ARGUMENT FOR SECURITY CHECK */ 31950003 DCL SCRVTOC CHAR(8) INIT('SCRVTOC '); /*#Y30LB30*/ 32000003 /*ARGUMENT FOR SCRATCH */ 32050003 DCL GETVTOC CHAR(8) INIT('GETVTOC '); /*@Y30LB30*/ 32100003 /*ARGURMENT FOR GET VTOC */ 32150003 DCL PUTVTOC CHAR(8) INIT('PUTVTOC '); /*@Y30LB30*/ 32200003 /*ARGUMENT FOR PUT VTOC */ 32250003 DCL RECATLG CHAR(8) INIT('RECATLG '); /*@Y30LB30*/ 32300003 /*ARGUMENT FOR RECATALOG */ 32350003 DCL INITVOL CHAR(8) INIT('INITVOL '); /*@Y30LB30*/ 32400003 /*ARGUMENT FOR INIT VOLUME */ 32450003 DCL CHECK CHAR(8) INIT('CHECK '); /*@Y30LB30*/ 32500003 /*ARGUMENT FOR CHECK UCB */ 32550003 DCL POSTUCB CHAR(8) INIT('POSTUCB '); /*@Y30LB30*/ 32600003 /*ARGUMENT FOR POST UCB */ 32650003 DCL GET CHAR(8) INIT('GET '); /*@Y30LB30*/ 32700003 /*ARGUMENT FOR GET EXCP RECORD*/ 32750003 DCL PUT CHAR(8) INIT('PUT '); /*@Y30LB30*/ 32800003 /*ARGUMENT FOR PUT EXCP RECORD*/ 32850003 DCL CLOSE CHAR(8) INIT('CLOSE '); /*@Y30LB30*/ 32900003 /*ARGUMENT FOR CLOSE EXCP DCB */ 32950003 DCL OPEN CHAR(8) INIT('OPEN '); /*@Y30LB30*/ 33000003 /*ARGUMENT FOR OPEN EXCP DCB */ 33050003 DCL RVOPENR CHAR(8) INIT('OPENR '); /*@ZA11014*/ 33057000 DCL RVRDCNT CHAR(8) INIT('READCNT '); /*@ZA11014*/ 33064000 DCL RVREADKD CHAR(8) INIT('READKD '); /*@ZA11014*/ 33071000 DCL RVSPACCR CHAR(8) INIT('SPACCR '); /*@ZA11014*/ 33078000 DCL RVFWRITE CHAR(8) INIT('FWRITE '); /*@ZA11014*/ 33085000 DCL RVWRITER CHAR(8) INIT('WRITEREC'); /*@ZA11014*/ 33092000 DCL PUTLABEL CHAR(8) INIT('PUTLABEL'); /*@Y30LB30*/ 33100003 /*PUTLABEL VS02 REQUEST */ 33150003 DCL GETLABEL CHAR(8) INIT('GETLABEL'); /*@Y30LB30*/ 33200003 /*GETLABEL VS02 REQUEST */ 33250003 DCL CANCEL CHAR(8) INIT('CANCEL '); /*@Y30LB37*/ 33300003 /*CANCEL REQUEST FOR USTAE */ 33350003 DCL SET CHAR(8) INIT('SET '); /*@Y30LB37*/ 33400003 /*SET REQUEST FOR USTAE */ 33450003 DCL SELECTX CHAR(8) INIT('SELECTX '); /*@YD00175*/ 33500003 /*SELECT REQUEST FOR UMSSUNIT */ 33550003 DCL CHANGEX CHAR(8) INIT('CHANGEX '); /*@YD00175*/ 33600003 /*CHANGE REQUEST FOR UMSSUNIT */ 33650003 DCL SELECTDD CHAR(8) INIT('SELECTDD'); /*@Z40LB37*/ 33700003 /*SELECTDD REQUEST @Z40LB37*/ 33750003 /*FOR UMSSUNIT @Z40LB37*/ 33800003 DCL SELECTDS CHAR(8) INIT('SELECTDS'); /*@Z40LB37*/ 33850003 /*SELECTDS REQUEST @Z40LB37*/ 33900003 /*FOR IDCVS03 @Z40LB37*/ 33950003 /* @Y40LB63*/ 34000003 /********************************************************* @Y40LB63*/ 34050003 /* @Y40LB63*/ 34100003 /* KEYWORD ARGUMENT DECLARATIONS FOR USSC MACRO FOR @Y40LB63*/ 34150003 /* MSS RECOVERY @Y40LB63*/ 34200003 /* @Y40LB63*/ 34250003 /********************************************************* @Y40LB63*/ 34300003 DCL TBLREST CHAR(8) INIT('TBLREST '); /*@Y40LB63*/ 34350003 /*COPY TABLES FOR @Y40LB63*/ 34400003 /*INTERNAL TABLE @Y40LB63*/ 34450003 /*RESTORE @Y40LB63*/ 34500003 DCL NULLIFYC CHAR(8) INIT ('NULLIFYC'); /*@Y40LB63*/ 34550003 /*NULLIFYC ORDER WHICH */ 34600003 /*ELEMINATES ALL TRACE */ 34650003 /*OF ACTIVE OR INACTIVE */ 34700003 /*VOLUME OR A SCRATCH CART */ 34750003 DCL RDMSC CHAR(8) INIT ('RDMSC '); /*@Y40LB63*/ 34800003 /*QUERY ORDER TO READ MSC */ 34850003 /*STORAGE @Y40LB63*/ 34900003 DCL RDMSCTBL CHAR(8) INIT ('RDMSCTBL'); /*@Y40LB63*/ 34950003 /*QUERY ORDER TO READ MSC */ 35000003 /*TABLES @Y40LB63*/ 35050003 DCL RDCARTLB CHAR(8) INIT ('RDCARTLB'); /*@Y40LB63*/ 35100003 /*QUERY ORDER TO READ A */ 35150003 /*CARTRIDGE LABEL @Y40LB63*/ 35200003 DCL AUDITCEL CHAR(8) INIT('AUDITCEL'); /*@Y40LB63*/ 35250003 /*QUERY ORDER TO DO A CELL */ 35300003 /*AUDIT OF THE MSF @Y40LB63*/ 35350003 DCL RDSTGAD CHAR(8) INIT ('RDSTGAD '); /*@Y40LB63*/ 35400003 /*QUERY ORDER TO READ STAG- */ 35450003 /*ING ADAPTER STORAGE @Y40LB63*/ 35500003 DCL MODIFYC CHAR(8) INIT ('MODIFYC '); /*@G24LB40*/ 35510042 /*MODIFY CARTRIDGE @G24LB40*/ 35520042 /*ORDER @G24LB40*/ 35530042 % /*#Y30LB30*/ 35550003 /********************************************************* @Y30LB30*/ 35600003 /* @Y30LB30*/ 35650003 /* SYMBOLIC DEFINITIONS @Y30LB30*/ 35700003 /* @Y30LB30*/ 35750003 /********************************************************* @Y30LB30*/ 35800003 /*@Y30LB30*/ 35850003 DCL (RCNRECAT, /*DATA SET NOT RECAT @Y30LB30*/ 35900003 RCVVIERR, /*VVIC ERROR @Y30LB35*/ 35950003 RCDSERR, /*ERR FROM IDCVS03 @Z40LB35*/ 36000003 RCDSCLS, /*ERR IDCVS03 CLOSE @Z40LB35*/ 36050003 RCNLOCAT, /*NOT LOCATED IDCSA07 @Z40LB37*/ 36100003 RCNCLOSE) FIXED; /*CLOSE ERROR @Y30LB35*/ 36150003 /*@Y30LB30*/ 36200003 % RCNLOCAT = 8; /*DATA SET NOT LOCAT @Y40LB37*/ 36250003 % RCNRECAT = 8; /*DATA SET NOT RECAT @Y30LB30*/ 36300003 % RCNCLOSE = 8; /*DATA SET NOT CLOSED @Y30LB30*/ 36350003 % RCVVIERR = 12; /*ERR CODE FROM VVIC @Y30LB30*/ 36400003 % RCDSERR = 8; /*ERR FROM IDCVS03 @Z40LB35*/ 36450003 % RCDSCLS = 12; /*ERR IDCVS03 CLOSE @Z40LB35*/ 36500003 % NULLAREA = '''''B'; /*USED TO CLEAR PARM @Y30LB30*/ 36550003