* 00700004 * %GOTO JFCBEL1; /* 01400004 MACRO 02100004 IEFJFCBE &DSECT=YES */ 02800004 *%JFCBEL1 : ; 03500004 * 04200004 */* **************************************************************** */ 04900004 */* */ 05600004 */* JOB FILE CONTROL BLOCK EXTENSION FOR 3800 */ 06300004 */* */ 07000004 */* OS/VS1 RELEASE 5, OS/VS2 RELEASE 4, 07/10/75, LEVEL=6 */ 07700004 */* */ 08400004 */* METHOD OF ACCESS */ 09100004 */* BAL - DSECT IS PRODUCED UNLESS DSECT=NO IS SPECIFIED. */ 09800004 */* USING ON JFCBE GIVES ADDRESSABILITY FOR ALL SYMBOLS. */ 10500004 */* PL/S - DCL JFCBEPTR PTR */ 11200004 */* */ 11900004 */* **************************************************************** */ 12600004 *%GOTO JFCBEL2; /* 13300004 SPACE 1 14000004 AIF ('&DSECT' EQ 'NO').JFCBE10 14700004 JFCBE DSECT , - @Z40MP9A 15400004 AGO .JFCBE20 16100004 .JFCBE10 ANOP 16800004 DS 0F - @Z40MP9A 17500004 JFCBE EQU * - @Z40MP9A 18200004 .JFCBE20 ANOP 18900004 JFCBEXTR DS CL3 - DIRECT ACCESS ADDRESS FOR NEXT EXTENSION 19600004 * BLOCK @Z40MP9A 20300004 JFCBE001 DS XL1 - RESERVED @Z40MP9A 21000004 JFCBFLAG DS B - FLAG BYTE @Z40MP9A 21700004 JFCBEOPN EQU X'80' - USER OPEN EXIT MODIFIED THIS BLOCK 22400004 * (MDC304) @Z40MP9A 22450004 JFCBE003 EQU X'40',,C'X' - RESERVED @Z40MP9A 23100004 JFCBE004 EQU X'20',,C'X' - RESERVED @Z40MP9A 23800004 JFCBE005 EQU X'10',,C'X' - RESERVED @Z40MP9A 24500004 JFCBE006 EQU X'08',,C'X' - RESERVED @Z40MP9A 25200004 JFCBCFS EQU X'04' - CONTINUOUS FORM STACKING @Z40MP9A 25900004 JFCBBST EQU X'02' - RESERVED (MDC305) @Z40MP9A 26600004 JFCBE007 EQU X'01',,C'X' - RESERVED @Z40MP9A 27300004 JFCIDTRC DS FL1 - TABLE REFERENCE CHARACTER FOR COPY 28000004 * MODIFICATION PATTERN @Z40MP9A 28700004 JFCBE008 DS XL1 - RESERVED @Z40MP9A 29400004 JFCIMTOT DS FL1 - NUMBER OF IMAGE COPIES @Z40MP9A 30100004 JFCBMAGT DS CL4 - FORMS IMAGE CARTRIDGE ID @Z40MP9A 30800004 JFCMODIF DS CL4 - COPY MODIFICATION ID @Z40MP9A 31500004 JFCBE009 DS CL4 - RESERVED (MDC301) @Z40MP9A 32200004 JFCBTRS1 DS CL4 - NAME OF TRANSLATE TABLE 1 @Z40MP9A 32900004 JFCBTRS2 DS CL4 - NAME OF TRANSLATE TABLE 2 @Z40MP9A 33600004 JFCBTRS3 DS CL4 - NAME OF TRANSLATE TABLE 3 @Z40MP9A 34300004 JFCBTRS4 DS CL4 - NAME OF TRANSLATE TABLE 4 @Z40MP9A 35000004 JFCGROUP DS 0CL8 - OUTPUT DISTRIBUTION IN GROUPS @Z40MP9A 35700004 JFCGRP1 DS FL1 - FOR FIRST GROUP, NUMBER OF TIMES EACH 36400004 * PAGE IS PRINTED BEFORE GOING TO NEXT 37100004 * PAGE @Z40MP9A 37400004 JFCGRP2 DS FL1 - FOR SECOND GROUP, NUMBER OF TIMES EACH 37800004 * PAGE IS PRINTED BEFORE GOING TO NEXT 38500004 * PAGE @Z40MP9A 38800004 JFCGRP3 DS FL1 - FOR THIRD GROUP, NUMBER OF TIMES EACH 39200004 * PAGE IS PRINTED BEFORE GOING TO NEXT 39900004 * PAGE @Z40MP9A 40200004 JFCGRP4 DS FL1 - FOR FOURTH GROUP, NUMBER OF TIMES EACH 40600004 * PAGE IS PRINTED BEFORE GOING TO NEXT 41300004 * PAGE @Z40MP9A 41600004 JFCGRP5 DS FL1 - FOR FIFTH GROUP, NUMBER OF TIMES EACH 42000004 * PAGE IS PRINTED BEFORE GOING TO NEXT 42700004 * PAGE @Z40MP9A 43000004 JFCGRP6 DS FL1 - FOR SIXTH GROUP, NUMBER OF TIMES EACH 43400004 * PAGE IS PRINTED BEFORE GOING TO NEXT 44100004 * PAGE @Z40MP9A 44400004 JFCGRP7 DS FL1 - FOR SEVENTH GROUP, NUMBER OF TIMES EACH 44800004 * PAGE IS PRINTED BEFORE GOING TO NEXT 45500004 * PAGE @Z40MP9A 45800004 JFCGRP8 DS FL1 - FOR EIGHTH GROUP, NUMBER OF TIMES EACH 46200004 * PAGE IS PRINTED BEFORE GOING TO NEXT 46900004 * PAGE @Z40MP9A 47100004 JFCBE010 DS XL132 - RESERVED @Z40MP9A 47300004 JFCBELEN EQU *-JFCBE - LENGTH OF JFCB EXTENSION 47500004 * (MDC302) @Z40MP9A 47700004 JFCBEULN EQU JFCBE010-JFCBE LENGTH OF USED FIELDS IN JFCB EXTENSION 47900004 * (MDC303) @Z40MP9A 48000004 MEND , - */ 48300004 *%JFCBEL2 : ; 49000004 * 49700004 *DECLARE 50400004 * 1 JFCBE BASED(JFCBEPTR) BDY(WORD),/* @Z40MP9A*/ 51100004 * 2 JFCBEXTR CHAR(3), /* DIRECT ACCESS ADDRESS 51800004 * FOR NEXT EXTENSION 51850004 * BLOCK @Z40MP9A*/ 53000004 * 2 JFCBE001 CHAR(1), /* RESERVED @Z40MP9A*/ 53500004 * 2 JFCBFLAG BIT(8), /* FLAG BYTE @Z40MP9A*/ 54000004 * 3 JFCBEOPN BIT(1), /* USER OPEN EXIT MODIFIED 54500004 * THIS BLOCK 54550004 * (MDC304) @Z40MP9A*/ 54600004 * 3 JFCBE003 BIT(1), /* RESERVED @Z40MP9A*/ 55000004 * 3 JFCBE004 BIT(1), /* RESERVED @Z40MP9A*/ 55500004 * 3 JFCBE005 BIT(1), /* RESERVED @Z40MP9A*/ 56000004 * 3 JFCBE006 BIT(1), /* RESERVED @Z40MP9A*/ 56500004 * 3 JFCBCFS BIT(1), /* CONTINUOUS FORM 57000004 * STACKING @Z40MP9A*/ 57500004 * 3 JFCBBST BIT(1), /* RESERVED 58000004 * (MDC305) @Z40MP9A*/ 58050004 * 3 JFCBE007 BIT(1), /* RESERVED @Z40MP9A*/ 59000004 * 2 JFCIDTRC BIT(8), /* TABLE REFERENCE CHARACTER 60200004 * FOR COPY MODIFICATION 60900004 * PATTERN @Z40MP9A*/ 61600004 * 2 JFCBE008 CHAR(1), /* RESERVED @Z40MP9A*/ 61900004 * 2 JFCIMTOT PTR(8), /* NUMBER OF IMAGE 62200004 * COPIES @Z40MP9A*/ 62500004 * 2 JFCBMAGT CHAR(4) BDY(WORD), /* FORMS IMAGE CARTRIDGE 62800004 * ID @Z40MP9A*/ 63100004 * 2 JFCMODIF CHAR(4) BDY(WORD), /* COPY MODIFICATION 63400004 * ID @Z40MP9A*/ 63700004 * 2 JFCBE009 CHAR(4) BDY(WORD), /* RESERVED 64000004 * (MDC301) @Z40MP9A*/ 64300004 * 2 JFCBTRS1 CHAR(4) BDY(WORD), /* NAME OF TRANSLATE TABLE 64600004 * 1 @Z40MP9A*/ 64900004 * 2 JFCBTRS2 CHAR(4) BDY(WORD), /* NAME OF TRANSLATE TABLE 65200004 * 2 @Z40MP9A*/ 65500004 * 2 JFCBTRS3 CHAR(4) BDY(WORD), /* NAME OF TRANSLATE TABLE 65800004 * 3 @Z40MP9A*/ 66100004 * 2 JFCBTRS4 CHAR(4) BDY(WORD), /* NAME OF TRANSLATE TABLE 66400004 * 4 @Z40MP9A*/ 66700004 * 2 JFCGROUP CHAR(8) BDY(WORD), /* OUTPUT DISTRIBUTION IN 68600004 * GROUPS @Z40MP9A*/ 69300004 * 3 JFCGRP1 PTR(8), /* FOR FIRST GROUP, NUMBER 70000004 * OF TIMES EACH PAGE IS 70700004 * PRINTED BEFORE GOING TO 71400004 * NEXT PAGE @Z40MP9A*/ 72100004 * 3 JFCGRP2 PTR(8), /* FOR SECOND GROUP, NUMBER 72800004 * OF TIMES EACH PAGE IS 73500004 * PRINTED BEFORE GOING TO 74200004 * NEXT PAGE @Z40MP9A*/ 74900004 * 3 JFCGRP3 PTR(8), /* FOR THIRD GROUP, NUMBER 75600004 * OF TIMES EACH PAGE IS 76300004 * PRINTED BEFORE GOING TO 77000004 * NEXT PAGE @Z40MP9A*/ 77700004 * 3 JFCGRP4 PTR(8), /* FOR FOURTH GROUP, NUMBER 78400004 * OF TIMES EACH PAGE IS 79100004 * PRINTED BEFORE GOING TO 79800004 * NEXT PAGE @Z40MP9A*/ 80500004 * 3 JFCGRP5 PTR(8), /* FOR FIFTH GROUP, NUMBER 81200004 * OF TIMES EACH PAGE IS 81900004 * PRINTED BEFORE GOING TO 82600004 * NEXT PAGE @Z40MP9A*/ 83300004 * 3 JFCGRP6 PTR(8), /* FOR SIXTH GROUP, NUMBER 84000004 * OF TIMES EACH PAGE IS 84700004 * PRINTED BEFORE GOING TO 85400004 * NEXT PAGE @Z40MP9A*/ 86100004 * 3 JFCGRP7 PTR(8), /* FOR SEVENTH GROUP, NUMBER 86800004 * OF TIMES EACH PAGE IS 87500004 * PRINTED BEFORE GOING TO 88200004 * NEXT PAGE @Z40MP9A*/ 88900004 * 3 JFCGRP8 PTR(8), /* FOR EIGHTH GROUP, NUMBER 89600004 * OF TIMES EACH PAGE IS 90300004 * PRINTED BEFORE GOING TO 91000004 * NEXT PAGE @Z40MP9A*/ 91700004 * 2 JFCBE010 CHAR(132) BDY(WORD); /* RESERVED @Z40MP9A*/ 92700004 *%JFCBELEN='LENGTH(JFCBE)'; /* LENGTH OF JFCB EXTENSION 93700004 * (MDC302) @Z40MP9A*/ 94700004 *%JFCBEULN='LENGTH(JFCBE) - LENGTH(JFCBE010)'; /* LENGTH OF USED 95700004 * FIELDS IN JFCB EXTENSION 96700004 * (MDC303) @Z40MP9A*/ 97700004