* % GOTO SIOTBSL; /* 00010020 MACRO 00020000 IEFASIOT 00040000 * PRIVATE CATALOG SUPPORT Y010001 01/27/72 00042001 .* C 024090,718600 A 024090-024099,719100-720100 Y01113 00044001 * 024420-024440 21774 00050401 * 669600 M0237 00052020 * 022600-023400,669600-676600 M0231 00060020 * MACMEAN SIOT MEANS STEP INPUT/OUTPUT TABLE 00070002 * MACCOMP Y-2 SC1B9/PZD02 @G29AN2F 00072003 * MACSTAT 82110/OZ61887 3.8 PTF @ZA61887 00075003 * STATUS - OS/VS2 PTF @ZA61887 00080003 * 00085003 * CHANGE ACTIVITY - OZ12405, OZ13854, OZ20610 @ZA20610 00090003 * OZ28955, OZ33579, OZ34258, OZ41829 @ZA41829 00095003 * OZ52570, OZ58701,OZ61887 @ZA61887 00097503 * 00100003 * IEFASIOT - C - TWO BITS DEFINED AS MSS-ALL (SIOTMSS) AND @ZA34258 00105003 * MSS-MIXED(SIOTMXD) INDICATORS @ZA34258 00108003 * IEFASIOT - C - UPDATED SCTSBYT4 IN BAL TO ADD SYMBOLIC NAMES @ZA34258 00111003 * IEFASIOT - C - DEFINE SIOTAFF, CODE DROPPED FROM SU16 @ZA33579 00114003 * IEFASIOT - C - UPDATED SCTUTYPE IN BAL TO ADD SYMBOLIC NAMES @ZA41829 00116903 * CLARIFY COMMENTS ABOUT LABEL SIOUCNVT @ZA41829 00118703 * IN BOTH PLS AND BAL. @ZA41829 00119303 * IEFASIOT - C - REDEFINE SIOTATE TO SIOTPSVA-SUPPORT FOR @ZA52570 00119403 * OZ38945 @ZA52570 00119503 * IEFASIOT - C - DEFINE SIOTEDLG TO SAVE THE SUBPOOL @ZA58701 00119603 * NUMBER OF STORAGE FOR THE EDL @ZA58701 00119703 * IEFASIOT - C - SIOTDEFC DEFINED. INDICATOR TO JES3 THAT @ZA61887 00119803 * DEFAULT COPIES WAS SET. @ZA61887 00119903 DS 0D 00120000 INDMSIOT EQU * STEP I-O TABLE 00140000 SIOTDSKA DS CL3 DISK ADDRESS OF SIOT 00160000 SIOTTYPE DS CL1 TABLE ID OF SIOT =3 00180002 SIOTID EQU 3 00200000 DSNID EQU 7 00240000 SCTDDNAM DS CL8 THE DDNAME FROM THE DD CARD 00290002 SIOTDEST DS CL8 USER ID ENABLING SYSOUT TO BE Y02668 00340002 * ROUTED VIA JCL Y02668 00390002 SCTUSADD DS CL2 INTERNAL NUMBER OF THE DD Y02668 00450002 * STATEMENT FOT WHICH UNIT Y02668 00500002 * AFFINITY IS SPECIFIED IN Y02668 00550002 * THIS DD STATEMENT Y02668 00560002 SIOTUNAF EQU SCTUSADD Y02670 00562002 SIODSNTE DS CL2 OFFSET INTO DSNT FOR DCB Y02668 00570002 * REFERENCE TO A DATA SET Y02668 00580002 SIOTVLSP DS CL2 VOL SEP DD NO. @G24LPSJ 00590003 SIOTAFID DS CL2 AFFINITY ASSOCIATION ID WITH Y02670 00592002 * MULTI-UNIT/GENERIC REQUEST Y02668 00594002 SCTPSIOT DS CL4 D.A. OF NEXT SIOT IN CHAIN 00600000 SCTPJFCB DS CL4 DISK ADDRESS OF JFCB 00620000 SIOTVRSB DS CL3 DISK ADDRESS OF SIOT FOR VOLREFY02670 00640002 * OR SUBALLOCATE 00660000 SIOTOTUN DS CL1 TOTAL NUMBER OF UNITS USED FOR Y02670 00670002 * THIS SIOT Y02670 00672002 SIOTREFN DS CL2 DD NUMBER OF INTRA STEP Y02670 00674002 SIOPSCNT DS CL1 PUBLIC STORAGE COUNT Y02670 00682002 * VOL REF Y02670 00702002 SIOTBYT1 DS CL1 MVM INDICATORS Y02670 00702402 SIOTOCKP EQU 128 BIT-0 DATA SET OPEN AT Y02641 00704402 * LAST CHECKPOINT Y02641 00706402 SIOTHOLD EQU 64 BIT-1 SYSOUT DATA SET TO BE Y02670 00708402 * PLACED ON HOLD QUEUE. Y02670 00708802 SIOVAMDS EQU 32 BIT-2 VAM DATA SET Y02670 00709102 SIODUNAL EQU 16 BIT-3 DATA SET HAS BEEN DYNAM- Y02670 00709202 * ICALLY UNALLOCATED Y02670 00709302 SIOTDADR EQU 8 BIT-4 DADSM IS REQUIRED Y02670 00709402 SIODADSM EQU 4 BIT-5 DADSM WAS SUCCESSFUL Y02670 00709502 SIOTALCD EQU 2 BIT-6 THIS SIOT IS COMPLETELY Y02670 00709602 * ALLOCATED Y02670 00709702 SIOTDDNT EQU 1 BIT-7 IN TSO, COMM'D PROCESSOR Y02668 00710202 * MUST PUT DDNAME IN DDNT Y02668 00710802 SCTDDINO DS CL2 INTERNAL NUMBER OF THE DD STATEMENT Y02940 00711502 SIOTBYT3 DS CL1 ALLOCATION INDICATOR BYTE YM03582 00712002 SIOALIAS EQU 128 ALIAS EXISTS FOR THIS DS YM03582 00712602 SIOCDEVT EQU 64 DEVICE TYPE FOR THIS DS YM03582 00713202 * OBTAINED FROM CATALOG YM03582 00713802 SIOTJES3 EQU 32 DEVICES FOR THIS ALLOCATION Y02668 00714002 * SELECTED BY JES3 Y02668 00714202 S3400OFF EQU 16 INITALIZE S3400DSP TO OFF @ZA13854 00714303 SIOTDSID EQU 8 ON FOR DSID KEYWORD @ZA20610 00714803 SIOTMSS EQU 4 ALL UNITS ELIGIBLE TO THIS @ZA34258 00716303 * REQUEST ARE MSS DEVICES @ZA34258 00716603 SIOTMXD EQU 2 UNITS ELIGIBLE ARE A MIX OF @ZA34258 00716903 * MSS AND NON-MSS DEVICES @ZA34258 00717203 * BIT 7 NOT USED @ZA34258 00717503 SIOTTSTC DS CL1 INDICATORS FOR TIME SHARING AND TCAM 20001 00718303 SIOTINFC EQU 128 SIOT INF CODE INDIC @G24LPSJ 00720303 SIOTTERM EQU 64 BIT 1 - TSO TERMINAL BIT - DD TERM=TS PARAM. 20001 00722303 * SET BY IEFVDA 20001 00724303 * BIT 2 NOT USED * * * * * * @G29AN2F 00728303 SIOTSSGP EQU 16 GROUP SUBSYSTEM REQUEST(SUBSYS) @G29AN2F 00730303 SIOTSSMG EQU 8 SUBSYSTEM ERROR MESSAGE INDICATOR @G29AN2F 00732303 SIOTTRKM EQU 4 XB609 SETS FOR AB427 WHEN DYNAMIC @ZA06466 00745703 SIOTDSNM EQU 2 SYSOUT DSDR FOUND ON CHECKPOINT DS @ZA06466 00746603 SIOTQNAM EQU 1 BIT 7 - FOR TCAM USE =1 IF QNAME= ON DD STATE.20002 00748602 * SET BY IEFVDA,TESTED BY ALLOCATION 20002 00752402 SCTSPOOL DS CL1 INTERNAL NO. OF POOL DD 00756202 SCTVOLCT DS CL1 NUMBER OF VOLUMES FOR THIS DATASET Y02670 00806202 SIOTGIID DS CL2 GROUP INTERSECTION ID Y02670 00890002 * FOR GENERIC ALLOCATION Y02670 00940002 SIOTBYT0 DS CL1 FOR EXTENDED ALLOC Y02670 00990002 SIOTSSDS EQU 128 DATA SET WILL BE PROCESSED BY A SUBSYSTEM Y02668 00990402 SIOTDYAL EQU 64 DATA SET DYNAMICALLY ALLOCATED Y02641 00990802 SIOTFUDA EQU 32 A MIXED DEVICE TYPE SPECIFIED AFF OR DEFER Y02670 00992002 SPVTAMSG EQU 16 PVT ASSUMED MESSAGE REQUIRED Y02670 00994002 SIOTGIGN EQU 8 IGNORE PROCESSING SIOT FOR THIS GENERIC Y02670 00996002 SIOTNOPV EQU 4 USE ATTRIBUTE OF UCB HAS BEEN MADE PRIVATE Y02670 00998002 SIOTPUPV EQU 2 USE ATT. OF UCB CHANGED FROM PUB TO PRIVATE Y02670 00998402 SIOTRTRY EQU 1 THIS DATA SET REQUIRES RETRY IN ALLOCATION Y02670 00998802 SCTNMBUT DS CL1 THE NUMBER OF UNITS FOR 01000000 * THE DATA SET 01020000 SIOTVLCT DS CL1 VALUE OF SPECIFIED VOL COUNT( = JFCBVLCT) 01040000 SCTSDISP DS CL1 SCHEDULER DISPOSITION OF 01060000 * THE DATA SET (AT END OF 01080000 * STEP OR JOB) 01100000 SIOTRETN EQU 128 RETAIN BIT @ZD03010 01110003 S3400DSP EQU 64 FOR DISP. PROCESSING OF DS ON ASPEN DEVICE Y02670 01120002 PRIVATE EQU 32 BIT 2 - PRIVATE VOLUME Y02668 01140002 *PASS EQU 16 BIT 3 - PASS THE DATA SET 01160000 *KEEP EQU 8 BIT 4 - KEEP THE DATA SET 01180000 *DELETE EQU 4 BIT 5 - DELETE DATA SET 01200000 *CATLG EQU 2 BIT 6 - CATALOG THE DATA 01220000 * SET 01240000 *UNCATLG EQU 1 BIT 7 - UNCATALOG THE 01260000 * DATA SET 01280000 SCTSBYT1 DS CL1 INDICATOR BYTE NUMBER 1 01300000 * 01320000 SCTDUMMY EQU 128 BIT 0 - DUMMY DATA SET 01340000 SCTSYSIN EQU 64 BIT 1 - SYSIN DATA SET 01360000 SIOTCCAT EQU 32 BLANK DD NAME - CONCATENATION Y02668 01380002 SIOTGDSN EQU 16 GENERATED DATA SET NAME Y02668 01400002 SIOTQDSN EQU 8 QUALIFIED DATA SET IS SPECIFIED Y02668 01420002 * PARALLEL MOUNT INDICATOR - BIT 5 01440000 SCTUNAFF EQU 2 BIT 6 - UNIT AFFINITY 01460000 SIOTJSCT EQU 1 SIOT IS ASSOCIATED WITH A JOBCAT OR STEPCAT Y02668 01480002 SCTSBYT2 DS CL1 INDICATOR BYTE NUMBER 2 01520000 * 01540000 SIOCLUNL EQU 128 CLOSE SHOULD DYNAMICALLY UNALLOCATE THIS DS Y02668 01560002 SIOTCATL EQU 64 BIT 1- DATA SET IS Y02668 01570002 * A CATALOG YM03553 01580002 SCTVOLAF EQU 32 BIT 2 - VOLUME AFFINITY 01600000 SCTJOBLB EQU 16 BIT 3 - JOBLIB DD STMNT 01620000 SCTUNLBD EQU 8 BIT 4 - UNLABELED 01640000 SCTLABEL EQU 4 BIT 5 - NONSTANDARD LABEL 01660016 SCTDEFER EQU 2 BIT 6 - DEFER MOUNTING 01680000 SCTRECVD EQU 1 BIT 7 - RECEIVED DATA SET 01700000 * 01720000 SCTSBYT3 DS CL1 INDICATOR BYTE NUMBER 3 01740000 * 01760000 SCTDSNRF EQU 128 BIT 0 - VOLUME REFERENCE 01780000 * DSNAME PRESENT 01800000 SCTSYSNE EQU 64 BIT 1 - SYSIN EXPECTED 01820000 * (PROCEDURES ONLY) 19874 01840019 SCTALCHK EQU 32 THIS SIOT ALLOCATED AT LAST CHECKPOINT @ZA09426 01850003 SCTVREF EQU 16 BIT-3 VOLUME REFERENCE IN STEP YM05425 01860002 *SYSOUT EQU 8 BIT 4 SYSOUT SPECIFIED AADA 01870018 *NEW EQU 4 BIT 5 - NEW DATA SET 01880000 *MOD EQU 2 BIT 6 - MODIFIED DATA SET 01900000 *OLD EQU 1 BIT 7 - OLD DATA SET 01920000 * 01940000 SCTSBYT4 DS CL1 INDICATOR BYTE 4 01960000 SCTSGDGS EQU 128 BIT 0 - SET BY R/O TO INDICATE GDG SINGLE @ZA34258 01963003 SIOTGDGA EQU 64 BIT 1 - THIS IS A GENERATED SIOT @ZA34258 01964003 SIOTAFF EQU 32 BIT 2 - SIOT AFFINITY INDICATOR @ZA33579 01965003 SIOTASCI EQU 16 BIT 3 - USASCII TAPE LABEL. 19200 01966003 * SET BY IEFVDA,TESTED BY IEFWA000 19200 01967003 SIOTSTEP EQU 8 BIT 4 - STEP PROCESSED @ZA34258 01968003 SIOTVAFF EQU 4 BIT 5 - INTRA-STEP VOLUME AFFINITY @ZA34258 01969003 SIOTIPDI EQU 2 BIT 6 - DATA SET IS IN PDI @ZA34258 01970003 SIOTOMN EQU 1 BIT 7 - 1 = OLD OR MODIFIED DATA SET @ZA34258 01971003 * 0 = NEW DATA SET 19874 01978419 SCTUTYPE DS 0CL8 UNIT TYPE @ZA41829 01980003 SIOTDEVT DS 0CL4 DEVICE TYPE @ZA41829 01984603 SIOUBYT1 DS CL1 @ZA41829 01989203 SIOUBYT2 DS CL1 @ZA41829 01993803 SIOUBYT3 DS CL1 DEVICE CLASS @ZA41829 01998403 SIO3TAPE EQU 128 BIT 0 - TAPE DEVICE @ZA41829 02003003 SIO3COMM EQU 64 BIT 1 - COMMUNICATIONS DEVICE @ZA41829 02007603 SIO3DACC EQU 32 BIT 2 - DIRECT ACCESS DEVICE @ZA41829 02012203 SIO3DISP EQU 16 BIT 3 - GRAPHICS DEVICE @ZA41829 02016803 SIO3UREC EQU 8 BIT 4 - UNIT RECORD DEVICE @ZA41829 02021403 SIOUBYT4 DS CL1 @ZA41829 02026003 SIOUCNVT DS CL1 IF = X'FF' SIOUCBAD IS AN SVA @ZA41829 02030603 * IF = X'00' UNITNAME CONVERSION HAS @ZA41829 02032903 * BEEN DONE @ZA41829 02035203 SIOUCBAD DS CL3 UCB ADDRESS OR SVA @ZA41829 02037503 SCTOUTNM DS CL8 THE SYSTEM OUTPUT PROGRAM 02040000 * NAME 02060000 SCTOUTNO DS CL4 THE FORM NUMBER OF THE CARD 02080000 * OR PAPER STOCK TO BE USED 02100000 * WHEN THIS DATA SET IS 02120000 * PUNCHED OR PRINTED 02140000 SCTOUTPN DS CL1 THE SYSTEM OUTPUT CLASS 02160000 * NAME 02180000 SIOTBYT4 DS CL1 @G32HPPJ 02200003 SIOTPROT EQU 128 PROTECT SPECIFIED ON DD @G32HPPJ 02208003 SIOTRACD EQU 64 PROTECT OK IF ALLOC TO DASD @G32HPPJ 02216003 SIOTRACT EQU 32 PROTECT OK IF ALLOC TO TAPE @G32HPPJ 02224003 SIOTEDLG DS CL1 SUBPOOL NUMBER FOR EDL @ZA58701 02236003 DS CL1 RESERVED @ZA58701 02248003 DS CL4 RESERVED 02260002 SIOTNDSB DS CL4 TTR OF NEXT DSB - ALSO APPLI- 02360002 * CABLE ONLY IF SYSOUT BIT IS 02380000 * SET 02400000 SIOTALTD DS CL1 CONDITIONAL DISPOSITION 02404014 * 02408014 * BITS 0-1 RESERVED Y01113 02409001 SIOJCATS EQU 32 BIT 2 - JOB CAT SWITCH USED ONLY BY Y01113 02409401 * INTERPRETER WHEN READING IN COPIES OF Y01113 02409801 * CONCATENATED JOBCAT SIOTS Y01113 02409901 *SIOTNPRV EQU 16 BIT 3 THIS BIT IS SET AT RESTART TIME TO AACA 02410017 * INDICATE THAT THIS DD IS NON-PRIVATE AACA 02411017 * EVEN THOUGH IT MAY NOW APPEAR TO BE PRIVATE AACA 02412017 *KEEP EQU 8 BIT 4 - KEEP DATA SET IF ABEND 02416014 *DELETE EQU 4 BIT 5 - DELETE DATA SET IF ABEND 02420014 *CATLG EQU 2 BIT 6 - CATALOG DATA SET IF 02424014 * ABNORNAL TERMINATION 02428014 *UNCATLG EQU 1 BIT 7 - UNCATALOG DATA SET IF 02432014 * ABNORMAL TERMINATION 02436014 SIOTSSWA DS CL3 SVA OF SSWA @G29AN2F 02440003 SIOTOUTC DS CL1 NUMBER OF SYSOUT COPIES TO BE PRINTED Y02668 02441002 SIOTBYT5 DS CL1 INDICATORS @ZA61887 02441703 SIOTDEFC EQU 128 BIT 0 - INDICATE DEFAULT COPIES WAS SET @ZA61887 02442403 DS CL1 RESERVED @ZA61887 02443103 SIOTOPUC DS CL4 RESERVED 21774 02444001 SIOTBYT2 DS CL1 MVM INDICATOR BYTE Y02670 02445002 SIOTDMND EQU 128 INDICATES SPECIFIC UNIT REQ MADE Y02670 02445402 SIOTDSPD EQU 64 DISP FOR THIS DATA SET HAS BEEN Y02670 02445802 * PROCESSED Y02670 02446202 SIOTGALL EQU 32 SIOT IS PART OF GDG ALL REQUEST Y02670 02446602 SIOTCALC EQU 16 DATA SET CATLGD WHEN ALLOC'D Y02670 02446902 SIOTCNEW EQU 8 ORIG ALLOC'D STAT OF NEW CONVRTD Y02670 02447102 SIOTCVOL EQU 4 SIOT REPRESENTS AN OS CVOL YM03576 02447202 * EQU 2 RESERVED @ZA12405 02447303 * EQU 1 RESERVED @ZA12405 02447403 SIOTSSNM DS CL4 SUBSYSTEM NAME WHICH WILL PROCESS THIS D.S. Y02668 02447703 DS CL12 RESERVED @G29AN2F 02447803 SIOTSSIC DS CL2 SIOT INFORMATION REASON CODE @G29AN2F 02448803 SCTANAME DS CL8 &NAME FROM DSNAME=,DEDIC. AACA 02451003 * WORK FILES AACA 02452017 SIOTRSNC DS CL2 ERROR CODE Y02670 02462002 SIOTEDLS DS CL4 SIZE OF EDL Y02670 02472002 SIOTEDLP DS CL4 EDL POINTER Y02670 02474002 SVOLUNAD DS CL4 VOLUNIT TABLE ENTRIES Y02670 02476002 SIOTPSVA DS CL4 SVA OF PASSING SIOT @ZA52570 02478003 SIOTETIO DS CL4 ETIOT ENTRY Y02670 02478402 SIOTNPTR DS CL4 VIRTUAL ADDRESS OF NEXT SIOT Y02670 02478802 SJFCBPTR DS CL4 VIRTUAL ADDRESS OF JFCB Y02670 02479202 SIOTJFX DS CL4 VIRTUAL ADDRESS OF JFCBX Y02670 02479602 SIOTVMVP DS CL4 VOLUME MNT AND VERIFY REQUEST Y02670 02479703 SVOLUNNO DS CL2 COUNT OF VOLUNIT ENTRIES Y02670 02479802 SIOVDSNT DS CL2 OFFSET INTO DSNT FOR VOL REF Y02670 02479902 * TO A DATA SET NAME Y02670 02482002 SIOVDSNL DS CL1 LENGTH OF DATA SET NAME OF Y02670 02486602 * VOL REF TO A DATA SET ANME Y02670 02488602 SIODDSNL DS CL1 LENGTH OF DATA SET NAME Y02670 02490602 * OF DCB REF TO A DATA SET NAME Y02670 02492602 DS CL6 TO MAKE 180(SIOT) 02493302 SIOTLGTH EQU 174 LENGTH OF SIOT 02500000 DS CL4 HDR(INTERPRETER ONLY) 02520000 JFCBID EQU 28 Y02670 02540002 MEND 02560000 ABCD CSECT 02610002 QSSIOT DSECT 02660002 IEFASIOT 02710002 END 02760002 */ % SIOTBSL: ; 03260020 /* 33100 M0150 */ 03270001 /* 767600-788600 M0150 21774 */ 03310001 /* MACMEAN SIOT MEANS STEP INPUT/OUTPUT TABLE */ 03360002 /* MACCOMP Y-2 SC1B9/PZD02 @G16APPJ*/ 03410003 /* MACSTAT 82110/OZ61887 3.8 PTF @ZA61887*/ 03460003 /* STATUS - OS/VS2 PTF @ZA61887*/ 03510003 /* */ 03560003 /* CHANGE ACTIVITY - OZ12405, OZ13854, OZ20610 @ZA20610*/ 03610003 /* OZ28955, OZ33579, OZ34258, OZ41829 @ZA41829*/ 03660003 /* OZ52570, OZ58701, OZ61887 @ZA61887*/ 03685003 /* */ 03710003 /* IEFASIOT - C - TWO BITS DEFINED AS MSS-ALL (SIOTMSS) AND @ZA34258*/ 03760003 /* MSS-MIXED (SIOTMXD) INDICATORS @ZA34258*/ 03800003 /* IEFASIOT - C - DEFINE SIOTAFF, CODE DROPPED FROM SU16. @ZA33579*/ 03840003 /* CLARIFIED COMMENTS ABOUT LABEL SIOUCNVT IN BOTH PLS AND @ZA41829*/ 03880003 /* BAL @ZA41829*/ 03920003 /* IEFASIOT - C - REDEFINE SIOTATE TO SIOTPSVA-SUPPORT FOR @ZA52570*/ 03928003 /* OZ38945 @ZA52570*/ 03936003 /* IEFASIOT - C - DEFINE SIOTEDLG TO SAVE THE SUBPOOL @ZA58701*/ 03944003 /* NUMBER OF STORAGE FOR THE EDL @ZA58701*/ 03952003 /* IEFASIOT - C - SIOTDEFC DEFINED. INDICATOR TO JES3 THAT @ZA61887*/ 03954603 /* DEFAULT COPIES WAS SET. @ZA61887*/ 03957203 DECLARE 1 INDMSIOT BDY(DWORD) BASED(SIOTPTR), /* NAME OF TABLE */ 03960020 4 SIOTDSKA PTR(24) BDY(WORD), /* DISK ADDRESS OF SIOT */ 04660020 4 SIOTTYPE CHAR(1), /* TABLE ID OF SIOT = 3 */ 05360002 4 SCTDDNAM CHAR(8), /* DD NAME */ 06060020 4 SIOTDEST CHAR(8), /* USER ID FOR SYSOUT Y02668 */ 06110002 4 SCTUSADD FIXED(15), /* INT. DD NO. FOR UNIT AFF.REQ Y02668*/ 06160002 6 SIOTUNAF FIXED(15), /* Y02670 */ 06210002 4 SIODSNTE FIXED(15), /* DSNT OFFSET FOR DCB REF TO DS Y02668 */ 06260002 4 SIOTVLSP FIXED(15), /* VOL SEP DD NO. @G24LPSJ*/ 06310003 4 SIOTAFID FIXED(15), /* AFFINITY ID ASSOCIATION WITH 06360002 MULTI-UNIT/GENERIC REQUEST Y02668 */ 06410002 4 SCTPSIOT PTR(24) BDY(WORD), /* TTR OF NEXT SIOT */ 08160020 4 * CHAR(1), /* RESERVED FOR FUTURE USE */ 08860020 4 SCTPJFCB PTR(24) BDY(WORD), /* DISK ADDRESS OF JFCB */ 09560020 4 * CHAR(1), /* RESERVED FOR FUTURE USE */ 10260020 4 SIOTVRSB PTR(24) BDY(WORD), /* TTR OF SIOT FOR VOLREF 10960020 OR SUBALLOCATE */ 11660020 4 SIOTOTUN FIXED(8), /* NO. OF UNITS FOR THIS SIOT Y02670*/ 12360002 4 SIOTREFN FIXED(15), /* DD NO. OF INTRA STEP VOL REF Y02670 */ 12370002 4 SIOPSCNT FIXED(8), /* PUBLIC STORAGE COUNT Y02668 */ 12410002 4 SIOTBYT1 BIT(8), /* MVM INDICATORS Y02670 */ 12510002 6 SIOTOCKP BIT(1), /* DATA SET OPEN AT LAST 12560002 CHECKPOINT Y02641 */ 12570002 6 SIOTHOLD BIT(1), /* SYSOUT DATA SET TO BE PLACED Y02670 12610002 ON THE HOLD QUEUE Y02670 */ 12612002 6 SIOVAMDS BIT(1), /* VAM DATA SET Y02670 */ 12660002 6 SIODUNAL BIT(1), /* DS HAS BEEN DYNAM. UNALLOC Y02670 */ 12710002 6 SIOTDADR BIT(1), /* DADSM IS REQUIRED Y02670 */ 12760002 6 SIODADSM BIT(1), /* DADSM WAS SUCCESSFUL Y02670 */ 12810002 6 SIOTALCD BIT(1), /* THIS SIOT IS COMPLETED ALLOC Y02670 */ 12860002 6 SIOTDDNT BIT(1), /* IN TSO, COMMAND PROCESSOR SVC 12910002 MUST PUT DDNAME IN DDNT Y02668 */ 12930002 4 SCTDDINO FIXED(15), /* INTERNAL NUMBER OF DD STMT Y02940 */ 12960002 4 SIOTBYT3 BIT(8), /* ALLOCATION INDICATOR BYTE YM03582 */ 13010002 6 SIOALIAS BIT(1), /* ALIAS EXISTS FOR THIS DATA SET YM03582 */ 13510002 6 SIOCDEVT BIT(1), /* DEVICE TYPE FOR THIS DS OBTAINED 14010002 FROM CATALOG YM03582 */ 14510002 6 SIOTJES3 BIT(1), /* DEVICES FOR THIS ALLOCATION 15010002 SELECTED BY JES3 Y02668 */ 15210002 6 S3400OFF BIT(1), /* INITIALIZE S3400DSP TO OFF @ZA13854*/ 15410003 6 SIOTDSID BIT(1), /* ON FOR DSID KEYWORD @ZA20610*/ 15460003 6 SIOTMSS BIT(1), /* ALL UNITS ELIGIBLE TO THIS REQUEST 15510003 ARE MSS DEVICES @ZA34258*/ 15518003 6 SIOTMXD BIT(1), /* UNITS ELIGIBLE TO THIS REQUEST ARE A 15526003 MIX OF MSS AND NON-MSS DEVICES @ZA34258*/ 15534003 6 * BIT(1), /* RESERVED @ZA34258*/ 15542003 4 SIOTTSTC BIT(8), /* INDIC FOR TSO & TCAM */ 15560003 6 SIOTINFC BIT(1), /* SIOT INF CODE INDIC @G24LPSJ*/ 15610003 6 SIOTTERM BIT(1), /* TSO TERMINAL (DD TERM=TS) 15660003 SET BY IEFVDA */ 15710003 6 * BIT(1), /* RESERVED FOR FUTURE USE@G29AN2F*/ 15760003 6 SIOTSSGP BIT(1), /*GROUP SS REQUEST(SUBSYS)@G29AN2F*/ 15810003 6 SIOTSSMG BIT(1), /*SUBSYSTEM ERROR MSG IND.@G29AN2F*/ 15860003 6 SIOTTRKM BIT(1), /*XB609 SETS FOR AB427 WHEN DYNAMIC 15910003 @ZA06466*/ 15960003 6 SIOTDSNM BIT(1), /*SYSOUT DSDR FOUND ON CHECKPOINT 16010003 DS @ZA06466*/ 16060003 6 SIOTQNAM BIT(1), /* TCAM - ON IF QNAME= ON DD STMT 22160020 SET BY IEFVDA, CHECKED BY ALLOC. */ 22860020 4 SCTSPOOL CHAR(1), /* INTERNAL NO. OF POOL DD */ 23560020 4 SCTVOLCT FIXED(8), /* NUMBER OF VOLUMES FOR THIS DS Y02670 */ 24260002 4 SIOTGIID PTR(15), /* GROUP INTERSECTION ID Y02670 */ 24310002 4 SIOTBYT0 BIT(8), /* FOR EXTENDED ALLOCATION Y02670 */ 24360002 6 SIOTSSDS BIT(1), /*DS WILL BE PROC. BY A SUBSYSTEM Y02668 */ 24370002 6 SIOTDYAL BIT(1), /*DATA SET DYNAMICALLY ALLOCATED Y02641*/ 24380002 6 SIOTFUDA BIT(1), /* MIXED DEV. SPEC. AFF OR DEFER Y02670 */ 24410002 6 SPVTAMSG BIT(1), /*PVT ASSUMED MESSAGE REQD Y02670 */ 24460002 6 SIOTGIGN BIT(1), /*IGNORE PROC.SIOT FOR THIS GENERIC Y02670*/ 24510002 6 SIOTNOPV BIT(1), /*USE ATTR. MADE PRIV. Y02670 */ 24560002 6 SIOTPUPV BIT(1), /*USE ATTR. CHANGED FROM PUB TO PRV Y02670*/ 24610002 6 SIOTRTRY BIT(1), /*THIS REQUEST REQUIRES RETRY IN Y02670 24660002 ALLOCATION Y02670 */ 24710002 4 SCTNMBUT CHAR(1), /* NUMBER OF UNITS FOR THE DATA SET */ 26360002 4 SIOTVLCT CHAR(1), /* VOLUME COUNT */ 27060020 4 SCTSDISP BIT(8), /* SCHEDULER DISPOSITION */ 27760020 6 SIOTRETN BIT(1), /* RETAIN BIT @ZD03010*/ 28460003 6 S3400DSP BIT(1), /* DISP PROCESSING OF DS ON ASPEN Y02670 */ 29160002 6 SIOTPRIV BIT(1), /* PRIVATE VOLUME */ 29860020 6 SIOTPASS BIT(1), /* PASS DATA SET */ 30560020 6 SIOTKEEP BIT(1), /* KEEP DATA SET */ 31260020 6 SIOTDLET BIT(1), /* DELETE DATA SET */ 31960020 6 SIOTCTLG BIT(1), /* CATALOG DATA SET */ 32660020 6 SIOTUNCT BIT(1), /* UNCATALOG DATA SET */ 33360020 4 SCTSBYT1 BIT(8), /* INDICATOR BYTE 1 */ 34060020 6 SCTDUMMY BIT(1), /* DUMMY DATA SET */ 34760020 6 SCTSYSIN BIT(1), /* SYSIN DATA SET */ 35460020 6 SIOTCCAT BIT(1), /* BLANK DD NAME - CONCATENATION Y02668 */ 35510002 6 SIOTGDSN BIT(1), /* GENERATED DATA SET NAME Y02668 */ 35610002 6 SIOTQDSN BIT(1), /* QUALIFIED DATA SET IS SPECIFIED Y02668 */ 35660002 6 SCTPARLM BIT(1), /* PARALLEL MOUNT */ 38260020 6 SCTUNAFF BIT(1), /* UNIT AFFINITY */ 38960020 6 SIOTJSCT BIT(1), /* SIOT ASSOC. WITH JOBCAT/STEPCAT Y02668 */ 39010002 4 SCTSBYT2 BIT(8), /* INDICATOR BYTE 2 */ 40360020 6 SIOCLUNL BIT(1), /* CLOSE SHOULD DYNAM UNALLOC DS Y02668 */ 40410002 6 SIOTCATL BIT(1), /* DATA SET IS A CATALOG YM03553 */ 40460002 6 SCTVOLAF BIT(1), /* VOLUME AFFINITY */ 42460020 6 SCTJOBLB BIT(1), /* JOBLIB DD STATEMENT */ 43160020 6 SCTUNLBD BIT(1), /* NO LABEL */ 43860020 6 SCTLABEL BIT(1), /* NON-STANDARD LABEL */ 44560002 6 SCTDEFER BIT(1), /* DEFER MOUNTING */ 45260020 6 SCTRECVD BIT(1), /* RECEIVED DATA SET */ 45960020 4 SCTSBYT3 BIT(8), /* INDICATOR BYTE 3 */ 46660020 6 SCTDSNRF BIT(1), /* VOLUME REFERENCE IS DSNAME */ 47360020 6 SCTSYSNE BIT(1), /* SYSIN EXPECTED (PROCS ONLY) */ 48060020 6 SCTALCHK BIT(1), /* THIS SIOT ALLOCD AT LAST CHKPT @ZA09426*/ 48760003 6 SCTVREF BIT(1), /* VOLUME REFERENCE IN STEP YM05425*/ 48810003 6 SCTSYSOU BIT(1), /* SYSOUT IS SPECIFIED */ 50160020 6 SCTSNEW BIT(1), /* NEW DATA SET */ /*PTM 220*/ 50860020 6 SCTSMOD BIT(1), /* MODIFIED DATA SET */ 51560020 6 SCTSOLD BIT(1), /* OLD DATA SET */ /*PTM 220*/ 52260020 4 SCTSBYT4 BIT(8), /* INDICATOR BYTE 4 */ 52960020 6 SCTSGDGS BIT(1), /* GDG SINGLE */ 53660020 6 SIOTGDGA BIT(1), /*THIS IS A GENERATED SIOT Y02670*/ 54360002 6 SIOTAFF BIT(1), /* SIOT AFFINITY INDICATOR @ZA33579*/ 55060003 6 SIOTASCI BIT(1), /* USASCII TAPE LABEL 55760020 SET BY IEFVDA, TEST BY IEFWA000 */ 56460020 6 SIOTSTEP BIT(1), /* STEP PROCESSED */ 57160020 6 SIOTVAFF BIT(1), /* INTRA-STEP VOLUME AFFINITY */ 57860020 6 SIOTIPDI BIT(1), /* DATA SET IS IN PDI Y02670 */ 58560002 6 SIOTOMN BIT(1), /* OLD (MOD) INDICATOR */ 59260020 4 SCTUTYPE CHAR(8), /* Y02670 */ 59960002 6 SIOTDEVT CHAR(4), /* DEVICE TYPE Y02670 */ 60010002 8 SIOUBYT1 BIT(8), /* Y02670 */ 60060002 8 SIOUBYT2 BIT(8), /* Y02670 */ 60110002 8 SIOUBYT3 BIT(8), /* DEVICE CLASS Y02670 */ 60160002 10 SIO3TAPE BIT(1), /* TAPE DEVICE Y02670 */ 60210002 10 SIO3COMM BIT(1), /* COMMUNICATIONS DEVICE Y02670 */ 60260002 10 SIO3DACC BIT(1), /* DIRECT ACCESS DEVICE Y02670 */ 60310002 10 SIO3DISP BIT(1), /*GRAPHICS DEVICE Y02670 */ 60320002 10 SIO3UREC BIT(1), /* UNIT RECORD DEVICE Y02670 */ 60360002 10 * BIT(3), /* Y02670 */ 60370002 8 SIOUBYT4 BIT(8), /* Y02670 */ 60410002 6 SIOUCNVT CHAR(1), /* IF = X'FF' SIOUCBAD IS AN SVA 60460003 IF = X'00' UNIT NAME CONVERSION 60510003 HAS BEEN DONE @ZA41829*/ 60560003 6 SIOUCBAD PTR(24) BDY(BYTE), /* UCB ADDRESS OR SVA @ZA41829*/ 60610003 4 SCTOUTNM CHAR(8), /* SYSTEM OUTPUT PROGRAM NAME */ 63460020 4 SCTOUTNO CHAR(4), /* SYSTEM OUTPUT FORM NUMBER */ 64160020 4 SCTOUTPN CHAR(1), /* SYSOUT CLASS NAME */ 64860020 4 SIOTBYT4 BIT(8), /* @G32HPPJ*/ 65560003 6 SIOTPROT BIT(1), /* PROTECT SPECIFIED ON DD @G32HPPJ*/ 65610003 6 SIOTRACD BIT(1), /* PROTECT OK IF ALLOCATED TO DASD @G32HPPJ*/ 65660003 6 SIOTRACT BIT(1), /* PROTECT OK IF ALLOCATED TO TAPE @G32HPPJ*/ 65710003 6 * BIT(5), /* RESERVED @G32HPPJ*/ 65760003 4 SIOTEDLG CHAR(1), /* SUBPOOL NUMBER FOR EDL @ZA58701*/ 65831003 4 * CHAR(1), /* RESERVED FOR FUTURE USE @ZA58701*/ 65845203 4 * CHAR(4), /* RESERVED */ 65860003 4 SIOTNDSB PTR(24) BDY(WORD), /* QUEUE ADDR OF NEXT DSB */ 68360020 4 * CHAR(1), /* RESERVED FOR FUTURE USE */ 69060020 4 SIOTALTD BIT(8), /* CONDITIONAL DISPOSITION */ 69760020 6 * BIT(1), /* RESERVED FOR FUTURE USE */ 70460020 6 * BIT(1), /* RESERVED FOR FUTURE USE */ 71160020 6 SIOJCATS BIT(1), /* JOBCAT SWITCH USED ONLY BY Y01113 */ 71860001 /* INTERPRETER WHEN READING IN Y01113 */ 71910001 /* COPIES OF CONCATENATED JOBCAT Y01113 */ 71960001 /* SIOTS Y01113 */ 72010001 6 SIOTNPRV BIT (1), /* NOT PRIVATE ( RESTART ) */ 72560020 6 SIOTAKEP BIT(1), /* KEEP DATA SET */ 73260020 6 SIOTADEL BIT(1), /* DELETE DATA SET */ 73960020 6 SIOTACAT BIT(1), /* CATALOG DATA SET */ 74660020 6 SIOTAUNC BIT(1), /* UNCATALOG DATA SET */ 75360020 4 SIOTSSWA PTR(24), /*SVA OF SSWA @G29AN2F*/ 76060003 4 SIOTOUTC CHAR(1), /*NO. OF SYSOUT COPIES TO BE PRINTED Y02668*/ 76110002 4 SIOTBYT5 BIT(8), /*INDICATORS @ZA61887*/ 76160003 6 SIOTDEFC BIT(1), /*INDIC DEFAULT COPIES WAS SET @ZA61887*/ 76210003 6 * BIT(7), /* RESERVED @ZA61887*/ 76260003 4 * CHAR(1), /* RESERVED @ZA61887*/ 76310003 4 SIOTOPUC CHAR(4), /* RESERVED 21774*/ 78860001 4 SIOTBYT2 BIT(8), /* MORE MVM INDICATORS Y02670 */ 79560002 6 SIOTDMND BIT(1), /* SPECIFIC UNIT REQUEST MADE Y02670 */ 79570002 6 SIOTDSPD BIT(1), /*DISP FOR THIS DATA SET HAS BEEN Y02670 79572002 PROCESSED Y02670 */ 79574002 6 SIOTGALL BIT(1), /*SIOT IS PART OF A GDG ALL REQUEST Y02670*/ 79576002 6 SIOTCALC BIT(1), /* DATA SET CATLD WHEN ALLOC'D Y02670*/ 79578002 6 SIOTCNEW BIT(1), /* ORIG ALLOC'D STAT OF NEW CONVRTD Y02670*/ 79578402 6 SIOTCVOL BIT(1), /* SIOT IS FOIR OS CVOL YM03576 */ 79580003 6 * BIT(2), /* RESERVED @ZA12405*/ 79630003 4 SIOTSSNM CHAR(4), /* SUBSYS. NAME WHICH WILL PROC. DS Y02668 */ 79680003 4 * CHAR(12), /* RESERVED FOR FUTURE USE @G29AN2F*/ 79730003 4 SIOTSSIC FIXED(15), /* SIOT INFORMATION REASON CODE @G29AN2F*/ 79780003 4 SCTANAME CHAR (8), /* TEMP NAME FOR DEDICATED WORK FILES */ 80260020 4 SIOTRSNC FIXED(15), /* ERROR CODE Y02670 */ 80310002 4 SIOTEDLS FIXED(31), /* SIZE OF EDL */ /* Y02670 */ 80360002 4 SIOTEDLP PTR(31), /* EDL POINTER */ /* Y02670 */ 80410002 4 SVOLUNAD PTR(31), /* PTR TO VOLUNIT TABLE ENTRIES Y02670 */ 80460002 4 SIOTPSVA PTR(24) BDY(WORD), /* SVA OF PASSING SIOT @ZA52570 */ 80493303 4 * CHAR(1), /* RESERVED FOR FUTURE USE @ZA52570 */ 80526603 4 SIOTETIO PTR(31), /* PTR TO ETIOT ENTRY */ /* Y02670 */ 80560002 4 SIOTNPTR PTR(31), /* VIRTUAL ADDRESS OF NEXT SIOT Y02670 */ 80610002 4 SJFCBPTR PTR(31), /* VIRTUAL ADDRESS OF JFCB Y02670 */ 80660002 4 SIOTJFX PTR(31), /* VIRTUAL ADDRESS OF JFCBX Y02670 */ 80710002 4 SIOTVMVP PTR(31), /* VOLUME MOUNT AND VERIFY REQ Y02670 */ 80760002 4 SVOLUNNO PTR(15), /* COUNT OF VOLUNIT ENTRIES Y02670 */ 80810002 4 SIOVDSNT FIXED(15), /* OFFSET INTO DSNT FOR VOLREF 80860002 TO DSNAME Y02670 */ 80870002 4 SIOVDSNL FIXED(8), /* LEN. OF DSN OF VOL REF TO DSN Y02670 */ 80910002 4 SIODDSNL FIXED(8); /* LEN. OF DSN OF DCB REF TO DSN Y02670 */ 80960002 %DECLARE SIOTID FIXED, 81660020 DSNID FIXED, 83060020 JFCBID FIXED, 83760020 SIOTLGTH FIXED; 84460020 %DSNID=7; /* DSNAME TABLE ID = 7 */ 85860020 %JFCBID=28; /* JFCB */ 86560002 %SIOTLGTH=174; /* LENGTH OF SIOT */ 87260020 %SIOTID=3; /* SIOT ID = 3 */ 87960020