* 00100001 * %GOTO JFCBL1; /* 00150002 MACRO 00200000 IEFJFCBN &LIST=NO , */ 00300002 *%JFCBL1 : ; 00350001 * 00360001 */* **************************************************************** */ 00400001 */* */ 00500001 */* JOB FILE CONTROL BLOCK */ 00600001 */* */ 00700001 */* OS/VS2 038 PTF @ZA52824*/ 00705003 */* */ 00762001 */* METHOD OF ACCESS */ 00772001 */* BAL - A DSECT CARD SHOULD PRECEDE MACRO CALL. USING ON */ 00782001 */* INFMJFCB GIVES ADDRESSABILITY FOR ALL SYMBOLS. */ 00792001 */* PL/S - DCL JFCBPTR PTR */ 00794001 */* */ 00796002 */* F.E.'S */ 00798002 */* MICROFICHE LISTING - IEFJFCBN */ 00798402 */* */ 00798802 */* DEVELOPERS */ 00799202 */* BAL LISTING - SPECIFY LIST=YES ON MACRO CALL. */ 00799602 */* PL/S LISTING - SPECIFY %IHALIST='YES' BEFORE INCLUDE. */ 00799702 */* */ 00799802 */* FOR INTEGRATION A LISTING SHOULD NOT BE REQUESTED. */ 00799902 */* **************************************************************** */ 00800001 *%GOTO JFCBL2; /* 00802001 PUSH PRINT 00802402 AIF ('&LIST' EQ 'YES').JFCB1 00802802 PRINT OFF 00803202 .JFCB1 ANOP 00803602 SPACE 1 00804001 DS 0F 00810001 INFMJFCB EQU * 00900000 JFCBQNAM DS 0CL8 - PROCESS QUEUE NAME SPECIFIED BY THE QNAME 00910002 * KEYWORD (TCAM) 00920002 JFCBDSNM DS CL44 - DATA SET NAME 01000000 JFCIPLTX DS 0CL7 - MODULE NAME OF NETWORK CONTROL PROGRAM (TCAM) 01050002 * ICB391 01060002 JFCBELNM DS CL8 - ELEMENT NAME OR RELATIVE GENERATION NUMBER. 01100002 * TYPE OF AREA (INDEX, PRIME OR OVERFLOW) FOR 01200002 * AN INDEXED SEQUENTIAL DATA SET ONLY. 01300002 JFCBTSDM DS B - JOB MANAGEMENT/DATA MANAGEMENT INTERFACE 01400000 JFCCAT EQU X'80' - DATA SET IS CATALOGED 01500002 JFCVSL EQU X'40' - VOLUME SERIAL LIST HAS BEEN CHANGED 01600002 JFCSDS EQU X'20' - DATA SET IS A SYSIN OR SYSOUT DATA SET 01700002 JFCTTR EQU X'10' - A JOB STEP IS TO BE RESTARTED. USE JFCBOTTR 01800002 * INSTEAD OF DS1LSTAR FIELD TO REPOSITION DATA 01850002 * SET IF AUTOMATIC STEP RESTART OCCURS. (THIS 01900002 * JOB HAD ABEND PROCESSING FOR A DATA SET OPENED 01950002 * FOR MOD.) 02000002 JFCNWRIT EQU X'08' - DO NOT WRITE BACK THE JFCB DURING OPEN 02100000 * PROCESSING 02200000 JFCNDSCB EQU X'04' - DO NOT MERGE DSCB OR LABEL FIELDS INTO THIS 02300002 * JFCB 02400002 JFCNDCB EQU X'02' - DO NOT MERGE DCB FIELDS INTO THIS JFCB 02500000 JFCPAT EQU X'01' - THE PATTERNING DSCB IS COMPLETE 02600000 JFCBDSCB DS CL3 - TTR ADDRESS OF THE FORMAT 1 DSCB FOR DATA SET 02700002 * PART ON THE FIRST VOLUME OF THE DATA SET 02750002 * ICB398 02752002 JFCFCBID DS 0CL4 - FORMS CONTROL BUFFER IMAGE IDENTIFICATION FOR 02760001 * THE 3211 PRINTER OR DATA PROTECTION IMAGE 02760402 * IDENTIFICATION FOR THE 3525 CARD PUNCH WITH 02760802 * THE READ AND PRINT FEATURES OR FORMAT RECORD 02763002 * ID MDC007 02765302 JFCBFRID DS 0CL4 - LAST 4 CHARACTERS OF A PDS MEMBER TO BE USED 02767502 * IN THE INTERPRETATION OF DOCUMENTS READ BY 02769702 * 3886 DEVICE FOR THIS STEP MDC024 02771902 JFCAMCRO DS BL2 - VSAM CHECKPOINT/RESTART OPTION INDICATORS 02774102 * ICB438 02776302 JFCAMSTR DS H - NUMBER OF STRINGS ICB438 02778502 JFCBADBF DS H - NUMBER OF DATA BUFFERS ICB438 02780702 JFCNLREC DS H - LOGICAL RECORD LENGTH FOR VSAM ICB438 02782902 JFCVINDX DS H - MASS STORAGE SYSTEM COMMUNICATOR (MSSC) VOLUME 02787303 * SELECTION INDEX (MDC308) @Z30LP9A 02793304 JFCBLTYP DS B - LABEL TYPE 02800000 JFCRSV38 EQU X'80',,C'X' RESERVED 02810001 JFCBAL EQU X'40' - AMERICAN NATIONAL STANDARD TAPE LABELS (AL OR 02850002 * IF BIT 4 IS ALSO ON, AUL) 02852002 JFCBLTM EQU X'20' - UNLABELLED TAPE CREATED BY DOS MAY HAVE 02860002 * LEADING TAPE MARK. OPEN/CLOSE/EOV AND RESTART 02870002 * MUST SPACE OVER A TAPE MARK IF ONE EXISTS. 02880002 * ICB398 02890002 JFCBLP EQU X'10' - BYPASS LABEL PROCESSING 02900000 JFCSUL EQU X'0A' - USER LABEL 03000000 JFCNSL EQU X'04' - NONSTANDARD LABEL 03100000 JFCSL EQU X'02' - STANDARD LABEL 03200000 JFCNL EQU X'01' - NO LABEL 03300000 JFCBOTTR DS 0CL3 - DASD MOD DATA SET - IF AUTOMATIC STEP RESTART 03400002 * WAS REQUESTED, TTR OF THE END-OF-DATA 03500002 * INDICATOR EXISTING WHEN THE DATA SET WAS FIRST 03600002 * OPENED DURING THE ORIGINAL EXECUTION OF THE 03700002 * CURRENT STEP 03750002 JFCBUFOF DS FL1 - TAPE DATA SET - THIS FIELD CONTAINS THE BUFFER 03800002 * OFFSET (DCB SUBPARAMETER VALUE) 03810002 JFCBFOFL EQU X'80' - IF 1, THE OFFSET EQUALS FOUR AND THE BUFFER 03850002 * OFFSET FIELD OF EACH BLOCK (D-FORMAT RECORDS) 03860002 * CONTAINS THE BLOCK LENGTH (SPECIFIED BY 03870002 * BUFOFF=L). 03872002 * IF 0, THE OFFSET IS AS SPECIFIED IN THE 03874002 * REMAINING SEVEN BITS AND THE BUFFER OFFSET 03876002 * FIELD OF EACH BLOCK DOES NOT CONTAIN THE 03878002 * BLOCK LENGTH. 03878402 JFCFUNC DS 0B - FUNCTION INDICATORS FOR THE 3525 CARD PUNCH 03880002 * (SPECIFIED BY THE FUNC PARAMETER) ICB392 03882002 JFCFNCBI EQU X'80' - I - INTERPRET (PUNCH AND PRINT TWO LINES) 03890002 * ICB392 03890402 JFCFNCBR EQU X'40' - R - READ ICB392 03892002 JFCFNCBP EQU X'20' - P - PUNCH ICB392 03894002 JFCFNCBW EQU X'10' - W - PRINT ICB392 03896002 JFCFNCBD EQU X'08' - D - DATA PROTECTION ICB392 03898002 JFCFNCBX EQU X'04' - X - THIS DATA SET IS TO BE PRINTED. THIS MAY 03898402 * BE CODED WITH PW OR RPW TO DISTINGUISH THE 03898502 * DATA SET TO BE PRINTED FROM THE DATA SET TO 03898602 * BE PUNCHED. ICB392 03898702 JFCFNCBT EQU X'02' - T - TWO-LINE PRINT SUPPORT REQUEST. THE 03898802 * SECOND PRINT LINE IS LOCATED ON CARD LINE 03898902 * THREE. ICB392 03899002 JFCRSV31 EQU X'01',,C'X' RESERVED 03899201 JFCBFLSQ DS H - FOR MAGNETIC TAPE DEVICES, FILE SEQUENCE 03900002 * NUMBER 04000002 JFCBVLSQ DS H - VOLUME SEQUENCE NUMBER 04100000 JFCBMASK DS 0CL8 - DATA MANAGEMENT MASK 04200000 JFCBOPS1 DS BL5 - OPEN ROUTINE INTERNAL SWITCHES 04300000 JFCBFLG1 DS B - FLAG BYTE 04400000 JFCSTAND EQU X'80' - VOLUME LABEL PROCESSING STANDARD 04500000 JFCSLCRE EQU X'40' - CREATION OF A STANDARD LABEL IS NECESSARY 04600002 JFCSLDES EQU X'20' - DESTRUCTION OF A STANDARD LABEL IS NECESSARY 04800002 JFCDUAL EQU X'10' - DUAL-DENSITY CHECK DETECTED 05000002 JFCOPEN EQU X'0F' - OPEN ROUTINE INTERNAL SWITCHES 05100000 JFCBPWBP EQU X'01' - PASSWORD BYPASS INDICATOR MDC010 05150002 JFCBFLG2 DS B - FLAG BYTE OF OPEN SWITCHES 05200000 JFCINOP EQU X'80' - TREAT THE INOUT OPTION OF OPEN AS INPUT 05300000 JFCOUTOP EQU X'40' - TREAT THE OUTIN OPTION OF OPEN AS OUTPUT 05400000 JFCDEFER EQU X'20' - SET ONLY IN A JFCB RECORDED IN A DATA SET 05500002 * DESCRIPTOR RECORD (DSDR) BY THE CHECKPOINT 05510002 * ROUTINE. INDICATES THAT THE DATA SET RELATED 05520002 * TO THE JFCB IS BEING PROCESSED SEQUENTIALLY, 05550002 * AT THE CHECKPOINT, ON A VOLUME OTHER THAN THE 05600002 * VOLUME ON WHICH PROCESSING BEGAN IN THE 05700002 * CURRENT STEP. WHEN RESTART OCCURS, THIS BIT 05800002 * CAUSES DEFERRED VOLUME MOUNTING. 05900002 JFCNRPS EQU X'20' - USE BY OPEN ROUTINES - SET TO INDICATE THAT 05950002 * THIS DATA SET RESIDES ON A NON-RPS DEVICE. 05960002 * RESET TO ZERO WHEN OPEN PROCESSING IS 05970002 * COMPLETED. ICB495 05980002 JFCMODNW EQU X'10' - DISPOSITION OF THIS DATA SET HAS BEEN CHANGED 06000002 * FROM MOD TO NEW. DISPOSITION (IN JFCBIND2) 06100002 * WILL BE RESTORED TO MOD AFTER OPEN. 06200002 JFCSDRPS EQU X'08' - USE SEARCH DIRECT FOR ROTATIONAL POSITION 06202002 * SENSING (RPS) DEVICES ICB398 06204002 JFCTRACE EQU X'04' - GTF TRACE IS TO OCCUR DURING OPEN/CLOSE/EOV 06210001 * AND DYNAMIC ALLOCATION PROCESSING OF DCB 06220001 * ICB392 06230001 JFCBBUFF EQU X'02' - INDICATOR TO OPEN THAT A NON-ZERO VALUE IN 06250001 * JFCBOTTR IS NOT TO PREVENT THE NORMAL STORING 06260001 * BY OPEN OF A TTR IN JFCBOTTR. BEFORE OPEN - 06270002 * JFCBUFOF (OFFSET 67) CONTAINS A BUFFER OFFSET 06272002 * OR INVALID INFORMATION RESULTING FROM A 06274002 * JFCB-TO-JFCB MERGE. AFTER OPEN - OPEN MAY 06276002 * HAVE STORED A TTR IN JFCBOTTR (OFFSET 67), IN 06278002 * WHICH CASE OPEN WILL HAVE SET THIS BIT TO 06278402 * ZERO. 06278802 JFCRCTLG EQU X'01' - OPEN HAS UPDATED THE TTR. SCHEDULER STEP 06280002 * TERMINATION ROUTINE IS TO RECATALOG THIS DATA 06282002 * SET AND PLACE IN THE CATALOG ENTRY THE DSCB 06290002 * TTR CONTAINED IN JFCBDSCB IF THIS DATA SET IS 06292002 * CATALOGED. ICB398 06294002 JFCBOPS2 DS B - OPEN ROUTINE INTERNAL SWITCHES 06300000 JFCBCRDT DS CL3 - DATA SET CREATION DATE (YDD, Y=YEAR AND 06400002 * DD=DAY) 06450002 JFCBXPDT DS CL3 - DATA SET EXPIRATION DATE (YDD) 06500000 JFCBIND1 DS B - INDICATOR BYTE 1 06700000 JFCRLSE EQU X'C0' - RELEASE EXTERNAL STORAGE 07000000 JFCLOC EQU X'30' - DATA SET HAS BEEN LOCATED 07100000 JFCADDED EQU X'0C' - NEW VOLUME HAS BEEN ADDED TO THE DATA SET 07200002 JFCGDG EQU X'02' - DATA SET IS A MEMBER OF A GENERATION DATA 07300002 * GROUP 07400000 JFCPDS EQU X'01' - DATA SET IS A MEMBER OF A PARTITIONED DATA SET 07500002 SPACE 1 07600002 ******************************************************************** 07700000 * 07800000 * THE FOLLOWING FOUR BIT SETTINGS ARE FROM AN OLD MAPPING MACRO 07900000 * THESE FOUR WILL BE REMOVED IN A FUTURE RELEASE. USE THE 08100000 * FOREGOING SYMBOLS FOR JFCBIND1 08300000 * 08400000 ******************************************************************** 08500000 JFCBRLSE EQU X'40' - BITS 0 & 1 - EXTERNAL STORAGE RELEASE 08600000 * INDICATOR 08700000 JFCBLOCT EQU X'10' - BITS 2 & 3 - DATA SET HAS BEEN LOCATED 08800000 JFCBNEWV EQU X'04' - BITS 4 & 5 - NEW VOLUME ADDED TO DATA SET 08900000 JFCBPMEM EQU X'01' - BITS 6 & 7 - DATA SET IS A MEMBER OF A 09000000 * PDS OR GDG 09100000 ******************************************************************** 09150000 SPACE 1 09200002 JFCBIND2 DS B - INDICATOR BYTE 2 09300000 JFCDISP EQU X'C0' - BIT PATTERN FOR NEW, MOD, OLD 09600000 JFCNEW EQU X'C0' - NEW DATA SET 09700000 JFCMOD EQU X'80' - MOD DATA SET 09800000 JFCOLD EQU X'40' - OLD DATA SET 09900000 JFCBRWPW EQU X'30' - PASSWORD IS REQUIRED TO WRITE BUT NOT TO READ 10000002 * (DATA SET SECURITY) 10100002 JFCSECUR EQU X'10' - PASSWORD IS REQUIRED TO READ OR TO WRITE 10200002 * (DATA SET SECURITY) 10250002 JFCSHARE EQU X'08' - SHARED DATA SET 10300000 JFCENT EQU X'04' - DELETE THIS JFCB BEFORE ALLOCATION FOR A 10400002 * RESTARTED GENERATION DATA GROUP 10450002 JFCREQ EQU X'02' - STORAGE VOLUME REQUESTED 10800000 JFCTEMP EQU X'01' - TEMPORARY DATA SET 10900000 SPACE 1 10950002 ******************************************************************** 11000000 * 11100000 * THE FOLLOWING THREE BIT SETTINGS ARE FROM AN OLD MAPPING MACRO 11200000 * THESE THREE WILL BE REMOVED IN A FUTURE RELEASE. USE THE 11400000 * FOREGOING SYMBOLS FOR JFCBIND2 11600000 * 11700000 ******************************************************************** 11800000 JFCBSTAT EQU X'40' - BITS 0 & 1 - DATA SET STATUS (NEW, 11900000 * OLD OR MOD) 12000000 JFCBSCTY EQU X'10' - BIT 3 DATA SET SECURITY INDICATOR 12100001 JFCBGDGA EQU X'04' - BITS 4 & 5 - THIS JFCB IS A MEMBER OF A 12200000 * GDG-ALL REQUEST 12300000 ******************************************************************** 12350000 SPACE 1 12352002 JFCAMPTR DS 0A - POINTER TO AMPBLK FOR ADDITIONAL VSAM 12360002 * PARAMETERS ICB438 12370002 JFCBUFNO DS 0XL1 - NUMBER OF BUFFERS REQUIRED FOR THIS DATA SET 12400002 * (ACCESS METHODS OTHER THAN TCAM AND QTAM) 12500002 JFCBUFIN DS 0XL1 - BITS 0-3 CONTAIN THE NUMBER OF BUFFERS 12700002 * ASSIGNED INITIALLY FOR RECEIVING OPERATIONS 12702002 * FOR EACH LINE IN A LINE GROUP (TCAM) 12704002 JFCBFOUT DS 0XL1 - BITS 4-7 CONTAIN THE NUMBER OF BUFFERS 12710002 * ASSIGNED INITIALLY FOR SENDING OPERATIONS FOR 12760002 * EACH LINE IN A LINE GROUP (TCAM) 12770002 JFCBUFRQ DS XL1 - NUMBER OF BUFFERS REQUIRED FOR EACH LINE 12800002 * (QTAM) 12900002 JFCBGNCP DS 0FL1 - FOR GAM, THIS FIELD IS USED FOR THE NUMBER OF 12950002 * IOB'S CONSTRUCTED BY THE OPEN ROUTINE. 12960002 * MAXIMUM NUMBER IS 99. MDC025 12970002 JFCBHIAR DS 0BL1 - BUFFER POOL LOCATION IN MAIN STORAGE 13000000 * (HIERARCHY) 13100000 JFCBFALN DS 0BL1 - BUFFER ALIGNMENT 13200000 JFCBFTEK DS B - BUFFERING TECHNIQUE 13300002 JFCHIER EQU X'84' - BITS 0 AND 5 DESCRIBE MAIN STORAGE HIERARCHY. 13600002 * BOTH BITS OFF, HIERARCHY 0. 13700002 * BIT 0 OFF AND BIT 5 ON, HIERARCHY 1. 13800002 JFCSIM EQU X'40' - S - SIMPLE BUFFERING 13900002 JFCBBFTA EQU X'60' - A - FOR QSAM LOCATE MODE PROCESSING OF SPANNED 13950002 * RECORDS, AUTOMATIC RECORD AREA CONSTRUCTION 13960002 * DURING LOGICAL RECORD INTERFACE PROCESSING. 13970002 * OPEN IS TO CONSTRUCT A RECORD AREA IF IT 13980002 * AUTOMATICALLY CONSTRUCTS BUFFERS. 13990002 JFCBBFTR EQU X'20' - R - FOR BSAM CREATE BDAM PROCESSING OR BDAM 13992002 * PROCESSING OF UNBLOCKED SPANNED RECORDS, 13994002 * SOFTWARE TRACK OVERFLOW. OPEN FORMS A SEGMENT 13996002 * WORK AREA POOL AND STORES THE ADDRESS OF THE 13998002 * SEGMENT WORK AREA CONTROL BLOCK IN THE DCBEOBW 13998402 * FIELD OF THE DATA CONTROL BLOCK. WRITE USES 13998802 * A SEGMENT WORK AREA TO WRITE A RECORD AS ONE 13999202 * OR MORE SEGMENTS. 13999602 * FOR BSAM INPUT PROCESSING OF UNBLOCKED SPANNED 13999702 * RECORDS WITH KEYS, RECORD OFFSET PROCESSING. 13999802 * READ READS ONE RECORD SEGMENT INTO THE RECORD 13999902 * AREA. THE FIRST SEGMENT OF A RECORD IS 14033202 * PRECEDED IN THE RECORD AREA BY THE KEY. 14043202 * SUBSEQUENT SEGMENTS ARE AT AN OFFSET EQUAL TO 14053202 * THE KEY LENGTH. 14063202 JFCEXC EQU X'10' - E - EXCHANGE BUFFERING 14066702 JFCDYN EQU X'08' - DYNAMIC BUFFERING 14100000 JFCHIER1 EQU X'04' - HIERARCHY 1 MAIN STORAGE 14200000 JFCDWORD EQU X'02' - D - DOUBLE WORD BOUNDARY 14300002 JFCFWORD EQU X'01' - F - FULL WORD NOT A DOUBLE WORD BOUNDARY 14400002 JFCBUFL DS H - BUFFER LENGTH 14500000 JFCEROPT DS B - ERROR OPTION. DISPOSITION OF PERMANENT ERRORS 14600002 * IF USER RETURNS FROM A SYNCHRONOUS ERROR 14650002 * EXIT. (QSAM) 14660002 JFCACC EQU X'80' - ACCEPT 14700000 JFCSKP EQU X'40' - SKIP 14800000 JFCABN EQU X'20' - ABNORMAL END OF TASK 14900000 JFCTOPT EQU X'10' - ON-LINE TERMINAL TEST (BTAM) ICB349 14950001 JFCRSV02 EQU X'08',,C'X' RESERVED 14960001 JFCRSV03 EQU X'04',,C'X' RESERVED 14970001 JFCRSV04 EQU X'02',,C'X' RESERVED 14980001 JFCRSV05 EQU X'01',,C'X' RESERVED 14990001 JFCTRTCH DS 0CL1 - TAPE RECORDING TECHNIQUE FOR 7-TRACK TAPE 15000002 JFCEVEN EQU X'23' - E - EVEN PARITY 15200002 JFCTRAN EQU X'3B' - T - EOD/EBCDIC TRANSLATION 15300002 JFCCONV EQU X'13' - C - DATA CONVERSION 15400002 JFCTREV EQU X'2B' - ET - EVEN PARITY AND TRANSLATION 15500002 JFCKEYLE DS 0XL1 - DIRECT ACCESS KEY LENGTH 15600000 JFCCODE DS 0BL1 - CONVERSION CODE (PAPER TAPE) 15800002 JFCNOCON EQU X'80' - N - NO CONVERSION 15900002 JFCBCD EQU X'40' - I - IBM BCD 16000002 JFCFRI EQU X'20' - F - FRIDEN 16100002 JFCBUR EQU X'10' - B - BURROUGHS 16200002 JFCNCR EQU X'08' - C - NATIONAL CASH REGISTER 16300002 JFCASCII EQU X'04' - A - ASCII (8-TRACK) 16400002 JFCTTY EQU X'02' - T - TELETYPE 16500002 JFCRSV32 EQU X'01',,C'X' RESERVED 16510001 JFCMODE DS 0BL1 - MODE OF OPERATION (CARD READER, CARD PUNCH) 16550002 * ICB394 16560002 JFCSTACK DS 0BL1 - STACKER SELECTION (CARD READER, CARD PUNCH) 16600002 JFCBIN EQU X'80' - C - COLUMN BINARY MODE 16700002 JFCEBCD EQU X'40' - E - EBCDIC MODE 16800002 JFCMODEO EQU X'20' - 0 - OPTICAL MARK READ MODE (3505 ONLY) ICB394 16850002 JFCMODER EQU X'10' - R - READ COLUMN ELIMINATE MODE (3505 AND 3525 16860002 * WITH READ FEATURE) ICB394 16862002 JFCRSV06 EQU X'08',,C'X' RESERVED 16870001 JFCRSV07 EQU X'04',,C'X' RESERVED 16880001 JFCTWO EQU X'02' - 2 - STACKER TWO 16900002 JFCONE EQU X'01' - 1 - STACKER ONE 17000002 JFCPRTSP DS B - NORMAL PRINTER SPACING 17100000 JFCSPTHR EQU X'19' - 3 - SPACE THREE LINES 17200002 JFCSPTWO EQU X'11' - 2 - SPACE TWO LINES 17300002 JFCSPONE EQU X'09' - 1 - SPACE ONE LINE 17400002 JFCSPNO EQU X'01' - 0 - NO SPACING 17500002 JFCDEN DS B - TAPE DENSITY - 2400/3400 SERIES MAGNETIC TAPE 17600002 * UNITS 17650002 JFC200 EQU X'03' - 7-TRACK 200 BPI 17700000 JFC556 EQU X'43' - 7-TRACK 556 BPI 17800000 JFC800 EQU X'83' - 7-TRACK AND 9-TRACK 800 BPI 17900002 JFC1600 EQU X'C3' - 9-TRACK 1600 BPI 18000000 JFC6250 EQU X'D3' - 9-TRACK 6250 BPI ICB474 18010002 JFCBABFS DS 0FL3 - TOTAL BUFFER SIZE FOR ALL VSAM BUFFERS ICB438 18050002 JFCLIMCT DS 0CL3 - SEARCH LIMIT (BDAM) 18100000 DS CL1 - RESERVED 18200002 JFCTRKBL DS CL2 - DATA SET OPENED FOR MOD - IF AUTOMATIC STEP 18300002 * RESTART WAS REQUESTED, TRACK BALANCE EXISTING 18500002 * WHEN THE DATA SET WAS FIRST OPENED DURING THE 18600002 * ORIGINAL EXECUTION OF THE CURRENT STEP 18700002 JFCDSORG DS 0BL2 - DATA SET ORGANIZATION BEING USED 18900000 JFCDSRG1 DS B - BYTE 1 OF JFCDSORG 19000000 JFCORGIS EQU X'80' - INDEXED SEQUENTIAL 19100000 JFCORGPS EQU X'40' - PHYSICAL SEQUENTIAL 19200000 JFCORGDA EQU X'20' - DIRECT 19300000 JFCORGCX EQU X'10' - BTAM OR QTAM LINE GROUP MDC011 19310002 JFCORGCQ EQU X'08' - QTAM DIRECT ACCESS MESSAGE QUEUE MDC012 19320002 JFCORGMQ EQU X'04' - QTAM PROBLEM PROGRAM MESSAGE QUEUE MDC013 19330002 JFCORGPO EQU X'02' - PARTITIONED 19400000 JFCORGU EQU X'01' - UNMOVABLE - THE DATA CONTAINS LOCATION 19500000 * DEPENDENT INFORMATION 19600000 JFCDSRG2 DS B - BYTE 2 OF JFCDSORG 19700000 JFCORGGS EQU X'80' - GRAPHICS 19800000 JFCORGTX EQU X'40' - TCAM LINE GROUP MDC014 19810002 JFCORGTQ EQU X'20' - TCAM MESSAGE QUEUE MDC015 19820002 JFCRSV13 EQU X'10',,C'X' RESERVED, BINARY ZERO 19830002 JFCORGAM EQU X'08' - VSAM ICB438 19850002 JFCORGTR EQU X'04' - TCAM 3705 MDC016 19860002 JFCRSV15 EQU X'02',,C'X' RESERVED, BINARY ZERO 19870002 JFCRSV16 EQU X'01',,C'X' RESERVED, BINARY ZERO 19880002 JFCRECFM DS B - RECORD FORMAT 19900000 JFCFMREC EQU X'C0' - HIGH-ORDER TWO BITS OF JFCRECFM TO BE TESTED 20000002 * FOR RECORD FORMAT 20100002 JFCUND EQU X'C0' - U - UNDEFINED 20900002 JFCFIX EQU X'80' - F - FIXED 21000002 JFCVAR EQU X'40' - V - VARIABLE 21100002 JFCRCFM EQU X'E0' - RECORD FORMAT (USASI/USASCII) 21250001 JFCVARD EQU X'20' - D - VARIABLE (FORMAT D FOR USASI/USASCII) 21260002 JFCRFO EQU X'20' - T - TRACK OVERFLOW 21300002 JFCRFB EQU X'10' - B - BLOCKED - MAY NOT OCCUR WITH UNDEFINED 21400002 JFCRFS EQU X'08' - S - FOR FIXED LENGTH RECORD FORMAT, STANDARD 21500002 * BLOCKS. NO TRUNCATED BLOCKS OR UNFILLED 21550002 * TRACKS ARE EMBEDDED IN THE DATA SET. 21600002 * FOR VARIABLE LENGTH RECORD FORMAT, SPANNED 21650002 * RECORDS. 21700002 JFCCHAR EQU X'06' - CONTROL CHARACTER 21800002 JFCASA EQU X'04' - A - AMERICAN NATIONAL STANDARD (ASA) CONTROL 22600002 * CHARACTER 22650002 JFCMAC EQU X'02' - M - MACHINE CODE CONTROL CHARACTER 22700002 JFCNOCC EQU X'00' - NO CONTROL CHARACTER 22800000 JFCOPTCD DS B - OPTION CODES 22900000 SPACE 1 22950002 * QSAM - BSAM - BPAM 23000000 JFCWVCSP EQU X'80' - W - WRITE VALIDITY CHECK 23100002 JFCALLOW EQU X'40' - U - ALLOW A DATA CHECK CAUSED BY AN INVALID 23200002 * CHARACTER (1403 PRINTER WITH UCS FEATURE) 23300002 JFCPCIBT EQU X'20' - C - CHAINED SCHEDULING USING THE PROGRAM 23400002 * CONTROLLED INTERRUPTION 23500000 JFCBCKPT EQU X'10' - BYPASS EMBEDDED DOS CHECKPOINT RECORDS ON TAPE 23550001 * ICB398 23560001 JFCRSV18 EQU X'08',,C'X' RESERVED 23570001 JFCREDUC EQU X'04' - Z - USE REDUCED ERROR RECOVERY PROCEDURE 23600002 * (MAGNETIC TAPE) (EXCP ALSO) 23700002 JFCSRCHD EQU X'04' - USE SEARCH DIRECT (SD), INSTEAD OF SEARCH 23750002 * PREVIOUS, ON ROTATIONAL POSITION SENSING (RPS) 23760002 * DEVICE. (DIRECT ACCESS) 23770002 JFCRSV21 EQU X'02',,C'X' RESERVED 23780001 JFCOPTJ EQU X'01' - J - 3800 CONTROL CHARACTER (MDC301) @Z40MP9A 23790004 SPACE 1 23792002 * BISAM - QISAM 23800000 JFCWVCIS EQU X'80' - W - WRITE VALIDITY CHECK 23900002 JFCRSV17 EQU X'40',,C'X' RESERVED 23950001 JFCMAST EQU X'20' - M - MASTER INDEXES 24000002 JFCIND EQU X'10' - I - INDEPENDENT OVERFLOW AREA 24100002 JFCCYL EQU X'08' - Y - CYLINDER OVERFLOW AREA 24200002 JFCRSV19 EQU X'04',,C'X' RESERVED 24250001 JFCDEL EQU X'02' - L - DELETE OPTION 24300002 JFCREORG EQU X'01' - R - REORGANIZATION CRITERIA 24400002 SPACE 1 24450002 * BDAM 24500000 JFCWVCBD EQU X'80' - W - WRITE VALIDITY CHECK 24600002 JFCOVER EQU X'40' - TRACK OVERFLOW 24700000 JFCEXT EQU X'20' - E - EXTENDED SEARCH 24800002 JFCFEED EQU X'10' - F - FEEDBACK 24900002 JFCACT EQU X'08' - A - ACTUAL ADDRESSING 25000002 JFCRSV20 EQU X'04',,C'X' RESERVED 25050001 JFCRSV22 EQU X'02',,C'X' RESERVED 25060001 JFCREL EQU X'01' - R - RELATIVE BLOCK ADDRESSING 25100002 SPACE 1 25110002 * USASI/USASCII 25150001 JFCOPTQ EQU X'08' - EBCDIC TO ASCII OR ASCII TO EBCDIC 25160002 * TRANSLATION REQUIRED 25170002 SPACE 1 25172002 * TCAM 25180001 JFCSDNAM EQU X'80' - SOURCE OR DESTINATION NAME PRECEDES MESSAGE 25190001 * (AFTER CONTROL BYTE) 25192001 JFCWUMSG EQU X'40' - WORK UNIT IS A MESSAGE (DEFAULT WORK UNIT IS 25194002 * A RECORD) 25196002 JFCCBWU EQU X'20' - CONTROL BYTE PRECEDES WORK UNIT 25198001 JFCBLKSI DS 0H - MAXIMUM BLOCK SIZE 25200001 JFCBUFSI DS 0H - MAXIMUM BUFFER SIZE 25300002 JFCBAXBF DS H - NUMBER OF INDEX BUFFERS (VSAM) ICB438 25350002 JFCAMSYN DS 0CL8 - MODULE NAME FOR SYNAD ROUTINE FOR VSAM ICB438 25360002 JFCLRECL DS H - LOGICAL RECORD LENGTH 25400000 JFCNCP DS 0FL1 - NUMBER OF CHANNEL PROGRAMS. NUMBER OF READ OR 25500002 * WRITE REQUESTS WHICH MAY BE ISSUED PRIOR TO A 25600002 * CHECK. NUMBER OF IOB'S GENERATED. 25700002 * (MAXIMUM NUMBER IS 99.) 25800002 * NOTE - GAM USES JFCBFTEK FOR THIS INFORMATION 25900002 * AND DOES NOT USE THIS FIELD AT ALL. 26000002 JFCBUFMX DS FL1 - THE MAXIMUM NUMBER OF BUFFERS TO BE USED FOR 26100002 * DATA TRANSFER FOR EACH LINE IN THIS LINE 26150002 * GROUP (TCAM) 26160002 JFCBFSEQ DS 0FL1 - TAPE POSITIONING INFORMATION FOR CHECKPOINT 26170002 * RESTART. THIS FIELD IS USED TO PASS A 26180002 * PHYSICAL FILE SEQUENCE COUNT FROM CHECKPOINT 26190002 * TO RESTART. THE COUNT TELLS THE PHYSICAL 26192002 * POSITION OF THE TAPE VOLUME THAT WAS BEING 26194002 * PROCESSED WHEN THE CHECKPOINT WAS TAKEN. 26196002 * SA60703 26198002 JFCNTM DS 0FL1 - THE NUMBER OF TRACKS THAT DETERMINE THE 26200002 * DEVELOPMENT OF A MASTER INDEX. MAXIMUM 26300002 * NUMBER IS 99. (ISAM) 26400002 JFCPCI DS B - PROGRAM-CONTROLLED INTERRUPTION (PCI) FLAG 26410002 * BYTE (TCAM) 26412002 JFCPCIX1 EQU X'80' - PCI=(X,) RECEIVE OPERATIONS ICB473 26420001 JFCPCIX2 EQU X'40' - PCI=(,X) SEND OPERATIONS 26430001 * X INDICATES THAT AFTER THE FIRST BUFFER IS 26440001 * FILLED (ON RECEIVE OPERATIONS) OR EMPTIED (ON 26450001 * SEND OPERATIONS), A PCI OCCURS DURING THE 26460001 * FILLING OR EMPTYING OF THE NEXT BUFFER. THE 26470001 * FIRST BUFFER REMAINS ALLOCATED AND ANOTHER 26480001 * IS ALLOCATED. ICB473 26490001 JFCPCIA1 EQU X'20' - PCI=(A,) RECEIVE OPERATIONS 26500001 JFCPCIA2 EQU X'10' - PCI=(,A) SEND OPERATIONS 26510001 * A INDICATES THAT AFTER THE FIRST BUFFER IS 26520001 * FILLED (ON RECEIVE OPERATIONS) OR EMPTIED (ON 26530001 * SEND OPERATIONS), A PCI OCCURS DURING THE 26540001 * FILLING OR EMPTYING OF THE NEXT BUFFER. THE 26550001 * FIRST BUFFER IS DEALLOCATED. A BUFFER IS 26560001 * ALLOCATED IN PLACE OF THE DEALLOCATED BUFFER. 26570001 JFCPCIN1 EQU X'08' - PCI=(N,) RECEIVE OPERATIONS 26580001 JFCPCIN2 EQU X'04' - PCI=(,N) SEND OPERATIONS 26590001 * N INDICATES THAT NO PCI'S ARE TAKEN DURING 26600001 * FILLING (ON RECEIVE OPERATIONS) OR EMPTYING 26610001 * (ON SEND OPERATIONS) OF BUFFERS. BUFFERS 26620001 * ARE DEALLOCATED AT THE END OF TRANSMISSION. 26630001 JFCPCIR1 EQU X'02' - PCI=(R,) RECEIVE OPERATIONS 26640001 JFCPCIR2 EQU X'01' - PCI=(,R) SEND OPERATIONS 26650001 * R INDICATES THAT AFTER THE FIRST BUFFER IS 26660001 * FILLED (ON RECEIVE OPERATIONS) OR EMPTIED (ON 26670001 * SEND OPERATIONS), A PCI OCCURS DURING THE 26680001 * FILLING OR EMPTYING OF EACH SUCCEEDING BUFFER. 26690001 * THE COMPLETED BUFFER IS DEALLOCATED, BUT NO 26700001 * NEW BUFFER IS ALLOCATED TO TAKE ITS PLACE. 26710001 SPACE 2 26760002 ******************************************************************* 26800000 * 26900003 * NORMAL 108 SEGMENT 26980003 * 27060003 JFCRESRV DS 0BL4 - FIRST BYTE CONTAINS NUMBER OF BYTES FOR TIME 27150002 * OF DAY. SECOND BYTE CONTAINS NUMBER OF BYTES 27160002 * FOR DATE. THIRD BYTE CONTAINS NUMBER OF 27170002 * BYTES FOR OUT SEQ. FOURTH BYTE CONTAINS 27180002 * NUMBER OF BYTES IN. (TCAM) 27190002 JFCRKP DS H - THE RELATIVE POSITION OF THE FIRST BYTE OF THE 27200002 * KEY WITHIN EACH LOGICAL RECORD. MAXIMUM VALUE 27300002 * IS LOGICAL RECORD LENGTH MINUS KEY LENGTH. 27400002 JFCCYLOF DS XL1 - THE NUMBER OF TRACKS TO BE RESERVED ON EACH 28000002 * CYLINDER TO HOLD RECORDS THAT OVERFLOW FROM 28100002 * OTHER TRACKS ON THAT CYLINDER. MAXIMUM VALUE 28200002 * IS 99. 28300002 JFCDBUFN DS CL1 - RESERVED 28400000 JFCINTVL DS XL1 - INTENTIONAL DELAY, IN SECONDS, BETWEEN 28500000 * PASSES THROUGH A POLLING LIST (QTAM) 28600000 * END OF NORMAL 108 SEGMENT 28700003 ******************************************************************* 28800000 SPACE 2 28900002 ******************************************************************* 29000000 * 29100003 * 108 PRINTER SEGMENT 29150003 * 29200003 * NOTE THIS SEGMENT REPLACES THE NORMAL 108 SEGMENT IF 29250003 * THE DD STATEMENT USES THE UCS PARAMETER. 29300003 * 29350003 ORG JFCRESRV 29400002 JFCUCSID DS CL4 - NAME OF THE UCS IMAGE TO BE LOADED 29500000 JFCUCSOP DS B - OPERATION OF THE UCS IMAGE TO BE LOADED 29600000 JFCBEXTP EQU X'80' - JFCB EXTENSION PRESENT FOR 3800 DEVICE 29650004 * (MDC302) @Z40MP9A 29670004 JFCFOLD EQU X'40' - UCS IMAGE IS TO BE LOADED IN THE FOLD MODE 29700002 JFCRSV25 EQU X'20',,C'X' RESERVED 29750001 JFCVER EQU X'10' - UCS IMAGE IS TO BE VERIFIED 29800002 JFCFCBAL EQU X'08' - FORMS ARE TO BE ALIGNED 29850002 JFCFCBVR EQU X'04' - FORMS CONTROL BUFFER (FCB) IMAGE IS TO BE 29860002 * VERIFIED 29862002 JFCRSV26 EQU X'02',,C'X' RESERVED 29870001 JFCRSV27 EQU X'01',,C'X' RESERVED 29880001 * END OF 108 PRINTER SEGMENT 29900003 ******************************************************************* 30000000 SPACE 2 30010002 JFCOUTLI DS 0FL3 - SMF - SYSOUT LIMIT. BINARY REPRESENTATION OF 30050002 * THE OUTLIM= PARAMETER ON THE SYSOUT DD 30060002 * STATEMENT. THE MAXIMUM NUMBER OF LOGICAL 30070002 * RECORDS SPECIFIED FOR THIS OUTPUT DATA SET. 30080002 * MDC017 30090002 JFCTHRSH DS 0FL1 - RECORDS TO BE USED 30092002 JFCCPRI DS B - PRIORITY BETWEEN SEND AND RECEIVE OPERATIONS 30100002 * (TCAM) 30200002 JFCRSV53 EQU X'80',,C'X' RESERVED MDC020 30450002 JFCRSV54 EQU X'40',,C'X' RESERVED MDC019 30500002 JFCRSV55 EQU X'20',,C'X' RESERVED MDC018 30550002 JFCRSV33 EQU X'10',,C'X' RESERVED 30750001 JFCRSV34 EQU X'08',,C'X' RESERVED 30760001 JFCRECV EQU X'04' - RECEIVE PRIORITY MDC018 30770002 JFCEQUAL EQU X'02' - EQUAL PRIORITY MDC019 30780002 JFCSEND EQU X'01' - SEND PRIORITY MDC020 30790002 JFCSOWA DS H - LENGTH, IN BYTES, OF THE USER-PROVIDED WORK 30800002 * AREA (QTAM) 30900002 JFCBNTCS DS XL1 - NUMBER OF OVERFLOW TRACKS 31000000 JFCBNVOL DS XL1 - NUMBER OF VOLUME SERIAL NUMBERS 31100000 JFCBVOLS DS 0CL30 - THE FIRST FIVE VOLUME SERIAL NUMBERS @Z30LP9A 31200004 DS CL22 - FIRST 22 BYTES OF JFCBVOLS @Z30LP9A 31220004 JFCMSVGP DS CL8 - MASS STORAGE VOLUME GROUP FROM WHICH TO 31240003 * SELECT A VOLUME (MDC306) @Z30LP9A 31270004 JFCBEXTL DS XL1 - LENGTH OF BLOCK OF EXTRA VOLUME SERIAL NUMBERS 31300002 * (BEYOND FIVE) 31400002 JFCBEXAD DS CL3 - RELATIVE TRACK ADDRESS (TTR) OF FIRST JFCB 31500000 * EXTENSION BLOCK FOR VOLUME SERIAL NUMBERS OR 31600004 * TTR OF JFCB EXTENSION BLOCK FOR 3800 31630004 * (MDC303) @Z40MP9A 31660004 JFCBPQTY DS 0CL3 - PRIMARY QUANTITY OF DIRECT ACCESS STORAGE 31700002 * REQUIRED 31800002 JFCRUNIT DS CL3 - UNIT TYPE (EBCDIC) OF A DEVICE AT A REMOTE 31810002 * TERMINAL. THE FIRST TWO CHARACTERS ARE RD 31820002 * (READER), PR (PRINTER) OR PU (PUNCH). THE 31830002 * THIRD CHARACTER IS A NUMBER FROM 1 TO 9 ICB387 31840002 JFCBCTRI DS B - SPACE PARAMETERS 31900000 JFCBSPAC EQU X'C0' - BIT PATTERN FOR SPACE REQUESTS 32000000 JFCBABS EQU X'00' - ABSTR REQUEST 32900002 JFCBAVR EQU X'40' - AVERAGE BLOCK LENGTH REQUEST 33000000 JFCBTRK EQU X'80' - TRK REQUEST 33100002 JFCBCYL EQU X'C0' - CYL REQUEST 33200002 JFCBMSGP EQU X'20' - REQUEST IS FOR A MASS STORAGE VOLUME GROUP 33250003 * (MSVGP) VOLUME (MDC307) @Z30LP9A 33300004 JFCRSV29 EQU X'10',,C'X' RESERVED 33350001 JFCONTIG EQU X'08' - CONTIG REQUEST 33400002 JFCMIXG EQU X'04' - MXIG REQUEST 33500002 JFCALX EQU X'02' - ALX REQUEST 33600002 JFCROUND EQU X'01' - ROUND REQUEST 33700002 JFCBSQTY DS 0CL3 - SECONDARY QUANTITY OF DIRECT ACCESS STORAGE 33800002 * REQUIRED 33900002 JFCRQID DS H - QUEUE IDENTIFICATION (QID) USED BY ACCESS 33950002 * METHOD TO DETERMINE THE REMOTE TERMINAL 33952002 * LOCATION FOR THIS JOB. ICB387 33960002 DS X - LAST BYTE OF JFCBSQTY (MDC304) @XM05457 33970003 JFCFLGS1 DS B - FLAG BYTE (ICB488) SA53458 34000001 JFCBDLET EQU X'80' - IF ONE, DELETE THE DATA SET USED WHEN 34001003 * EXTENDING THE JOB QUEUE OR SPOOL DATA SETS 34001603 * (OS/VS1) (MDC305) @XM05457 34002203 JFCTOPEN EQU X'40' - TAPE DATA SET HAS BEEN OPENED MDC026 34003002 JFCBADSP EQU X'20' - AUTOMATIC DATA SET PROTECTION INDICATOR 34005004 * (MDC310) @Z40RP9A 34005104 JFCBPROT EQU X'10' - RACF PROTECT REQUESTED (OS/VS2) 34005203 * (MDC314) @G32HP9A 34005403 JFCBCEOV EQU X'08' - IF ONE, CHKPT=EOV SPECIFIED FOR THIS DATA SET 34005803 * (MDC312) @Z30JP9A 34006303 JFCVRDS EQU X'04' - VIO DATA SET MDC006 34006802 JFCBCKDS EQU X'02' - DATA SET IS CHECKPOINT DATASET @ZA52824 34007003 JFCBUAFF EQU X'01' - UNIT AFFINITY SPECIFIED FOR THIS DATA SET 34008001 * (ICB488) SA53458 34058001 JFCBDQTY DS CL3 - QUANTITY OF DIRECT ACCESS STORAGE REQUIRED FOR 34500002 * A DIRECTORY OR AN EMBEDDED INDEX AREA 34600002 JFCBSPNM DS 0AL3 - MAIN STORAGE ADDRESS OF THE JFCB WITH WHICH 34650003 * CYLINDERS ARE SPLIT (OS/VS1) (MDC315) @ZA18180 34700003 JFCBFLG3 DS B - FLAG BYTE (OS/VS2) (MDC316) @ZA18180 34800003 JFCDQDSP EQU X'80' - REQUEST DEQUEUE OF TAPE VOLUME WHEN DEMOUNTED 34808003 * (MDC317) @ZA18180 34816003 JFCBEXP EQU X'40' - EXPIRATION DATE SPECIFIED (MDC318) @ZA27139 34824003 JFCBRV02 EQU X'20',,C'X' - RESERVED @ZA18180 34832003 JFCBRV03 EQU X'10',,C'X' - RESERVED @ZA18180 34840003 JFCBRV04 EQU X'08',,C'X' - RESERVED @ZA18180 34848003 JFCBRV05 EQU X'04',,C'X' - RESERVED @ZA18180 34856003 JFCBRV06 EQU X'02',,C'X' - RESERVED @ZA18180 34864003 JFCBRV07 EQU X'01',,C'X' - RESERVED @ZA18180 34872003 JFCBRV08 DS H - RESERVED (OS/VS2) @ZA18180 34880003 JFCBABST DS H - RELATIVE ADDRESS OF FIRST TRACK TO BE 34900000 * ALLOCATED 35000000 JFCBSBNM DS AL3 - MAIN STORAGE ADDRESS OF THE JFCB FROM WHICH 35100002 * SPACE IS TO BE SUBALLOCATED 35200002 JFCBDRLH DS CL3 - AVERAGE DATA BLOCK LENGTH 35300000 JFCBVLCT DS XL1 - VOLUME COUNT 35400000 JFCBSPTN DS XL1 - NUMBER OF TRACKS PER CYLINDER TO BE USED BY 35500002 * THIS DATA SET WHEN SPLIT CYLINDER IS INDICATED 35600002 JFCBLGTH EQU 176 - LENGTH OF JFCB 35800000 JFCBEND EQU * 35900000 POP PRINT 35950002 MEND , */ 36000001 *% JFCBL2:; 36100001 *%IF IKEPLS='' %THEN 36110002 * %GOTO JFCBL3; 36120002 *%IHALPUSH='@LISTPUSH'; 36130002 *%IHALPOP='@LISTPOP'; 36140002 *%IHALOFF='@LISTOFF'; 36142002 *IHALPUSH; 36144002 *%IF IHALIST='YES' %THEN 36146002 * %GOTO JFCBL3; 36148002 *IHALOFF; 36148402 *%JFCBL3 : ; 36148802 * 36150001 *DECLARE 36200002 * 1 INFMJFCB BASED(JFCBPTR) BDY(WORD), 36300002 * 2 JFCBDSNM CHAR(44) BDY(WORD), /* DATA SET NAME */ 36400002 * 3 JFCBQNAM CHAR(8) BDY(WORD), /* PROCESS QUEUE NAME SPECIFIED BY 36410002 * THE QNAME KEYWORD (TCAM) */ 36430002 * 2 JFCBELNM CHAR(8) BDY(WORD), /* ELEMENT NAME OR RELATIVE 36500002 * GENERATION NUMBER. TYPE OF 36550002 * AREA (INDEX, PRIME OR OVERFLOW) 36600002 * FOR AN INDEXED SEQUENTIAL DATA 36700002 * SET ONLY. */ 36800002 * 3 JFCIPLTX CHAR(7) BDY(WORD), /* MODULE NAME OF NETWORK CONTROL 36850002 * PROGRAM (TCAM) ICB391*/ 36860002 * 2 JFCBTSDM BIT(8), /* JOB MANAGEMENT/DATA MANAGEMENT 36900002 * INTERFACE */ 37000002 * 3 JFCCAT BIT(1), /* DATA SET IS CATALOGED */ 37100002 * 3 JFCVSL BIT(1), /* VOLUME SERIAL LIST HAS BEEN 37200002 * CHANGED */ 37250002 * 3 JFCSDS BIT(1), /* DATA SET IS A SYSIN OR SYSOUT 37300002 * DATA SET */ 37350002 * 3 JFCTTR BIT(1), /* A JOB STEP IS TO BE RESTARTED. 37400002 * USE JFCBOTTR INSTEAD OF 37450002 * DS1LSTAR FIELD TO REPOSITION 37500002 * DATA SET IF AUTOMATIC STEP 37600002 * RESTART OCCURS. (THIS JOB HAD 37700002 * ABEND PROCESSING FOR A DATA SET 37750002 * OPENED FOR MOD.) */ 37760002 * 3 JFCNWRIT BIT(1), /* DO NOT WRITE BACK THE JFCB 37800002 * DURING OPEN PROCESSING */ 37900002 * 3 JFCNDSCB BIT(1), /* DO NOT MERGE DSCB OR LABEL 38000002 * FIELDS INTO THIS JFCB */ 38100002 * 3 JFCNDCB BIT(1), /* DO NOT MERGE DCB FIELDS INTO 38200002 * THIS JFCB */ 38300002 * 3 JFCPAT BIT(1), /* THE PATTERNING DSCB IS COMPLETE*/ 38400002 * 2 JFCBDSCB CHAR(3) BDY(WORD,2),/* TTR ADDRESS OF THE FORMAT 1 38550002 * DSCB FOR DATA SET PART ON THE 38552102 * FIRST VOLUME OF THE DATA SET 38554102 * ICB398*/ 38556102 * 2 JFCFCBID CHAR(4) BDY(WORD), /* FORMS CONTROL BUFFER IMAGE 38560002 * IDENTIFICATION FOR THE 3211 38560401 * PRINTER OR DATA PROTECTION 38560802 * IMAGE IDENTIFICATION FOR THE 38561202 * 3525 CARD PUNCH WITH THE READ 38561302 * AND PRINT FEATURES OR FORMAT 38561402 * RECORD ID MDC007*/ 38561602 * 3 JFCBFRID CHAR(4) BDY(WORD), /* LAST 4 CHARACTERS OF A PDS 38564202 * MEMBER TO BE USED IN THE 38566202 * INTERPRETATION OF DOCUMENTS 38566602 * READ BY 3886 DEVICE FOR THIS 38566702 * STEP MDC024*/ 38570002 * 4 JFCAMCRO CHAR(2) BDY(WORD), /* VSAM CHECKPOINT/RESTART OPTION 38573402 * INDICATORS ICB438*/ 38576702 * 4 JFCAMSTR FIXED(15) BDY(WORD,3), /* NUMBER OF STRINGS ICB438*/ 38583302 * 2 JFCBADBF FIXED(15) BDY(WORD), /* NUMBER OF DATA BUFFERS ICB438*/ 38586602 * 2 JFCNLREC FIXED(15) BDY(WORD,3), /* LOGICAL RECORD LENGTH FOR 38587102 * VSAM ICB438*/ 38587202 * 2 JFCVINDX FIXED(15) BDY(WORD), /* MASS STORAGE SYSTEM 38595803 * COMMUNICATOR (MSSC) VOLUME 38596803 * SELECTION INDEX 38597803 * (MDC308) @Z30LP9A*/ 38598804 * 2 JFCBLTYP BIT(8) BDY(WORD,3), /* LABEL TYPE */ 38600004 * 3 JFCRSV38 BIT(1), /* RESERVED */ 38650004 * 3 JFCBAL BIT(1), /* AMERICAN NATIONAL STANDARD TAPE 38700004 * LABELS (AL OR IF BIT 4 IS ALSO 38752002 * ON, AUL) */ 38754002 * 3 JFCBLTM BIT(1), /* UNLABELLED TAPE CREATED BY DOS 38760004 * MAY HAVE LEADING TAPE MARK. 38770002 * OPEN/CLOSE/EOV AND RESTART MUST 38780002 * SPACE OVER A TAPE MARK IF ONE 38790002 * EXISTS. ICB398*/ 38792001 * 3 JFCBLP BIT(1), /* BYPASS LABEL PROCESSING */ 38800004 * 3 JFCSUL BIT(1), /* USER LABEL */ 38900004 * 3 JFCNSL BIT(1), /* NONSTANDARD LABEL */ 39000004 * 3 JFCSL BIT(1), /* STANDARD LABEL */ 39100004 * 3 JFCNL BIT(1), /* NO LABEL */ 39200004 * 2 JFCBOTTR CHAR(3) BDY(WORD,4),/* DASD MOD DATA SET - IF AUTOMATIC 39300002 * STEP RESTART WAS REQUESTED, TTR 39400002 * OF THE END-OF-DATA INDICATOR 39450002 * EXISTING WHEN THE DATA SET WAS 39500002 * FIRST OPENED DURING THE 39600002 * ORIGINAL EXECUTION OF THE 39700002 * CURRENT STEP */ 39750002 * 3 JFCBUFOF PTR(8), /* TAPE DATA SET - THIS FIELD 39800002 * CONTAINS THE BUFFER OFFSET (DCB 39810002 * SUBPARAMETER VALUE) */ 39820002 * 4 JFCBFOFL BIT(1), /* IF 1, THE OFFSET EQUALS FOUR 39850002 * AND THE BUFFER OFFSET FIELD OF 39860002 * EACH BLOCK (D-FORMAT RECORDS) 39870002 * CONTAINS THE BLOCK LENGTH 39880002 * (SPECIFIED BY BUFOFF=L). 39890002 * IF 0, THE OFFSET IS AS 39892002 * SPECIFIED IN THE REMAINING 39894002 * SEVEN BITS AND THE BUFFER 39896002 * OFFSET FIELD OF EACH BLOCK DOES 39898002 * NOT CONTAIN THE BLOCK LENGTH. */ 39898402 * 3 JFCBFLSQ FIXED(15), /* FOR MAGNETIC TAPE DEVICES, 39900002 * FILE SEQUENCE NUMBER */ 40100002 * 4 JFCFUNC BIT(8), /* FUNCTION INDICATORS FOR THE 40150002 * 3525 CARD PUNCH (SPECIFIED BY 40150402 * THE FUNC PARAMETER) ICB392*/ 40150802 * 5 JFCFNCBI BIT(1), /* I - INTERPRET (PUNCH AND PRINT 40160002 * TWO LINES) ICB392*/ 40170002 * 5 JFCFNCBR BIT(1), /* R - READ ICB392*/ 40180002 * 5 JFCFNCBP BIT(1), /* P - PUNCH ICB392*/ 40190002 * 5 JFCFNCBW BIT(1), /* W - PRINT ICB392*/ 40192002 * 5 JFCFNCBD BIT(1), /* D - DATA PROTECTION ICB392*/ 40194002 * 5 JFCFNCBX BIT(1), /* X - THIS DATA SET IS TO BE 40196002 * PRINTED. THIS MAY BE CODED 40196102 * WITH PW OR RPW TO DISTINGUISH 40196202 * THE DATA SET TO BE PRINTED FROM 40196302 * THE DATA SET TO BE PUNCHED. 40211102 * ICB392*/ 40226002 * 5 JFCFNCBT BIT(1), /* T - TWO-LINE PRINT SUPPORT 40240802 * REQUEST. THE SECOND PRINT LINE 40250802 * IS LOCATED ON CARD LINE THREE. 40252802 * ICB392*/ 40255602 * 5 JFCRSV31 BIT(1), /* RESERVED ICB392*/ 40270402 * 2 JFCBVLSQ FIXED(15), /* VOLUME SEQUENCE NUMBER */ 40285202 * 2 JFCBMASK CHAR(8) BDY(WORD), /* DATA MANAGEMENT TASK */ 40300002 * 3 JFCBOPS1 CHAR(5), /* OPEN ROUTINE INTERNAL SWITCHES */ 40400002 * 3 JFCBFLG1 BIT(8), /* FLAG BYTE */ 40500002 * 4 JFCSTAND BIT(1), /* VOLUME LABEL PROCESSING 40600002 * STANDARD */ 40650002 * 4 JFCSLCRE BIT(1), /* CREATION OF A STANDARD LABEL 40700002 * IS NECESSARY */ 40800002 * 4 JFCSLDES BIT(1), /* DESTRUCTION OF A STANDARD LABEL 40900002 * IS NECESSARY */ 41000002 * 4 JFCDUAL BIT(1), /* DUAL-DENSITY CHECK DETECTED */ 41100002 * 4 JFCOPEN BIT(4), /* OPEN ROUTINE INTERNAL SWITCHES */ 41200002 * 5 * BIT(3), /* OPEN ROUTINE INTERNAL SWITCHES */ 41250002 * 5 JFCBPWBP BIT(1), /* PASSWORD BYPASS INDICATOR 41260002 * MDC010*/ 41270002 * 3 JFCBFLG2 BIT(8), /* FLAG BYTE OF OPEN SWITCHES */ 41300002 * 4 JFCINOP BIT(1), /* TREAT THE INOUT OPTION OF OPEN 41400002 * AS INPUT */ 41500002 * 4 JFCOUTOP BIT(1), /* TREAT THE OUTIN OPTION OF OPEN 41600002 * AS OUTPUT */ 41700002 * 4 JFCDEFER BIT(1), /* SET ONLY IN A JFCB RECORDED IN 41800002 * A DATA SET DESCRIPTOR RECORD 41810002 * (DSDR) BY THE CHECKPOINT 41820002 * ROUTINE. INDICATES THAT THE 41830002 * DATA SET RELATED TO THE JFCB IS 41850002 * BEING PROCESSED SEQUENTIALLY, 41900002 * AT THE CHECKPOINT, ON A VOLUME 42000002 * OTHER THAN THE VOLUME ON WHICH 42100002 * PROCESSING BEGAN IN THE CURRENT 42200002 * STEP. WHEN RESTART OCCURS, 42300002 * THIS BIT CAUSES DEFERRED VOLUME 42350002 * MOUNTING. */ 42400002 * 5 JFCNRPS BIT(1), /* USE BY OPEN ROUTINES - SET TO 42450002 * INDICATE THAT THIS DATA SET 42460002 * RESIDES ON A NON-RPS DEVICE. 42470002 * RESET TO ZERO WHEN OPEN 42480002 * PROCESSING IS COMPLETED. ICB495*/ 42490002 * 4 JFCMODNW BIT(1), /* DISPOSITION OF THIS DATA SET 42500002 * HAS BEEN CHANGED FROM MOD TO 42550002 * NEW. DISPOSITION (IN JFCBIND2) 42600002 * WILL BE RESTORED TO MOD AFTER 42700002 * OPEN. */ 42800002 * 4 JFCSDRPS BIT(1), /* USE SEARCH DIRECT FOR 42850002 * ROTATIONAL POSITION SENSING 42860002 * (RPS) DEVICES ICB398*/ 42870002 * 4 JFCTRACE BIT(1), /* GTF TRACE IS TO OCCUR DURING 42910002 * OPEN/CLOSE/EOV AND DYNAMIC 42920002 * ALLOCATION PROCESSING OF DCB 42930002 * ICB392*/ 42940001 * 4 JFCBBUFF BIT(1), /* INDICATOR TO OPEN THAT A 42950002 * NON-ZERO VALUE IN JFCBOTTR IS 42960001 * NOT TO PREVENT THE NORMAL 42970001 * STORING BY OPEN OF A TTR IN 42980001 * JFCBOTTR. BEFORE OPEN - 42990002 * JFCBUFOF (OFFSET 67) CONTAINS 42990402 * A BUFFER OFFSET OR INVALID 42990802 * INFORMATION RESULTING FROM A 42991202 * JFCB-TO-JFCB MERGE. AFTER 42991602 * OPEN - OPEN MAY HAVE STORED A 42991702 * TTR IN JFCBOTTR (OFFSET 67), IN 42991802 * WHICH CASE OPEN WILL HAVE SET 42991902 * THIS BIT TO ZERO. */ 43005402 * 4 JFCRCTLG BIT(1), /* OPEN HAS UPDATED THE TTR. 43019002 * SCHEDULER STEP TERMINATION 43029002 * ROUTINE IS TO RECATALOG THIS 43032502 * DATA SET AND PLACE IN THE 43046002 * CATALOG ENTRY THE DSCB TTR 43059502 * CONTAINED IN JFCBDSCB IF THIS 43073002 * DATA SET IS CATALOGED. ICB398*/ 43083002 * 3 JFCBOPS2 BIT(8), /* OPEN ROUTINE INTERNAL SWITCHES */ 43086502 * 2 JFCBCRDT CHAR(3) BDY(WORD), /* DATA SET CREATION DATE (YDD, 43100002 * Y=YEAR AND DD=DAY) */ 43150002 * 2 JFCBXPDT CHAR(3) BDY(WORD,4),/* DATA SET EXPIRATION DATE (YDD) */ 43200002 * 2 JFCBIND1 BIT(8), /* INDICATOR BYTE 1 */ 43300002 * 3 JFCRLSE BIT(2), /* RELEASE EXTERNAL STORAGE */ 43600002 * 3 JFCLOC BIT(2), /* DATA SET HAS BEEN LOCATED */ 43700002 * 3 JFCADDED BIT(2), /* NEW VOLUME HAS BEEN ADDED TO 43800002 * THE DATA SET */ 43900002 * 3 JFCGDG BIT(1), /* DATA SET IS A MEMBER OF A 44000002 * GENERATION DATA GROUP */ 44100002 * 3 JFCPDS BIT(1), /* DATA SET IS A MEMBER OF A 44200002 * PARTITIONED DATA SET */ 44300002 * 2 JFCBIND2 BIT(8), /* INDICATOR BYTE 2 */ 44400002 * 3 JFCDISP BIT(2), /* BIT PATTERN FOR NEW, MOD, OLD */ 44600002 *% DCL JFCNEW CHAR; 44700002 *% JFCNEW = '''11''B'; /* NEW DATA SET */ 44800002 *% DCL JFCMOD CHAR; 44900002 *% JFCMOD = '''10''B'; /* MOD DATA SET */ 45000002 *% DCL JFCOLD CHAR; 45100002 *% JFCOLD = '''01''B'; /* OLD DATA SET */ 45200002 * 3 JFCSECUR BIT(2), /* DATA SET SECURITY */ 45400002 *% DCL JFCBSCTY CHAR; 45500002 *% JFCBSCTY = '''01''B'; /* PASSWORD IS REQUIRED TO READ OR 45600002 * TO WRITE (DATA SET SECURITY) */ 45650002 *% DCL JFCBRWPW CHAR; 45800002 *% JFCBRWPW = '''11''B'; /* PASSWORD IS REQUIRED TO WRITE 45900002 * BUT NOT TO READ (DATA SET 46000002 * SECURITY) */ 46050002 * 3 JFCSHARE BIT(1), /* SHARED DATA SET */ 46100002 * 3 JFCENT BIT(1), /* DELETE THIS JFCB BEFORE 46200002 * ALLOCATION FOR A RESTARTED 46250002 * GENERATION DATA GROUP */ 46300002 * 3 JFCREQ BIT(1), /* STORAGE VOLUME REQUESTED */ 46700002 * 3 JFCTEMP BIT(1), /* TEMPORARY DATA SET */ 46800002 * 2 JFCAMPTR PTR(31), /* POINTER TO AMPBLK FOR 46850002 * ADDITIONAL VSAM PARAMETERS 46860002 * ICB438*/ 46870002 * 3 JFCBUFRQ CHAR(1), /* NUMBER OF BUFFERS REQUIRED FOR 46880002 * EACH LINE (QTAM) */ 46890002 * 4 JFCBUFNO CHAR(1), /* NUMBER OF BUFFERS REQUIRED FOR 46900002 * THIS DATA SET (ACCESS METHODS 47000002 * OTHER THAN TCAM AND QTAM) */ 47050002 * 5 JFCBUFIN BIT(4), /* THE NUMBER OF BUFFERS ASSIGNED 47100002 * INITIALLY FOR RECEIVING 47150002 * OPERATIONS FOR EACH LINE IN A 47160002 * LINE GROUP (TCAM) MDC021*/ 47170002 * 5 JFCBFOUT BIT(4), /* THE NUMBER OF BUFFERS ASSIGNED 47200002 * INITIALLY FOR SENDING 47210002 * OPERATIONS FOR EACH LINE IN A 47220002 * LINE GROUP (TCAM) MDC022*/ 47230002 * 3 JFCBGNCP PTR(8), /* FOR GAM, THIS FIELD IS USED FOR 47250002 * THE NUMBER OF IOB'S CONSTRUCTED 47300002 * BY THE OPEN ROUTINE. MAXIMUM 47350002 * NUMBER IS 99. MDC025*/ 47400002 * 4 JFCBHIAR CHAR(1), /* BUFFER POOL LOCATION IN MAIN 47500002 * STORAGE (HIERARCHY) */ 47600002 * 5 JFCBFALN CHAR(1), /* BUFFER ALIGNMENT */ 47700002 * 6 JFCBFTEK BIT(8), /* BUFFERING TECHNIQUE */ 47800002 * 7 JFCHIER BIT(1), /* BITS 0 AND 5 DESCRIBE MAIN 48250002 * STORAGE HIERARCHY. BOTH BITS 48260002 * OFF, HIERARCHY 0. BIT 0 OFF 48270002 * AND BIT 5 ON, HIERARCHY 1. */ 48280002 * 7 JFCBBFTA BIT(2), /* A - FOR QSAM LOCATE MODE 48290002 * PROCESSING OF SPANNED RECORDS, 48292002 * AUTOMATIC RECORD AREA 48294002 * CONSTRUCTION DURING LOGICAL 48296002 * RECORD INTERFACE PROCESSING. 48298002 * OPEN IS TO CONSTRUCT A RECORD 48298402 * AREA IF IT AUTOMATICALLY 48298802 * CONSTRUCTS BUFFERS. */ 48299202 * 8 JFCSIM BIT(1), /* S - SIMPLE BUFFERING */ 48300002 * 8 JFCBBFTR BIT(1), /* R - FOR BSAM CREATE BDAM 48350002 * PROCESSING OR BDAM PROCESSING 48360002 * OF UNBLOCKED SPANNED RECORDS, 48370002 * SOFTWARE TRACK OVERFLOW. OPEN 48380002 * FORMS A SEGMENT WORK AREA POOL 48390002 * AND STORES THE ADDRESS OF THE 48392002 * SEGMENT WORK AREA CONTROL BLOCK 48394002 * IN THE DCBEOBW FIELD OF THE 48396002 * DATA CONTROL BLOCK. WRITE USES 48398002 * A SEGMENT WORK AREA TO WRITE A 48398402 * RECORD AS ONE OR MORE SEGMENTS. 48398802 * FOR BSAM INPUT PROCESSING OF 48399202 * UNBLOCKED SPANNED RECORDS WITH 48399602 * KEYS, RECORD OFFSET PROCESSING. 48399702 * READ READS ONE RECORD SEGMENT 48399802 * INTO THE RECORD AREA. THE 48399902 * FIRST SEGMENT OF A RECORD IS 48433202 * PRECEDED IN THE RECORD AREA BY 48443202 * THE KEY. SUBSEQUENT SEGMENTS 48453202 * ARE AT AN OFFSET EQUAL TO THE 48463202 * KEY LENGTH. */ 48465202 * 7 JFCEXC BIT(1), /* E - EXCHANGE BUFFERING */ 48466702 * 7 JFCDYN BIT(1), /* DYNAMIC BUFFERING */ 48500002 * 7 JFCHIER1 BIT(1), /* HIERARCHY 1 MAIN STORAGE */ 48600002 * 7 JFCDWORD BIT(1), /* D - DOUBLE WORD BOUNDARY */ 48700002 * 7 JFCFWORD BIT(1), /* F - FULL WORD NOT A DOUBLE 48800002 * WORD BOUNDARY */ 48900002 * 3 JFCBUFL FIXED(15) BDY(WORD,3), /* BUFFER LENGTH */ 49000002 * 2 JFCEROPT BIT(8), /* ERROR OPTION. DISPOSITION OF 49100002 * PERMANENT ERRORS IF USER 49150002 * RETURNS FROM A SYNCHRONOUS 49160002 * ERROR EXIT (QSAM) */ 49170002 * 3 JFCACC BIT(1), /* ACCEPT */ 49200002 * 3 JFCSKP BIT(1), /* SKIP */ 49300002 * 3 JFCABN BIT(1), /* ABNORMAL END OF TASK */ 49400002 * 3 JFCTOPT BIT(1), /* ON-LINE TERMINAL TEST 49450002 * (BTAM) ICB349*/ 49460002 * 3 JFCRSV02 BIT(1), /* RESERVED */ 49500002 * 3 JFCRSV03 BIT(1), /* RESERVED */ 49550002 * 3 JFCRSV04 BIT(1), /* RESERVED */ 49560002 * 3 JFCRSV05 BIT(1), /* RESERVED */ 49570002 * 2 JFCTRTCH CHAR(1) BDY(WORD,2);/* TAPE RECORDING TECHNIQUE 49600002 * FOR 7-TRACK TAPE */ 49700002 *% DCL JFCEVEN CHAR; 49800002 *% JFCEVEN ='''23''X'; /* E - EVEN PARITY */ 49900002 *% DCL JFCTRAN CHAR; 50000002 *% JFCTRAN = '''3B''X'; /* T - EOD/EBCDIC TRANSLATION */ 50100002 *% DCL JFCCONV CHAR; 50200002 *% JFCCONV = '''13''X'; /* C - DATA CONVERSION */ 50300002 *% DCL JFCTREV CHAR; 50400002 *% JFCTREV = '''2B''X'; /* ET - EVEN PARITY AND 50500002 * TRANSLATION */ 50510002 * 50550001 *DECLARE 50600002 *%IF IKEPLS='2' %THEN 50650001 * %GOTO JFCA1; 50660001 * 1 JFCKEYLE CHAR(1) BASED(ADDR(JFCTRTCH)) BDY(WORD,2), 50700002 *%GOTO JFCA2; 50710001 *%JFCA1 : ; 50720001 * 1 JFCKEYLE CHAR(1) DEF(JFCTRTCH) BDY(WORD,2), 50730002 *%JFCA2 : ; 50740001 * /* DIRECT ACCESS KEY LENGTH */ 50750002 * 2 JFCCODE BIT(8) BDY(BYTE), /* CONVERSION CODE (PAPER TAPE) */ 51000002 * 3 JFCNOCON BIT(1), /* N - NO CONVERSION */ 51100002 * 3 JFCBCD BIT(1), /* I - IBM BCD */ 51200002 * 3 JFCFRI BIT(1), /* F - FRIDEN */ 51300002 * 3 JFCBUR BIT(1), /* B - BURROUGHS */ 51400002 * 3 JFCNCR BIT(1), /* C - NATIONAL CASH REGISTER */ 51500002 * 3 JFCASCII BIT(1), /* A - ASCII (8-TRACK) */ 51600002 * 3 JFCTTY BIT(1), /* T - TELETYPE */ 51700002 * 3 JFCRSV32 BIT(1); /* RESERVED */ 51800002 * 51850001 *DECLARE 51900002 *%IF IKEPLS='2' %THEN 51950001 * %GOTO JFCA3; 51960001 * 1 JFCSTACK BIT(8) BASED(ADDR(JFCTRTCH)) BDY(WORD,2), 52000002 *%GOTO JFCA4; 52002001 *%JFCA3 : ; 52004001 * 1 JFCSTACK BIT(8) DEF(JFCTRTCH) BDY(WORD,2), 52006002 *%JFCA4 : ; 52008001 * /* STACKER SELECTION (CARD READER, 52010002 * (CARD PUNCH) */ 52020002 * 2 JFCMODE BIT(8) BDY(WORD,2), /* MODE OF OPERATION (CARD READER, 52050002 * (CARD PUNCH) ICB394*/ 52060002 * 3 JFCBIN BIT(1), /* C - COLUMN BINARY MODE */ 52100002 * 3 JFCEBCD BIT(1), /* E - EBCDIC MODE */ 52200002 * 3 JFCMODEO BIT(1), /* O - OPTICAL MARK READ MODE 52250002 * (3505 ONLY) ICB394*/ 52260002 * 3 JFCMODER BIT(1), /* R - READ COLUMN ELIMINATE MODE 52270002 * (3505 AND 3525 WITH READ 52272002 * FEATURE) ICB394*/ 52280002 * 3 JFCRSV06 BIT(1), /* RESERVED */ 52300002 * 3 JFCRSV07 BIT(1), /* RESERVED */ 52350002 * 3 JFCTWO BIT(1), /* 2 - STACKER TWO */ 52400002 * 3 JFCONE BIT(1); /* 1 - STACKER ONE */ 52500002 * 52600000 *DECLARE 52700002 *%IF IKEPLS='2' %THEN 52750001 * %GOTO JFCA5; 52760001 * 1 JFCSPPRT BASED(ADDR(JFCTRTCH)) BDY(WORD,2), 52800002 *%GOTO JFCA6; 52850001 *%JFCA5 : ; 52860001 * 1 JFCSPPRT DEF(JFCTRTCH) BDY(WORD,2), 52870002 *%JFCA6 : ; 52880001 * 2 JFCPRTSP BIT(8) BDY(WORD,2), /* NORMAL PRINTER SPACING */ 52900002 *% DCL JFCSPTHR CHAR; 53100002 *% JFCSPTHR='''19''X'; /* 3 - SPACE 3 LINES */ 53200002 *% DCL JFCSPTWO CHAR; 53300002 *% JFCSPTWO='''11''X'; /* 2 - SPACE 2 LINES */ 53400002 *% DCL JFCSPONE CHAR; 53500002 *% JFCSPONE='''09''X'; /* 1 - SPACE 1 LINE */ 53600002 *% DCL JFCSPNO CHAR; 53700002 *% JFCSPNO='''01''X'; /* 0 - NO SPACING */ 53800002 * 2 JFCDEN BIT(8), /* TAPE DENSITY - 2400/3400 SERIES 54200002 * MAGNETIC TAPE UNITS */ 54250002 *% DCL JFC200 CHAR; 54400002 *%JFC200 ='''03''X'; /* 7-TRACK 200 BPI */ 54500002 *% DCL JFC556 CHAR; 54600002 *%JFC556 ='''43''X'; /* 7-TRACK 556 BPI */ 54700002 *% DCL JFC800 CHAR; 54800002 *%JFC800 ='''83''X'; /* 7-TRACK AND 9-TRACK 800 BPI */ 54900002 *% DCL JFC1600 CHAR; 55000002 *%JFC1600 ='''C3''X'; /* 9-TRACK 1600 BPI */ 55100002 *% DCL JFC6250 CHAR; 55150002 *%JFC6250 ='''D3''X'; /* 9-TRACK 6250 BPI ICB474*/ 55160002 * 2 JFCBABFS PTR(24) BDY(WORD,4),/* TOTAL BUFFER SIZE FOR ALL VSAM 55250002 * BUFFERS ICB438*/ 55260002 * 3 JFCLIMCT CHAR(3) BDY(WORD,4),/* SEARCH LIMIT (BDAM) */ 55300002 * 4 * CHAR(1), /* RESERVED */ 55400002 * 4 JFCTRKBL CHAR(2) BDY(WORD),/* DATA SET OPENED FOR MOD - IF 55600002 * AUTOMATIC STEP RESTART WAS 55800002 * REQUESTED, TRACK BALANCE 55900002 * EXISTING WHEN THE DATA SET WAS 56000002 * FIRST OPENED DURING THE 56100002 * ORIGINAL EXECUTION OF THE 56200002 * CURRENT STEP */ 56300002 * 2 JFCDSORG BIT(16) BDY(WORD,3),/* DATA SET ORGANIZATION BEING 56400002 * USED */ 56500002 * 3 JFCDSRG1 BIT(8), /* BYTE 1 OF JFCDSORG */ 56600002 * 4 JFCORGIS BIT(1), /* INDEXED SEQUENTIAL */ 56700002 * 4 JFCORGPS BIT(1), /* PHYSICAL SEQUENTIAL */ 56800002 * 4 JFCORGDA BIT(1), /* DIRECT */ 56900002 * 4 JFCORGCX BIT(1), /* BTAM OR QTAM LINE GROUP MDC011*/ 56910002 * 4 JFCORGCQ BIT(1), /* QTAM DIRECT ACCESS MESSAGE 56920002 * QUEUE MDC012*/ 56930002 * 4 JFCORGMQ BIT(1), /* QTAM PROBLEM PROGRAM MESSAGE 56940002 * QUEUE MDC013*/ 56950002 * 4 JFCORGPO BIT(1), /* PARTITIONED */ 57100002 * 4 JFCORGU BIT(1), /* UNMOVABLE - THE DATA CONTAINS 57200002 * LOCATION DEPENDENT INFORMATION */ 57300002 * 3 JFCDSRG2 BIT(8), /* BYTE 2 OF JFCDSORG */ 57400002 * 4 JFCORGGS BIT(1), /* GRAPHICS */ 57500002 * 4 JFCORGTX BIT(1), /* TCAM LINE GROUP MDC014*/ 57510002 * 4 JFCORGTQ BIT(1), /* TCAM MESSAGE QUEUE MDC015*/ 57520002 * 4 JFCRSV13 BIT(1), /* RESERVED, BINARY ZERO */ 57620002 * 4 JFCORGAM BIT(1), /* VSAM ICB438*/ 57650002 * 4 JFCORGTR BIT(1), /* TCAM 3705 MDC016*/ 57660002 * 4 JFCRSV15 BIT(1), /* RESERVED, BINARY ZERO */ 57670002 * 4 JFCRSV16 BIT(1), /* RESERVED, BINARY ZERO */ 57680002 * 2 JFCRECFM BIT(8) BDY(WORD), /* RECORD FORMAT */ 57700002 * 3 JFCRCFM BIT(3), /* RECORD FORMAT (USASI/USASCII) 57750002 * MDC023*/ 57752002 *%DCL JFCVARD CHAR; 57760002 *%JFCVARD='''001''B'; /* D - VARIABLE (FORMAT D FOR 57770002 * USASI/USASCII) */ 57780002 * 4 JFCFMREC BIT(2), /* BITS INDICATING RECORD FORMAT */ 57800002 *% DCL JFCUND CHAR; 58000002 *% JFCUND = '''11''B'; /* U - UNDEFINED */ 58100002 *% DCL JFCFIX CHAR; 58200002 *% JFCFIX = '''10''B'; /* F - FIXED */ 58300002 *% DCL JFCVAR CHAR; 58400002 *% JFCVAR = '''01''B'; /* V - VARIABLE */ 58500002 * 4 JFCRFO BIT(1), /* T - TRACK OVERFLOW */ 58800002 * 3 JFCRFB BIT(1), /* B - BLOCKED - MAY NOT OCCUR 58900002 * WITH UNDEFINED */ 59000002 * 3 JFCRFS BIT(1), /* S - FOR FIXED LENGTH RECORD 59100002 * FORMAT, STANDARD BLOCKS. NO 59150002 * TRUNCATED BLOCKS OR UNFILLED 59200002 * TRACKS ARE EMBEDDED IN THE DATA 59250002 * SET. 59300002 * FOR VARIABLE LENGTH RECORD 59350002 * FORMAT, SPANNED RECORDS. */ 59400002 * 3 JFCCHAR BIT(2), /* CONTROL CHARACTER */ 59800002 *% DCL JFCASA CHAR; 59900002 *% JFCASA = '''10''B'; /* A - AMERICAN NATIONAL STANDARD 60000002 * (ASA) CONTROL CHARACTER */ 60050002 *% DCL JFCMAC CHAR; 60100002 *% JFCMAC = '''01''B'; /* M - MACHINE CODE CONTROL 60200002 * CHARACTER */ 60250002 *% DCL JFCNOCC CHAR; 60300002 *% JFCNOCC ='''00''B'; /* NO CONTROL CHARACTER */ 60400002 * 3 * BIT(1), /* RESERVED */ 60500002 * 2 JFCOPTCD BIT(8) BDY(WORD,2), /* OPTION CODES */ 60600002 * 3 JFCWVCSP BIT(1), /* QSAM-BSAM-BPAM - W - WRITE 60700002 * VALIDITY CHECK */ 60800002 * 4 JFCWVCIS BIT(1), /* BISAM-QISAM - W - WRITE 60900002 * VALIDITY CHECK */ 61000002 * 5 JFCWVCBD BIT(1), /* BDAM - W - WRITE VALIDITY 61100002 * CHECK */ 61150002 * 6 JFCSDNAM BIT(1), /* TCAM - SOURCE OR DESTINATION 61250002 * NAME PRECEDES MESSAGE (AFTER 61260001 * CONTROL BYTE) */ 61270001 * 3 JFCALLOW BIT(1), /* QSAM-BSAM-BPAM - U - ALLOW A 61300002 * DATA CHECK CAUSED BY AN 61400002 * INVALID CHARACTER (1403 61500002 * PRINTER WITH UCS FEATURE) */ 61600002 * 4 JFCRSV17 BIT(1), /* RESERVED */ 61700002 * 5 JFCOVER BIT(1), /* BDAM - TRACK OVERFLOW */ 61800002 * 6 JFCWUMSG BIT(1), /* TCAM - WORK UNIT IS A MESSAGE 61850002 * (DEFAULT WORK UNIT IS A RECORD)*/ 61860002 * 3 JFCPCIBT BIT(1), /* QSAM-BSAM-BPAM - C - CHAINED 62000002 * SCHEDULING USING THE PROGRAM 62100002 * CONTROLLED INTERRUPTION */ 62200002 * 4 JFCMAST BIT(1), /* BISAM-QISAM - M - MASTER 62300002 * INDEXES */ 62350002 * 5 JFCEXT BIT(1), /* BDAM - E - EXTENDED SEARCH */ 62400002 * 6 JFCCBWU BIT(1), /* TCAM - CONTROL BYTE PRECEDES 62450002 * WORK UNIT */ 62460001 * 3 JFCBCKPT BIT(1), /* QSAM-BSAM-BPAM - BYPASS 62550002 * EMBEDDED DOS CHECKPOINT 62600002 * RECORDS ON TAPE ICB398*/ 62650002 * 4 JFCIND BIT(1), /* BISAM-QISAM - I - INDEPENDENT 62700002 * OVERFLOW AREA */ 62800002 * 5 JFCFEED BIT(1), /* BDAM - F - FEEDBACK */ 62900002 * 3 JFCRSV18 BIT(1), /* RESERVED */ 63200002 * 4 JFCCYL BIT(1), /* BISAM-QISAM - Y - CYLINDER 63300002 * OVERFLOW AREA */ 63400002 * 5 JFCACT BIT(1), /* BDAM - A - ACTUAL ADRESSING */ 63500002 * 6 JFCOPTQ BIT(1), /* USASI/USASCII - EBCDIC TO ASCII 63550002 * OR ASCII TO EBCDIC TRANSLATION 63600002 * REQUIRED */ 63650002 * 3 JFCREDUC BIT(1), /* QSAM-BSAM-BPAM-EXCP - Z - 63800002 * USE REDUCED ERROR RECOVERY 63900002 * PROCEDURE (MAGNETIC TAPE) */ 64000002 * 4 JFCRSV19 BIT(1), /* RESERVED */ 64100002 * 5 JFCRSV20 BIT(1), /* RESERVED */ 64200002 * 6 JFCSRCHD BIT(1), /* QSAM-BSAM-BPAM - USE SEARCH 64250002 * DIRECT (SD) INSTEAD OF SEARCH 64300002 * PREVIOUS ON ROTATIONAL POSITION 64350002 * SENSING (RPS) DEVICE. (DIRECT 64360002 * ACCESS) */ 64370002 * 3 JFCRSV21 BIT(1), /* RESERVED */ 64400002 * 4 JFCDEL BIT(1), /* BISAM-QISAM - L - DELETE 64500002 * OPTION */ 64550002 * 5 JFCRSV22 BIT(1), /* RESERVED */ 64600002 * 3 JFCOPTJ BIT(1), /* QSAM-BSAM-BPAM - J - 3800 64650004 * CONTROL CHARACTER 64700004 * (MDC301) @Z40MP9A*/ 64800004 * 4 JFCREORG BIT(1), /* BISAM-QISAM - R - 65000002 * REORGANIZATION CRITERIA */ 65100002 * 5 JFCREL BIT(1), /* BDAM - R - RELATIVE BLOCK 65200002 * ADDRESSING */ 65300002 * 2 JFCBLKSI FIXED(15) BDY(WORD,3), /* MAXIMUM BLOCK SIZE */ 65400002 * 3 JFCBUFSI FIXED(15) BDY(WORD,3), /* MAXIMUM BUFFER SIZE */ 65500002 * 4 JFCBAXBF FIXED(15) BDY(WORD,3), /* NUMBER OF INDEX BUFFERS 65650002 * (VSAM) ICB438*/ 65660002 * 2 JFCAMSYN CHAR(8) BDY(WORD), /* MODULE NAME FOR SYNAD ROUTINE 65670002 * FOR VSAM ICB438*/ 65680002 * 3 JFCLRECL FIXED(15) BDY(WORD), /* LOGICAL RECORD LENGTH */ 65700002 * 3 JFCNCP CHAR(1) BDY(WORD,3), /* NUMBER OF CHANNEL PROGRAMS. 65800002 * NUMBER OF READ OR WRITE 65900002 * REQUESTS WHICH MAY BE ISSUED 66000002 * PRIOR TO A CHECK. NUMBER OF 66100002 * IOB'S GENERATED. (MAXIMUM 66200002 * NUMBER IS 99.) 66300002 * NOTE - GAM USES JFCBFTEK FOR 66400002 * THIS INFORMATION AND DOES 66500002 * NOT USE THIS FIELD AT ALL. */ 66600002 * 4 JFCBUFMX CHAR(1), /* THE MAXIMUM NUMBER OF BUFFERS 66800002 * TO BE USED FOR DATA TRANSFER 66850002 * FOR EACH LINE IN THIS LINE 66860002 * GROUP (TCAM) */ 66870002 * 3 JFCNTM CHAR(1) BDY(WORD,4), /* THE NUMBER OF TRACKS THAT 66900002 * DETERMINE THE DEVELOPMENT OF A 66950002 * MASTER INDEX. MAXIMUM NUMBER 67000002 * IS 99. (ISAM) */ 67050002 * 4 JFCBFSEQ PTR(8), /* TAPE POSITIONING INFORMATION 67100002 * FOR CHECKPOINT RESTART. THIS 67150002 * FIELD IS USED TO PASS A 67160002 * PHYSICAL FILE SEQUENCE COUNT 67170002 * FROM CHECKPOINT TO RESTART. 67180002 * THE COUNT TELLS THE PHYSICAL 67190002 * POSITION OF THE TAPE VOLUME 67192002 * THAT WAS BEING PROCESSED WHEN 67194002 * THE CHECKPOINT WAS TAKEN. 67196002 * SA60703*/ 67198002 * 5 JFCPCI BIT(8), /* PROGRAM-CONTROLLED INTERRUPTION 67200002 * (PCI) FLAG BYTE (TCAM) */ 67200402 * 6 JFCPCIX1 BIT(1), /* PCI=(X,) RECEIVE OPERATIONS 67201002 * ICB473*/ 67202001 * 6 JFCPCIX2 BIT(1), /* PCI=(,X) SEND OPERATIONS 67203002 * X INDICATES THAT AFTER THE 67204002 * FIRST BUFFER IS FILLED (ON 67205002 * RECEIVE OPERATIONS) OR EMPTIED 67206002 * (ON SEND OPERATIONS), A PCI 67207002 * OCCURS DURING THE FILLING OR 67208002 * EMPTYING OF THE NEXT BUFFER. 67209002 * THE FIRST BUFFER REMAINS 67210002 * ALLOCATED AND ANOTHER IS 67211002 * ALLOCATED. ICB473*/ 67212002 * 6 JFCPCIA1 BIT(1), /* PCI=(A,) RECEIVE OPERATIONS */ 67213002 * 6 JFCPCIA2 BIT(1), /* PCI=(,A) SEND OPERATIONS 67214002 * A INDICATES THAT AFTER THE 67215002 * FIRST BUFFER IS FILLED (ON 67216002 * RECEIVE OPERATIONS) OR EMPTIED 67217002 * (ON SEND OPERATIONS), A PCI 67218002 * OCCURS DURING THE FILLING OR 67219002 * EMPTYING OF THE NEXT BUFFER. 67220002 * THE FIRST BUFFER IS DEALLOCATED. 67221002 * A BUFFER IS ALLOCATED IN PLACE 67222002 * OF THE DEALLOCATED BUFFER. */ 67223002 * 6 JFCPCIN1 BIT(1), /* PCI=(N,) RECEIVE OPERATIONS */ 67224002 * 6 JFCPCIN2 BIT(1), /* PCI=(,N) SEND OPERATIONS 67225002 * N INDICATES THAT NO PCI'S ARE 67226002 * TAKEN DURING FILLING (ON 67227002 * RECEIVE OPERATIONS) OR EMPTYING 67228002 * (ON SEND OPERATIONS) OF BUFFERS. 67229002 * BUFFERS ARE DEALLOCATED AT THE 67230002 * END OF TRANSMISSION. */ 67231002 * 6 JFCPCIR1 BIT(1), /* PCI=(R,) RECEIVE OPERATIONS */ 67232002 * 6 JFCPCIR2 BIT(1), /* PCI=(,R) SEND OPERATIONS 67233002 * R INDICATES THAT AFTER THE 67234002 * FIRST BUFFER IS FILLED (ON 67235002 * RECEIVE OPERATIONS) OR EMPTIED 67236002 * (ON SEND OPERATIONS), A PCI 67237002 * OCCURS DURING THE FILLING OR 67238002 * EMPTYING OF EACH SUCCEEDING 67239002 * BUFFER. THE COMPLETED BUFFER 67240002 * IS DEALLOCATED, BUT NO NEW 67241002 * BUFFER IS ALLOCATED TO TAKE 67242002 * ITS PLACE. */ 67243002 * 67300000 * /*******************************************************************/ 67400001 * /* */ 67500001 * /* NORMAL 108 SEGMENT */ 67600001 * /* */ 67700001 * /*******************************************************************/ 67800001 * 67900000 * 3 JFCRESRV CHAR(4) BDY(WORD), /* FIRST BYTE CONTAINS NUMBER OF 67950002 * BYTES FOR TIME OF DAY. SECOND 67960002 * BYTE CONTAINS NUMBER OF BYTES 67970002 * FOR DATE. THIRD BYTE CONTAINS 67980002 * NUMBER OF BYTES FOR OUTSEQ. 67990002 * FOURTH BYTE CONTAINS NUMBER OF 67992002 * BYTES IN. (TCAM) */ 67994002 * 4 JFCRKP FIXED(15) BDY(WORD), /* THE RELATIVE POSITION OF THE 68000002 * FIRST BYTE OF THE KEY WITHIN 68100002 * EACH LOGICAL RECORD. MAXIMUM 68200002 * VALUE IS LOGICAL RECORD LENGTH 68300002 * MINUS KEY LENGTH. */ 68400002 * 4 JFCCYLOF CHAR(1), /* THE NUMBER OF TRACKS TO BE 68600002 * RESERVED ON EACH CYLINDER TO 68700002 * HOLD RECORDS THAT OVERFLOW 68800002 * FROM OTHER TRACKS ON THAT 68900002 * CYLINDER. MAXIMUM VALUE IS 69000002 * 99. */ 69050002 * 4 JFCDBUFN CHAR(1), /* RESERVED */ 69200002 * 2 JFCINTVL CHAR(1) BDY(WORD); /* INTENTIONAL DELAY, IN SECONDS, 69300002 * BETWEEN PASSES THROUGH A 69400002 * POLLING LIST (QTAM) */ 69500002 * 69600000 * /*******************************************************************/ 69700001 * /* */ 69800001 * /* END OF NORMAL 108 SEGMENT */ 69900001 * /* */ 70000001 * /*******************************************************************/ 70100001 * 70200000 * /*******************************************************************/ 70300001 * /* */ 70400001 * /* 108 PRINTER SEGMENT */ 70500001 * /* */ 70510002 * /* NOTE THIS SEGMENT REPLACES THE NORMAL 108 SEGMENT IF */ 70550002 * /* THE DD STATEMENT USES THE UCS PARAMETER. */ 70560002 * /* */ 70600001 * /*******************************************************************/ 70700001 * 70750002 *DECLARE 70800002 *%IF IKEPLS='2' %THEN 70850001 * %GOTO JFCA7; 70860001 * 1 JFCUCSEG BASED (ADDR(JFCRESRV)) BDY(WORD), 70900002 *%GOTO JFCA8; 70950001 *%JFCA7 : ; 70960001 * 1 JFCUCSEG DEF(JFCRESRV) BDY(WORD), 70970002 *%JFCA8 : ; 70980001 * 2 JFCUCSID CHAR(4) BDY(WORD), /* NAME OF THE UCS IMAGE TO BE 71100002 * LOADED */ 71200002 * 2 JFCUCSOP BIT(8), /* OPERATION OF THE UCS IMAGE TO 71300002 * BE LOADED */ 71400002 * 3 JFCBEXTP BIT(1), /* JFCB EXTENSION PRESENT FOR 3800 71450004 * DEVICE (MDC302) @Z40MP9A*/ 71520004 * 3 JFCFOLD BIT(1), /* UCS IMAGE IS TO BE LOADED IN 71600002 * THE FOLD MODE */ 71700002 * 3 JFCRSV25 BIT(1), /* RESERVED */ 71800002 * 3 JFCVER BIT(1), /* UCS IMAGE IS TO BE VERIFIED */ 71900002 * 3 JFCFCBAL BIT(1), /* FORMS ARE TO BE ALIGNED */ 71950002 * 3 JFCFCBVR BIT(1), /* FORMS CONTROL BUFFER (FCB) 71960002 * IMAGE IS TO BE VERIFIED */ 71970002 * 3 JFCRSV26 BIT(1), /* RESERVED */ 72010002 * 3 JFCRSV27 BIT(1), /* RESERVED */ 72060002 * 72100000 * /*******************************************************************/ 72200001 * /* */ 72300001 * /* END OF 108 PRINTER SEGMENT */ 72400001 * /* */ 72500001 * /*******************************************************************/ 72600001 * 72700000 * 2 JFCOUTLI PTR(24) BDY(WORD,2),/* SMF - SYSOUT LIMIT. BINARY 72800002 * REPRESENTATION OF THE OUTLIM= 72850002 * PARAMETER ON THE SYSOUT DD 72860002 * STATEMENT. THE MAXIMUM NUMBER 72870002 * OF LOGICAL RECORDS SPECIFIED 72880002 * FOR THIS OUTPUT DATA SET. */ 72890002 * 3 JFCTHRSH CHAR(1), /* RECORDS TO BE USED */ 72900002 * 4 JFCCPRI BIT(8), /* PRIORITY BETWEEN SEND AND 73000002 * RECEIVE OPERATIONS (TCAM) */ 73100002 * 5 JFCRSV53 BIT(1), /* RESERVED MDC020*/ 73150002 * 5 JFCRSV54 BIT(1), /* RESERVED MDC019*/ 73200002 * 5 JFCRSV55 BIT(1), /* RESERVED MDC018*/ 73250002 * 5 JFCRSV33 BIT(1), /* RESERVED */ 73500002 * 5 JFCRSV34 BIT(1), /* RESERVED */ 73550002 * 5 JFCRECV BIT(1), /* RECEIVE PRIORITY MDC018*/ 73560002 * 5 JFCEQUAL BIT(1), /* EQUAL PRIORITY MDC019*/ 73570002 * 5 JFCSEND BIT(1), /* SEND PRIORITY MDC020*/ 73580002 * 3 JFCSOWA FIXED(15), /* LENGTH, IN BYTES, OF THE USER- 73600002 * PROVIDED WORK AREA (QTAM) */ 73700002 * 2 JFCBNTCS CHAR(1), /* NUMBER OF OVERFLOW TRACKS */ 73800002 * 2 JFCBNVOL CHAR(1), /* NUMBER OF VOLUME SERIAL NUMBERS*/ 73900002 * 2 JFCBVOLS CHAR(30) BDY(WORD,3),/* THE FIRST FIVE VOLUME SERIAL 74000002 * NUMBERS */ 74050002 * 3 JFCAVOLS (5) CHAR(6); /* THE FIRST FIVE VOLUME SERIAL 74060003 * NUMBERS @Z30LP9A*/ 74062004 * 74064003 *DECLARE 74066003 *%IF IKEPLS='2' %THEN 74068003 * %GOTO JFCA9; 74070003 * 1 JFCBS001 BASED(ADDR(JFCBVOLS)) BDY(WORD,3), /* @Z30LP9A*/ 74072004 *%GOTO JFCA10; 74074003 *%JFCA9 : ; 74076003 * 1 JFCBS001 DEF(JFCBVOLS) BDY(WORD,3), /* @Z30LP9A*/ 74078004 *%JFCA10 : ; 74080003 * 2 * CHAR(22), /* FIRST 22 BYTES OF 74082003 * JFCBVOLS @Z30LP9A*/ 74086004 * 2 JFCMSVGP CHAR(8) BDY(WORD), /* MASS STORAGE VOLUME GROUP FROM 74090003 * WHICH TO SELECT A VOLUME 74094003 * (MDC306) @Z30LP9A*/ 74100004 * 2 JFCBEXTL CHAR(1), /* LENGTH OF BLOCK OF EXTRA VOLUME 74150003 * SERIAL NUMBERS (BEYOND FIVE) */ 74200002 * 2 JFCBEXAD CHAR(3), /* RELATIVE TRACK ADDRESS (TTR) 74300002 * OF FIRST JFCB EXTENSION BLOCK 74400003 * FOR VOLUME SERIAL NUMBERS OR 74420004 * TTR OF JFCB EXTENSION BLOCK 74440004 * FOR 3800 (MDC303) @Z40MP9A*/ 74460004 * 2 JFCBPQTY CHAR(3) BDY(WORD), /* PRIMARY QUANTITY OF DIRECT 74500002 * ACCESS STORAGE REQUIRED */ 74600002 * 3 JFCRUNIT CHAR(3), /* UNIT TYPE (EBCDIC) OF A DEVICE 74650002 * AT A REMOTE TERMINAL. THE 74660002 * FIRST TWO CHARACTERS ARE RD 74670002 * (READER), PR (PRINTER) OR PU 74680001 * (PUNCH). THE THIRD CHARACTER 74690001 * IS A NUMBER FROM 1 TO 9. ICB387*/ 74692001 * 2 JFCBCTRI BIT(8), /* SPACE PARAMETERS */ 74700002 * 3 JFCBSPAC BIT(2), /* SPACE MASK BITS */ 75400002 *%DCL JFCBABS CHAR; 75500002 *% JFCBABS = '''00''B'; /* ABSTR REQUEST */ 75600002 *%DCL JFCBAVR CHAR; 75700002 *% JFCBAVR = '''01''B'; /* AVERAGE BLOCK LENGTH REQUEST */ 75800002 *% DCL JFCBTRK CHAR; 75900002 *% JFCBTRK = '''10''B'; /* TRK REQUEST */ 76000002 *% DCL JFCBCYL CHAR; 76100002 *% JFCBCYL = '''11''B'; /* CYL REQUEST */ 76200002 * 3 JFCBMSGP BIT(1), /* REQUEST IS FOR A MASS STORAGE 76250003 * VOLUME GROUP (MSVGP) VOLUME 76300003 * (MDC307) @Z30LP9A*/ 76350004 * 3 JFCRSV29 BIT(1), /* RESERVED */ 76500002 * 3 JFCONTIG BIT(1), /* CONTIG REQUEST */ 76700002 * 3 JFCMIXG BIT(1), /* MXIG REQUEST */ 76800002 * 3 JFCALX BIT(1), /* ALX REQUEST */ 76900002 * 3 JFCROUND BIT(1), /* ROUND REQUEST */ 77000002 * 2 JFCBSQTY CHAR(3) BDY(WORD), /* SECONDARY QUANTITY OF DIRECT 77200002 * ACCESS STORAGE REQUIRED */ 77300002 * 3 JFCRQID FIXED(15), /* QUEUE IDENTIFICATION (QID) USED 77350002 * BY ACCESS METHOD TO DETERMINE 77352002 * THE REMOTE TERMINAL LOCATION 77360002 * FOR THIS JOB. ICB387*/ 77370002 * 2 JFCFLGS1 BIT(8), /* FLAG BYTE (ICB488) SA53458*/ 77400002 * 3 JFCBDLET BIT(1), /* IF ONE, DELETE THE DATA SET 77401003 * USED WHEN EXTENDING THE JOB 77403003 * QUEUE OR SPOOL DATA SETS 77405003 * (OS/VS1) (MDC305) @XM05457*/ 77407003 * 3 JFCTOPEN BIT(1), /* TAPE DATA SET HAS BEEN OPENED 77411002 * MDC026*/ 77411402 * 3 JFCBADSP BIT(1), /* AUTOMATIC DATA SET PROTECTION 77413004 * INDICATOR (MDC310) @Z40RP9A*/ 77413804 * 3 JFCBPROT BIT(1), /* RACF PROTECT REQUESTED (OS/VS2) 77414603 * (MDC314) @G32HP9A*/ 77415503 * 3 JFCBCEOV BIT(1), /* IF ONE, CHKPT=EOV SPECIFIED FOR 77417003 * THIS DATA SET (MDC312) @Z30JP9A*/ 77418003 * 3 JFCVRDS BIT(1), /* VIO DATA SET MDC006*/ 77419602 * 3 JFCBCKDS BIT(1), /* DATA SET IS CHECKPOINT DATA SET 77428103 * @ZA52824*/ 77436603 * 3 JFCBUAFF BIT(1), /* UNIT AFFINITY SPECIFIED FOR 77445302 * THIS DATA SET (ICB488) SA53458*/ 77458001 * 2 JFCBDQTY CHAR(3) BDY(WORD), /* QUANTITY OF DIRECT ACCESS 77500002 * STORAGE REQUIRED FOR A 77600002 * DIRECTORY OR AN EMBEDDED INDEX 77700002 * AREA */ 77750002 * 2 JFCBSPNM PTR(24) BDY(WORD,4),/* MAIN STORAGE ADDRESS OF THE 77800002 * JFCB WITH WHICH CYLINDERS ARE 77900002 * SPLIT (OS/VS1) 77950003 * (MDC315) @ZA18180*/ 78000003 * 3 JFCBFLG3 BIT(8), /* FLAG BYTE (OS/VS2) 78006003 * (MDC316) @ZA18180*/ 78012003 * 4 JFCDQDSP BIT(1), /* REQUEST DEQUEUE OF TAPE VOLUME 78018003 * WHEN DEMOUNTED 78024003 * (MDC317) @ZA18180*/ 78030003 * 4 JFCBEXP BIT(1), /* EXPIRATION DATE SPECIFIED 78036003 * (MDC318) @ZA27139*/ 78038003 * 4 JFCBRV02 BIT(1), /* RESERVED @ZA18180*/ 78042003 * 4 JFCBRV03 BIT(1), /* RESERVED @ZA18180*/ 78048003 * 4 JFCBRV04 BIT(1), /* RESERVED @ZA18180*/ 78054003 * 4 JFCBRV05 BIT(1), /* RESERVED @ZA18180*/ 78060003 * 4 JFCBRV06 BIT(1), /* RESERVED @ZA18180*/ 78066003 * 4 JFCBRV07 BIT(1), /* RESERVED @ZA18180*/ 78072003 * 3 JFCBRV08 FIXED(15), /* RESERVED (OS/VS2) @ZA18180*/ 78078003 * 2 JFCBABST FIXED(15), /* RELATIVE ADDRESS OF FIRST TRACK 78100002 * TO BE ALLOCATED */ 78200002 * 2 JFCBSBNM PTR(24) BDY(WORD), /* MAIN STORAGE ADDRESS OF THE 78300002 * JFCB FROM WHICH SPACE IS TO 78400002 * BE SUBALLOCATED */ 78500002 * 2 JFCBDRLH CHAR(3) BDY(WORD,4),/* AVERAGE DATA BLOCK LENGTH */ 78600002 * 2 JFCBVLCT CHAR(1), /* VOLUME COUNT */ 78700002 * 2 JFCBSPTN CHAR(1), /* NUMBER OF TRACKS PER CYLINDER 78800002 * TO BE USED BY THIS DATA SET 78900002 * WHEN SPLIT CYLINDER IS 79000002 * INDICATED */ 79050002 * 2 JFCBEND CHAR(0) BDY(WORD); 79150002 *% DCL JFCBLGTH CHAR; 79200002 *% JFCBLGTH ='176'; /* LENGTH OF JFCB */ 79300002 *%IF IKEPLS='' %THEN 79350002 * %GOTO JFCBL4; 79400002 *IHALPOP; 79450002 *%JFCBL4 : ; 79500002