* 00050002 * % GO TO CICBL1; /* 00060002 MACRO 00070002 IFGJCICB 00080002 IFGJCICB DSECT , */ 00090002 *%CICBL1: ; 00100002 * /******************************************************************/ 00110002 * /* */ 00120002 * /* ***** COMPATIBILITY INTERFACE CONTROL BLOCK ***** */ 00130002 * /* */ 00140002 * /* OS/VS2 RELEASE 02, 01/22/73, LEVEL=1 */ 00150002 * /* MACCOMP Y-2 SC1DB/SJD48 */ 00160002 * /* MACSTAT Y-2 73022/DC20762 */ 00170002 * /* */ 00180002 * /* METHOD OF ACCESS */ 00190002 * /* PL/S- %INCLUDE SYSLIB(IFGJCICB) */ 00200002 * /* REG = DCBCICB */ 00210002 * /* RESPECIFY IFGJCICB BASED (REG) */ 00220002 * /* BAL- IFGJCICB ....NO MACRO OPERANDS */ 00230002 * /* L REG,DCBCICB */ 00240002 * /* USING IFGJCICB,REG */ 00250002 * /* */ 00260002 * /* NOTE: REG IS ANY GENERAL REGISTER OTHER THAN ZERO. */ 00270002 * /* CICB EXISTS FOR EACH DCB OPEN TO A SPOOLED */ 00280002 * /* (SYSIN/SYSOUT) DATA SET. */ 00290002 * /* */ 00300002 * /* FUNCTION */ 00310002 * /* CONTAINS INTERNAL WORK AREAS AND CONTROL BLOCKS USED BY */ 00320002 * /* SAM SUBSYSTEM INTERFACE TO PROVIDE COMPATIBLE MAPPING */ 00330002 * /* OF SAM REQUESTS INTO EQUIVALENT JOB ENTRY SUBSYSTEM */ 00340002 * /* REQUESTS FOR ACCESS TO SPOOLED DATA STREAMS. */ 00350002 * /* */ 00360002 * /******************************************************************/ 00370002 * 00400002 * % GO TO CICBL2; /* 00450002 * 00460002 CIDUMIOB DS 0D PSEUDO IOB - PROVIDES COMPATIBILITY 00470002 * WITH SAM USAGE. NOT USED BY SAM-SI. 00472002 CINXTIOB DS A POINTER TO NEXT IOB. ALWAYS INITIALIZED 00480002 * TO POINT TO ITSELF(IE LAST IN CHAIN). 00484002 CIECBCD DS XL4 PSEUDO ECB, ALWAYS MARKED 'POSTED' 00490002 CIIOB DS 0F START OF BASIC IOB SECTION 00500002 DS XL4 NOT USED 00510002 CIECBPTR DS A ADDRESS OF THE PSEUDO ECB IN PREFIX 00520002 DS XL4 NOT USED 00530002 CIRESID DS F RESIDUAL COUNT (CSW). SET PRIOR TO EACH 00540002 * ENTRY TO SYNAD. 00542002 DS XL4 NOT USED 00550002 CIDCBPTR DS A ADDRESS OF THE DCB 00560002 *---------------------------------------------------------------------* 00562002 CIACBD DS CL56 DATA ACB 00570002 CIACBED DS CL20 ACB EXTENSION 00580002 *---------------------------------------------------------------------* 00582002 CISYNNAM DS CL8 MODULE NAME OF SYNAD EXECUTOR 00590002 *---------------------------------------------------------------------* 00592002 CIREGSAV DS 0F REGISTER SAVE AREA FOR SAM-SI 00600002 DS F FIRST WORD - NOT USED 00610002 CIREGBC DS F BACKWARD CHAIN POINTER (HSA) 00620002 CIREGFC DS F FORWARD CHAIN POINTER (LSA) 00630002 CIREGS DS 15F REGISTERS - 14 THROUGH 12 00640002 *---------------------------------------------------------------------* 00670002 CIFLAGS DS 0BL4 SAM SUBSYSTEM INTERFACE FLAGS 00680002 CIFLAG1 DS B RESERVED 00690002 CIFLAG2 DS B DCB DEFAULT FLAGS - 00700002 CIFMDSOR EQU X'80' DSORG DEFAULTED IN DCB 00710002 CIFMDEVT EQU X'60' DEVTYPE BEFORE OPEN 00720002 CIFLAG3 DS B CONTROL FLAGS - 00730002 CIFFSTP EQU X'80' PUT LOCATE FIRST PASS COMPLETED 00740002 CIFCLOSE EQU X'40' CLOSE IS PROCESSING DCB 00750002 CIFRAGM EQU X'20' RECORD AREA OBTAINED FOR BSAM VS 00760002 CIFVSRI EQU X'10' VS RECORD IS INCOMPLETE 00770002 CIFVSEOB EQU X'08' END OF BLOCK FOR VBS RECORD 00780002 CIFERROR EQU X'04' SYNAD ENTERED FOR ERROR 00790002 CIFPOINT EQU X'02' INVALID POINT REQUEST 00792002 CIFLAG4 DS B RESERVED 00800002 *---------------------------------------------------------------------* 00810002 CIRPL DS CL76 REQUEST PARAMETER LIST (RPL) 00820002 CIRPLEXT DS CL16 RPL EXTENSION 00830002 CIFDBCK DS CL20 FEEDBACK AREA FOR RPL 00840002 *---------------------------------------------------------------------* 00842002 CILWAREA DS F WORK AREA FOR SPANNED RECORDS- 00844002 * BSAM: SIZE OF RECORD AREA OBTAINED 00846002 * QSAM: RDW SAVE LOCATION 00848002 CIIOCNT DS 0F I/O COUNT FOR BSAM BLOCKED RECORDS 00850002 CISEGLEN DS F SEGMENT LENGTH FOR SPANNED RECORDS 00860002 CIBLKPTR DS A BSAM SPANNED BLOCK CURRENT ADDRESS 00870002 CIRAREA DS A ADDRESS OF SPANNED RECORD AREA 00890002 CIRECPTR DS A SPANNED RECORD POINTER- 00900002 * BSAM: CURRENT LOCATION IN RECORD AREA 00902002 * QSAM: ADDRESS OF SPANNED SEGMENT 00904002 CISAMWA DS F SAM-SI WORK AREA 00910002 CIWK1 DS F SAM-SI WORK AREA 00920002 CIWK2 DS F SAM-SI WORK AREA 00930002 *---------------------------------------------------------------------* 00940002 CISVCLST DS 0F SVC CONTROL EXIT LIST 00950002 CISYNRC DS 0XL1 SYNADAF RETURN CODE 00960002 CISYNADA DS A SYNADAF SUBROUTINE ADDRESS 00970002 CIBLDLRC DS 0XL1 BLDL RETURN CODE 00980002 CIBLDL DS A BLDL SUBROUTINE ADDRESS 00990002 CIBSPRC DS 0XL1 BSP RETURN CODE 01000002 CIBSP DS A BSP SUBROUTINE ADDRESS 01010002 CIFEOVRC DS 0XL1 FEOV RETURN CODE 01020002 CIFEOV DS A FEOV SUBROUTINE ADDRESS 01030002 CISTOWRC DS 0XL1 STOW RETURN CODE 01040002 CISTOW DS A STOW SUBROUTINE ADDRESS 01050002 SPACE 01060002 ********************************************************************** 01100002 * END OF IFGJCICB * 01150002 ********************************************************************** 01200002 MEND , */ 01250002 *%CICBL2: ; 01700002 * DCL 1 IFGJCICB BDY (DWORD) BASED, /* JCICB DEFINITION */ 01750002 * 2 CIDUMIOB, /* PSEUDO IOB */ 01760002 * 01800002 * /* TO PROVIDE COMPATIBILITY WITH SAM USAGE,THE FIRST 01810002 * SECTION OF THE CICB CONTAINS A DUMMY IOB. THE 01820002 * IOB IS PROVIDED WITH A POSTED ECB AND THE CHAIN 01830002 * FIELD POINTING TO ITSELF. THE CSW RESIDUAL COUNT 01840002 * IS SET PRIOR TO ENTRY TO USER'S SYNAD ROUTINE. */ 01842002 * 01844002 * 3 CINXTIOB PTR (31), /* PREFIX-NEXT IOB */ 01900002 * 3 CIECBCD CHAR (01), /* PREFIX-ECB CODE */ 01950002 * 3 * CHAR (03), /* PREFIX-NOT USED */ 01952002 * 3 CIIOB CHAR (04), /* START BASIC IOB */ 01954002 * 3 CIECBPTR PTR (31), /* ADDR OF ECB */ 01960002 * 3 * CHAR (04), /* NOT USED */ 01970002 * 3 CIRESID PTR (31), /* RESIDUAL COUNT */ 01980002 * 3 * CHAR (04), /* NOT USED */ 01990002 * 3 CIDCBPTR PTR (31), /* ADDR OF DCB */ 02000002 * 02010002 * 2 CIACBD CHAR (56), /* DATA ACB */ 02050000 * 2 CIACBED CHAR (20), /* ACB EXTENSION */ 02100000 * 2 CISYNNAM CHAR (08) /* SYNAD MODULE NAME */ 02200000 * BDY (WORD), 02250000 * 2 CIREGSAV , /* REGISTER SAVE AREA */ 02750000 * 3 * PTR (31), /* NOT USED */ 02800000 * 3 CIREGBC PTR (31), /* BACKCHAIN PTR */ 02850000 * 3 CIREGFC PTR (31), /* FORWARD CHAIN PTR */ 02900000 * 3 CIREGS CHAR (60), /* REGISTERS 14-12 */ 02950002 * 2 CIFLAGS BIT (32), /* SAM-SI FLAGS */ 03100002 * 3 CIFLAG1 BIT (08), /* RESERVED */ 03150002 * 3 CIFLAG2 BIT (08), /* DCB DEFAULT FLAGS */ 03550002 * 4 CIFMDSOR BIT (01), /* DATA SET ORGANIZATION */ 03600002 * 4 CIFMDEVT BIT (02), /* DEVTYPE BEFORE OPEN */ 03650002 * 4 * BIT (05), /* RESERVED */ 03660002 * 3 CIFLAG3 BIT (08), /* CONTROL FLAGS */ 03700002 * 4 CIFFSTP BIT (01), /* PUT LOCATE - 1ST PASS */ 03750002 * 4 CIFCLOSE BIT (01), /* CLOSE IS PROCESSING */ 03800002 * 4 CIFRAGM BIT (01), /* RCD AREA/GETMAIN FLAG */ 03850002 * 4 CIFVSRI BIT (01), /* VS RECORD INCOMPLETE */ 03900002 * 4 CIFVSEOB BIT (01), /* VBS END OF BLOCK */ 03950002 * 4 CIFERROR BIT (01), /* SYNAD ENTERED FLAG */ 04000002 * 4 CIFPOINT BIT (01), /* INVALID POINT REQUEST */ 04010002 * 4 * BIT (01), /* RESERVED */ 04020002 * 3 CIFLAG4 BIT (08), /* NOT USED */ 04050002 * 2 CIRPL CHAR (76), /* REQUEST PARAMETER LST*/ 04100000 * 2 CIRPLEXT CHAR (16), /* RPL EXTENSION */ 04150000 * 2 CIFDBCK CHAR (20), /* FEEDBACK AREA FOR RPL*/ 04200000 * 2 CILWAREA PTR (31), /* SAVE AREA FOR XO1942*/ 04250002 * /* SPANNED RECORD USE */ 04300002 * /* QSAM: RDW SAVE AREA */ 04350002 * /* BSAM: REC AREA SIZE */ 04400002 * 2 CIIOCNT PTR (31), /* I/O COUNT FOR BSAM 04450002 * BLOCKED RECORDS. */ 04460002 * 3 CISEGLEN PTR (31), /* SPANNED RECORD SEGMT 04500000 * LENGTH */ 04550002 * 2 CIBLKPTR PTR (31), /* SPANNED RECORD BLOCK 04600000 * POINTER */ 04650002 * 2 CIRAREA PTR (31), /* SPANNED RECORD AREA */ 04800002 * 2 CIRECPTR PTR (31), /* SPANNED RECORD PTR- 04850002 * BSAM:LOC IN REC AREA 04852002 * QSAM:ADDR OF SEGMENT */ 04854002 * 2 CISAMWA PTR (31), /* CI WORK AREA */ 04860002 * 2 CIWK1 PTR (31), /* CI WORK AREA */ 04900000 * 2 CIWK2 PTR (31), /* CI WORK AREA */ 04950000 * 2 CISVCLST , /* SVC CONTROL EXIT LIST*/ 05000000 * 3 CISYNADA PTR (31), /* SYNADAF EXIT */ 05050000 * 4 CISYNRC BIT (08), /* SYNADAF RETURN CODE */ 05100000 * 3 CIBLDL PTR (31), /* BLDL EXIT */ 05150000 * 4 CIBLDLRC BIT (08), /* BLDL RETURN CODE */ 05200000 * 3 CIBSP PTR (31), /* BSP EXIT */ 05250000 * 4 CIBSPRC BIT (08), /* BSP RETURN CODE */ 05300000 * 3 CIFEOV PTR (31), /* FEOV EXIT */ 05350000 * 4 CIFEOVRC BIT (08), /* FEOV RETURN CODE */ 05400000 * 3 CISTOW PTR (31), /* STOW EXIT */ 05450000 * 4 CISTOWRC BIT (08); /* STOW RETURN CODE */ 05500000 * /* */ 05550000 * %DCL ON CHAR, /* SWITCH SET ON */ 05600000 * OFF CHAR, /* SWITCH SET OFF */ 05650000 * CIFDMASK CHAR, 05700000 * CIFMDVDA CHAR, 05750000 * CIFMDVUR CHAR, 05800000 * CIFMDVNL CHAR; 05850000 * /* */ 05900000 * %ON = '''1''B'; 05950000 * %OFF = '''0''B'; 06000000 * %CIFDMASK = '''01100000''B'; /* DEVTYPE SPECIFIED */ 06050000 * %CIFMDVDA = '''01''B'; /* DIRECT ACCESS */ 06100000 * %CIFMDVUR = '''10''B'; /* UNIT RECORD */ 06150000 * %CIFMDVNL = '''00''B'; /* NONE SPECIFIED */ 06200000 * /******************************************************************/ 06250000 * /* */ 06300000 * /* END OF IFGJCICB */ 06350000 * /* */ 06400000 * /******************************************************************/ 06450000