TITLE '***** IDCTSCP0 - COMPARET STATIC TEXT ****' 00050000 * /* START OF SPECIFICATIONS**** 00100000 *01* PROCESSOR = ASSEMBLER 00150000 **** END OF SPECIFICATIONS ***/ 00200000 ************************************************************ @Z40LB65 00250000 * * @Z40LB65 00300000 * MODULE NAME - IDCTSCP0 * @Z40LB65 00350000 * * @Z40LB65 00400000 * * @Z40LB65 00450000 * DESCRIPTIVE NAME - STATIC TEXT MODULE FOR THE COMPARET * @Z40LB65 00500000 * FUNCTION * @Z40LB65 00550000 * * @Z40LB65 00600000 * * @Z40LB65 00650000 * COPYRIGHT - NONE * @Z40LB65 00700000 * * @Z40LB65 00750000 * STATUS - RELEASE 0 LEVEL 0 * @Z40LB65 00800000 * * @Z40LB65 00850000 * FUNCTION - CONTAINS NO EXECTABLE CODE, ONLY STATIC TEXT * @Z40LB65 00900000 * ENTRIES FOR THE FUNCTION COMPARET * @Z40LB65 00950000 * THIS MODULE IS LOADED BY IDCTP05 WHEN A STATIC * @Z40LB65 01000000 * TEXT REQUEST IS MADE. * @Z40LB65 01050000 * * @Z40LB65 01100000 * NOTES - NONE * @Z40LB65 01150000 * * @Z40LB65 01200000 * DEPENDENCIES - NONE * @Z40LB65 01250000 * RESTRICTIONS - NONE * @Z40LB65 01300000 * REGISTER CONVENTIONS - NA * @Z40LB65 01350000 * PATCH AREA - NA * @Z40LB65 01400000 * * @Z40LB65 01450000 * MODULE TYPE - TABLES * @Z40LB65 01500000 * * @Z40LB65 01550000 * PROCESSOR - ASSEMBLER * @Z40LB65 01600000 * MODULE SIZE - 200 * @Z40LB65 01650000 * ATTRIBUTES - READ-ONLY * @Z40LB65 01700000 * * @Z40LB65 01750000 * ENTRY POINT - NA * @Z40LB65 01800000 * * @Z40LB65 01850000 * EXIT NORMAL - NA * @Z40LB65 01900000 * * @Z40LB65 01950000 * EXIT ERROR - NA * @Z40LB65 02000000 * * @Z40LB65 02050000 * EXTERNAL REFERENCES - NA * @Z40LB65 02100000 * * @Z40LB65 02150000 * TABLES - NA * @Z40LB65 02200000 * * @Z40LB65 02250000 * MACROS - NA * @Z40LB65 02300000 * * @Z40LB65 02350000 * CHANGE ACTIVITY - NONE * @Z40LB65 02400000 * * @Z40LB65 02450000 ************************************************************ @Z40LB65 02500000 EJECT @Z40LB65 02550000 ************************************************************ @Z40LB65 02600000 * * @Z40LB65 02650000 * THIS MODULE IS THE FIRST MODULE OF STATIC TEXT REQUIRED * @Z40LB65 02700000 * BY THE COMPARET FSR * @Z40LB65 02750000 * * @Z40LB65 02800000 ************************************************************ @Z40LB65 02850000 * @Z40LB65 02900000 IDCTSCP0 CSECT @Z40LB65 02950000 * @Z40LB65 03000000 INDEX DC Y((INDEXEND-INDEX1)/2) COUNT OF ENTRIES @Z40LB65 03050000 INDEX1 DC Y(TXT1-INDEX) MSG IDC31180I @Z40LB65 03100000 INDEX2 DC Y(TXT2-INDEX) MSG IDC31181I @Z40LB65 03150000 INDEX3 DC Y(TXT3-INDEX) COMPARET SUB-TITLE @Z40LB22 03160000 INDEX4 DC Y(TXT4-INDEX) CHR CCHHRR @Z40LB65 03170000 INDEX5 DC Y(TXT5-INDEX) CHR MIS-MATCH @Z40LB65 03180000 INDEX6 DC Y(TXT6-INDEX) RECORD MIS-MATCH @Z40LB22 03190000 INDEXEND DS 0H @Z40LB65 03200000 EJECT @Z40LB65 03250000 ********************************************************** @Z40LB65 03300000 * * @Z40LB65 03350000 * IDC31180I PRIMARY MSC TABLES CANNOT BE COPIED TO * @Z40LB65 03400000 * WORK DATA SET * @Z40LB65 03450000 * * @Z40LB65 03500000 ********************************************************** @Z40LB65 03550000 SPACE 3 @Z40LB65 03600000 TXT1 DC Y(TXT1B-TXT1A) ENTRY LENGTH @Z40LB65 03650000 DC X'8000' MESSAGE FLAG @Z40LB65 03700000 SPACE 1 @Z40LB65 03750000 * SPACING CONTROL SUB-STRUCTURE @Z40LB65 03800000 TXT1A DC X'4000' SPACE CONTROL FLAG @Z40LB65 03850000 DC H'2' SPACING FACTOR @Z40LB65 03900000 DC C'R ' SPACING TYPE @Z40LB65 03950000 SPACE 1 @Z40LB65 04000000 * STATIC TEXT SUB-STRUCTURE @Z40LB65 04050000 DC X'8400' STATIC TEXT FLAG @Z40LB65 04100000 DC Y(STE11B-STE11A) TEXT LENGTH @Z40LB65 04150000 DC Y(STE11A-TXT1A) TEXT OFFSET @Z40LB65 04200000 DC H'1' PRINT COLUMN @Z40LB65 04250000 DC Y(STE11B-STE11A) PRINT FIELD LENGTH @Z40LB65 04300000 DC H'0' CONVERSION FLAGS @Z40LB65 04350000 SPACE 1 @Z40LB65 04400000 * STATIC TEXT ENTRY @Z40LB65 04450000 STE11A DC C'IDC31180I PRIMARY MSC TABLES CANNOT BE ' @Z40LB22 04500000 DC C'COPIED TO WORK DATA SET' @Z40LB22 04550000 STE11B EQU * @Z40LB65 04600000 TXT1B EQU * @Z40LB65 04650000 EJECT @Z40LB65 04700000 ********************************************************** @Z40LB65 04750000 * * @Z40LB65 04800000 * IDC31181I SECONDARY MSC TABLES CANNOT BE COPIED TO * @Z40LB65 04850000 * WORK DATA SET * @Z40LB65 04900000 * * @Z40LB65 04950000 ********************************************************** @Z40LB65 05000000 SPACE 3 @Z40LB65 05050000 TXT2 DC Y(TXT2B-TXT2A) ENTRY LENGTH @Z40LB65 05100000 DC X'8000' MESSAGE FLAG @Z40LB65 05150000 SPACE 1 @Z40LB65 05200000 * SPACING CONTROL SUB-STRUCTURE @Z40LB65 05250000 TXT2A DC X'4000' SPACE CONTROL FLAG @Z40LB65 05300000 DC H'2' SPACING FACTOR @Z40LB65 05350000 DC C'R ' SPACING TYPE @Z40LB65 05400000 SPACE 1 @Z40LB65 05450000 * STATIC TEXT SUB-STRUCTURE @Z40LB65 05500000 DC X'8400' STATIC TEXT FLAG @Z40LB65 05550000 DC Y(STE21B-STE21A) TEXT LENGTH @Z40LB65 05600000 DC Y(STE21A-TXT2A) TEXT OFFSET @Z40LB65 05650000 DC H'1' PRINT COLUMN @Z40LB65 05700000 DC Y(STE21B-STE21A) PRINT FIELD LENGTH @Z40LB65 05750000 DC H'0' CONVERSION FLAGS @Z40LB65 05800000 SPACE 1 @Z40LB65 05850000 * STATIC TEXT ENTRY @Z40LB65 05900000 STE21A DC C'IDC31181I SECONDARY MSC TABLES CANNOT BE ' @Z40LB22 05950000 DC C'COPIED TO WORK DATA SET' @Z40LB22 06000000 STE21B EQU * @Z40LB65 06050000 TXT2B EQU * @Z40LB65 06100000 EJECT @Z40LB65 06102000 ************************************************************ @Z40LB22 06110000 * COMPARET SUB-TITLE LINE * @Z40LB22 06120000 ************************************************************ @Z40LB22 06130000 SPACE 3 @Z40LB22 06140000 TXT3 DC Y(TXT3B-TXT3A) ENTRY LENGTH @Z40LB22 06142000 DC X'0000' NULL FLAG @Z40LB22 06144000 SPACE 1 @Z40LB22 06146000 * STATIC TEXT SUB-STRUCTURE @Z40LB22 06148000 TXT3A DC X'8400' STATIC TEXT FLAG @Z40LB22 06148400 DC Y(STE31B-STE31A) TEXT LENGTH @Z40LB22 06148800 DC Y(STE31A-TXT3A) TEXT OFFSET @Z40LB22 06149200 DC H'1' PRINT COLUMN @Z40LB22 06149600 DC Y(STE31B-STE31A) PRINT FIELD LENGTH @Z40LB22 06149700 DC H'0' CONVERSION FLAGS @Z40LB22 06149800 SPACE 1 @Z40LB22 06149900 * STATIC TEXT ENTRIES @Z40LB22 06199900 STE31A DC C'0' @Z40LB22 06209900 DC C' MSC PRIMARY/SECONDARY TABLES DISCREPANCIES' @Z40LB22 06219900 STE31B EQU * @Z40LB22 06229900 TXT3B EQU * @Z40LB22 06239900 EJECT @Z40LB22 06241900 ************************************************************ @Z40LB22 06243900 * TXT4**CHR CCHHRR @Z40LB22 06245900 ************************************************************ @Z40LB22 06247900 SPACE 3 @Z40LB22 06248300 TXT4 DC Y(TXT4B-TXT4A) ENTRY LENGTH @Z40LB22 06248700 DC X'0000' MESSAGE FLAG @Z40LB22 06249100 SPACE 1 @Z40LB22 06249500 * SPACING CONTROL SUB-STRUCTURE @Z40LB22 06249600 TXT4A DC X'4000' SPACE CONTROL FLAG @Z40LB22 06249700 DC H'3' SPACING FACTOR @Z40LB22 06249800 DC C'R ' SPACING TYPE @Z40LB22 06299800 SPACE 1 @Z40LB22 06309800 * STATIC TEXT SUB-STRUCTURE @Z40LB22 06319800 DC X'0400' STATIC TEXT FLAG @Z40LB22 06329800 DC Y(STE41B-STE41A) TEXT LENGTH @Z40LB22 06339800 DC Y(STE41A-TXT4A) TEXT OFFSET @Z40LB22 06341800 DC H'1' PRINT COLUMN @Z40LB22 06343800 DC Y(STE41B-STE41A) PRINT FIELD LENGTH @Z40LB22 06345800 DC H'0' CONVERSION FLAGS @Z40LB22 06347800 SPACE 1 @Z40LB22 06348200 * BLOCK DATA SUB-STRUCTURE @Z40LB22 06348600 DC X'9000' BLOCK DATA FLAG @Z40LB22 06349000 DC H'3,0,7,6' LNG,OFST,PC,LNG @Z40LB22 06399000 DC X'8000' CONVERSION FLAGS @Z40LB22 06399700 SPACE 1 @Z40LB22 06409700 * STATIC TEXT ENTRIES @Z40LB22 06419700 STE41A DC C' CHR XXXXXX' @Z40LB22 06429700 STE41B EQU * @Z40LB22 06439700 TXT4B EQU * @Z40LB22 06441700 EJECT @Z40LB22 06442100 ************************************************************ @Z40LB22 06442500 * TXT5**CHR CCHHRR * CHR READ DOES NOT MATCH CHR IN RECORD * @Z40LB22 06442900 ************************************************************ @Z40LB22 06443300 SPACE 3 @Z40LB22 06443400 TXT5 DC Y(TXT5B-TXT5A) ENTRY LENGTH @Z40LB22 06443500 DC X'0000' MESSAGE FLAG @Z40LB22 06443600 SPACE 1 @Z40LB22 06493600 * SPACING CONTROL SUB-STRUCTURE @Z40LB22 06503600 TXT5A DC X'4000' SPACE CONTROL FLAG @Z40LB22 06513600 DC H'3' SPACING FACTOR @Z40LB22 06523600 DC C'R ' SPACING TYPE @Z40LB22 06533600 SPACE 1 @Z40LB22 06535600 * STATIC TEXT SUB-STRUCTURE @Z40LB22 06537600 DC X'0400' STATIC TEXT FLAG @Z40LB22 06539600 DC Y(STE51B-STE51A) TEXT LENGTH @Z40LB22 06541600 DC Y(STE51A-TXT5A) TEXT OFFSET @Z40LB22 06542000 DC H'1' PRINT COLUMN @Z40LB22 06542400 DC Y(STE51B-STE51A) PRINT FIELD LENGTH @Z40LB22 06542800 DC H'0' CONVERSION FLAGS @Z40LB22 06543200 SPACE 1 @Z40LB22 06543300 * BLOCK DATA SUB-STRUCTURE @Z40LB22 06543400 DC X'9000' BLOCK DATA FLAG @Z40LB22 06543500 DC H'3,0,7,6' LNG,OFST,PC,LNG @Z40LB65 06553500 DC X'8000' CONVERSION FLAGS @Z40LB22 06576200 SPACE 1 @Z40LB22 06576600 * STATIC TEXT ENTRIES @Z40LB22 06576700 STE51A DC C' CHR XXXXXX ** CHR READ DOES NOT MATCH ' @Z40LB22 06576800 DC C'CHR IN RECORD **' @Z40LB22 06578900 STE51B EQU * @Z40LB22 06582400 TXT5B EQU * @Z40LB22 06584400 EJECT @Z40LB22 06588000 ************************************************************ @Z40LB22 06590000 * TXT6 **PREFIX AND RECORD MISMATCH** @Z40LB22 06592000 ************************************************************ @Z40LB22 06592400 SPACE 3 @Z40LB22 06592800 TXT6 DC Y(TXT6S-TXT6A) ENTRY LENGTH @Z40LB22 06593200 DC X'0000' NULL FLAG @Z40LB22 06593300 SPACE 1 @Z40LB22 06593400 * SPACING CONTROL SUB-STRUCTURE @Z40LB22 06610100 TXT6A DC X'4000' SPACE CONTROL FLAG @Z40LB22 06620100 DC H'2' SPACING FACTOR @Z40LB22 06622100 DC C'R ' SPACING TYPE @Z40LB22 06624100 SPACE 1 @Z40LB22 06626100 * STATIC TEXT SUB-STRUCTURE @Z40LB22 06626800 DC X'0400' STATIC TEXT FLAG @Z40LB22 06643500 DC Y(STE61B-STE61A) TEXT LENGTH @Z40LB22 06653500 DC Y(STE61A-TXT6A) TEXT OFFSET @Z40LB22 06663500 DC H'1' PRINT COLUMN @Z40LB22 06673500 DC Y(STE61B-STE61A) PRINT FIELD LENGTH @Z40LB22 06683500 DC H'0' CONVERSION FLAGS @Z40LB22 06685500 SPACE 1 @Z40LB22 06689500 * SPACING CONTROL SUB-STRUCTURE (X) @Z40LB22 06690300 DC X'4000' SPACE CONTROL FLAG @Z40LB22 06690400 DC H'1' SPACING FACTOR @Z40LB22 06690500 DC C'R ' SPACING TYPE @Z40LB22 06690600 * BLOCK DATA SUB-STRUCTURE 1ST X @Z40LB22 06690700 DC X'1000' BLOCK DATA FLAG @Z40LB22 06691000 DC H'04,00,07,08' LNG,OFST,PC,LNG @Z40LB22 06691100 DC X'8000' CONVERSION FLAGS @Z40LB22 06691200 * BLOCK DATA SUB-STRUCTURE 2ND X @Z40LB22 06691300 DC X'1000' BLOCK DATA FLAG @Z40LB22 06691400 DC H'04,04,16,08' LNG,OFST,PC,LNG @Z40LB22 06691500 DC X'8000' CONVERSION FLAGS @Z40LB22 06691600 * SPACING CONTROL SUB-STRUCTURE (.) @Z40LB22 06691700 DC X'4000' SPACE CONTROL FLAG @Z40LB22 06691800 DC H'1' SPACING FACTOR @Z40LB22 06692300 DC C'R ' SPACING TYPE @Z40LB22 06692700 SPACE 1 @Z40LB22 06694300 * BLOCK DATA SUB-STRUCTURE 1ST . @Z40LB22 06694800 DC X'1000' BLOCK DATA FLAG @Z40LB22 06695300 DC H'08,08,07,08' LNG,OFST,PC,LNG @Z40LB22 06695800 DC X'0000' CONVERSION FLAGS @Z40LB22 06696300 * BLOCK DATA SUB-STRUCTURE 2ND . @Z40LB22 06697100 DC X'1000' BLOCK DATA FLAG @Z40LB22 06697500 DC H'08,16,16,08' LNG,OFST,PC,LNG @Z40LB22 06697900 DC X'0000' CONVERSION FLAGS @Z40LB22 06698300 SPACE 1 @Z40LB22 06700300 * SPACING CONTROL SUB-STRUCTURE (RECORD) @Z40LB22 06716300 DC X'4000' SPACE CONTROL FLAG @Z40LB22 06716700 DC H'2' SPACING FACTOR @Z40LB22 06717100 DC C'R ' SPACING TYPE @Z40LB22 06721300 SPACE 1 @Z40LB22 06723300 * STATIC TEXT SUB-STRUCTURE @Z40LB22 06725300 DC X'0400' STATIC TEXT FLAG @Z40LB22 06725400 DC Y(STE61D-STE61C) TEXT LENGTH @Z40LB22 06729600 DC Y(STE61C-TXT6A) TEXT OFFSET @Z40LB22 06731600 DC H'1' PRINT COLUMN @Z40LB22 06733600 DC Y(STE61D-STE61C) PRINT FIELD LENGTH @Z40LB22 06733700 DC H'0' CONVERSION FLAGS @Z40LB22 06737400 SPACE 1 @Z40LB22 06739400 * SPACING CONTROL SUB-STRUCTURE (00) @Z40LB22 06739800 DC X'4000' SPACE CONTROL FLAG @Z40LB22 06740200 DC H'1' SPACING FACTOR @Z40LB22 06740600 DC C'R ' SPACING TYPE @Z40LB22 06741000 SPACE 1 @Z40LB22 06741400 * STATIC TEXT SUB-STRUCTURE @Z40LB22 06741800 DC X'0400' STATIC TEXT FLAG @Z40LB22 06741900 DC Y(STE61F-STE61E) TEXT LENGTH @Z40LB22 06742000 DC Y(STE61E-TXT6A) TEXT OFFSET @Z40LB22 06742100 DC H'1' PRINT COLUMN @Z40LB22 06745400 DC Y(STE61F-STE61E) PRINT FIELD LENGTH @Z40LB22 06747400 DC H'0' CONVERSION FLAGS @Z40LB22 06747800 SPACE 1 @Z40LB22 06748200 * BLOCK DATA SUB-STRUCTURE 1ST X @Z40LB22 06750000 DC X'1000' BLOCK DATA FLAG @Z40LB22 06752000 DC H'04,24,07,08' LNG,OFST,PC,LNG @Z40LB22 06752100 DC X'8000' CONVERSION FLAGS @Z40LB22 06754900 * BLOCK DATA SUB-STRUCTURE 2ND X @Z40LB22 06756900 DC X'1000' BLOCK DATA FLAG @Z40LB22 06757300 DC H'04,28,16,08' LNG,OFST,PC,LNG @Z40LB22 06757700 DC X'8000' CONVERSION FLAGS @Z40LB22 06758100 * BLOCK DATA SUB-STRUCTURE 3RD X @Z40LB22 06758300 DC X'1000' BLOCK DATA FLAG @Z40LB22 06758400 DC H'04,32,25,08' LNG,OFST,PC,LNG @Z40LB22 06758500 DC X'8000' CONVERSION FLAGS @Z40LB22 06758600 * BLOCK DATA SUB-STRUCTURE 4TH X @Z40LB22 06758800 DC X'1000' BLOCK DATA FLAG @Z40LB22 06759200 DC H'04,36,34,08' LNG,OFST,PC,LNG @Z40LB22 06759600 DC X'8000' CONVERSION FLAGS @Z40LB22 06759700 * BLOCK DATA SUB-STRUCTURE 5TH X @Z40LB22 06759800 DC X'1000' BLOCK DATA FLAG @Z40LB22 06760200 DC H'04,40,45,08' LNG,OFST,PC,LNG @Z40LB22 06760300 DC X'8000' CONVERSION FLAGS @Z40LB22 06760400 * BLOCK DATA SUB-STRUCTURE 6TH X @Z40LB22 06760500 DC X'1000' BLOCK DATA FLAG @Z40LB22 06760600 DC H'04,44,54,08' LNG,OFST,PC,LNG @Z40LB22 06761000 DC X'8000' CONVERSION FLAGS @Z40LB22 06761100 * BLOCK DATA SUB-STRUCTURE 7TH X @Z40LB22 06761200 DC X'1000' BLOCK DATA FLAG @Z40LB22 06761300 DC H'04,48,63,08' LNG,OFST,PC,LNG @Z40LB22 06761500 DC X'8000' CONVERSION FLAGS @Z40LB22 06761900 * BLOCK DATA SUB-STRUCTURE 8TH X @Z40LB22 06762000 DC X'1000' BLOCK DATA FLAG @Z40LB22 06762100 DC H'04,52,72,08' LNG,OFST,PC,LNG @Z40LB22 06762300 DC X'8000' CONVERSION FLAGS @Z40LB22 06762700 * SPACING CONTROL SUB-STRUCTURE . (00) @Z40LB22 06764000 DC X'4000' SPACE CONTROL FLAG @Z40LB22 06764200 DC H'1' SPACING FACTOR @Z40LB22 06764400 DC C'R ' SPACING TYPE @Z40LB22 06764600 SPACE 1 @Z40LB22 06764800 * BLOCK DATA SUB-STRUCTURE 1ST . @Z40LB22 06765000 DC X'1000' BLOCK DATA FLAG @Z40LB22 06765200 DC H'08,56,07,08' LNG,OFST,PC,LNG @Z40LB22 06765400 DC X'0000' CONVERSION FLAGS @Z40LB22 06765600 * BLOCK DATA SUB-STRUCTURE 2ND . @Z40LB22 06765800 DC X'1000' BLOCK DATA FLAG @Z40LB22 06766000 DC H'08,64,16,08' LNG,OFST,PC,LNG @Z40LB22 06766300 DC X'0000' CONVERSION FLAGS @Z40LB22 06766400 * BLOCK DATA SUB-STRUCTURE 3RD . @Z40LB22 06766800 DC X'1000' BLOCK DATA FLAG @Z40LB22 06767200 DC H'08,72,25,08' LNG,OFST,PC,LNG @Z40LB22 06767600 DC X'0000' CONVERSION FLAGS @Z40LB22 06767700 * BLOCK DATA SUB-STRUCTURE 4TH . @Z40LB22 06767800 DC X'1000' BLOCK DATA FLAG @Z40LB22 06767900 DC H'08,80,34,08' LNG,OFST,PC,LNG @Z40LB22 06768100 DC X'0000' CONVERSION FLAGS @Z40LB22 06768500 * BLOCK DATA SUB-STRUCTURE 5TH . @Z40LB22 06768600 DC X'1000' BLOCK DATA FLAG @Z40LB22 06768700 DC H'08,88,45,08' LNG,OFST,PC,LNG @Z40LB22 06768800 DC X'0000' CONVERSION FLAGS @Z40LB22 06768900 * BLOCK DATA SUB-STRUCTURE 6TH . @Z40LB22 06769000 DC X'1000' BLOCK DATA FLAG @Z40LB22 06769400 DC H'08,96,54,08' LNG,OFST,PC,LNG @Z40LB22 06769800 DC X'0000' CONVERSION FLAGS @Z40LB22 06770200 * BLOCK DATA SUB-STRUCTURE 7TH . @Z40LB22 06770300 DC X'1000' BLOCK DATA FLAG @Z40LB22 06770400 DC H'08,104,63,08' LNG,OFST,PC,LNG @Z40LB22 06770500 DC X'0000' CONVERSION FLAGS @Z40LB22 06770700 * BLOCK DATA SUB-STRUCTURE 8TH . @Z40LB22 06771100 DC X'1000' BLOCK DATA FLAG @Z40LB22 06771500 DC H'08,112,72,08' LNG,OFST,PC,LNG @Z40LB22 06771900 DC X'0000' CONVERSION FLAGS @Z40LB22 06772300 SPACE 1 @Z40LB22 06773200 * SPACING CONTROL SUB-STRUCTURE @Z40LB22 06774700 DC X'4000' SPACE CONTROL FLAG @Z40LB22 06775100 DC H'2' SPACING FACTOR @Z40LB22 06775200 DC C'R ' SPACING TYPE @Z40LB22 06775300 SPACE 1 @Z40LB22 06775400 * STATIC TEXT SUB-STRUCTURE @Z40LB22 06775500 DC X'0400' STATIC TEXT FLAG @Z40LB22 06775600 DC Y(STE61H-STE61G) TEXT LENGTH @Z40LB22 06775700 DC Y(STE61G-TXT6A) TEXT OFFSET @Z40LB22 06775800 DC H'1' PRINT COLUMN @Z40LB22 06775900 DC Y(STE61H-STE61G) PRINT FIELD LENGTH @Z40LB22 06776000 DC H'0' CONVERSION FLAGS @Z40LB22 06776100 SPACE 1 @Z40LB22 06776200 * BLOCK DATA SUB-STRUCTURE 1ST X (20) @Z40LB22 06776300 DC X'1000' BLOCK DATA FLAG @Z40LB22 06776400 DC H'04,120,07,08' LNG,OFST,PC,LNG @Z40LB22 06776500 DC X'8000' CONVERSION FLAGS @Z40LB22 06776600 * BLOCK DATA SUB-STRUCTURE 2ND X @Z40LB22 06776700 DC X'1000' BLOCK DATA FLAG @Z40LB22 06776800 DC H'04,124,16,08' LNG,OFST,PC,LNG @Z40LB22 06776900 DC X'8000' CONVERSION FLAGS @Z40LB22 06777000 * BLOCK DATA SUB-STRUCTURE 3RD X @Z40LB22 06777100 DC X'1000' BLOCK DATA FLAG @Z40LB22 06777200 DC H'04,128,25,08' LNG,OFST,PC,LNG @Z40LB22 06777300 DC X'8000' CONVERSION FLAGS @Z40LB22 06777400 * BLOCK DATA SUB-STRUCTURE 4TH X @Z40LB22 06777600 DC X'1000' BLOCK DATA FLAG @Z40LB22 06778000 DC H'04,132,34,08' LNG,OFST,PC,LNG @Z40LB22 06778400 DC X'8000' CONVERSION FLAGS @Z40LB22 06778600 * BLOCK DATA SUB-STRUCTURE 5TH X @Z40LB22 06779000 DC X'1000' BLOCK DATA FLAG @Z40LB22 06779400 DC H'04,136,45,08' LNG,OFST,PC,LNG @Z40LB22 06779800 DC X'8000' CONVERSION FLAGS @Z40LB22 06780200 * BLOCK DATA SUB-STRUCTURE 6TH X @Z40LB22 06780400 DC X'1000' BLOCK DATA FLAG @Z40LB22 06780800 DC H'04,140,54,08' LNG,OFST,PC,LNG @Z40LB22 06780900 DC X'8000' CONVERSION FLAGS @Z40LB22 06781000 * BLOCK DATA SUB-STRUCTURE 7TH X @Z40LB22 06781100 DC X'1000' BLOCK DATA FLAG @Z40LB22 06781500 DC H'04,144,63,08' LNG,OFST,PC,LNG @Z40LB22 06781900 DC X'8000' CONVERSION FLAGS @Z40LB22 06782300 * BLOCK DATA SUB-STRUCTURE 8TH X @Z40LB22 06782400 DC X'1000' BLOCK DATA FLAG @Z40LB22 06782500 DC H'04,148,72,08' LNG,OFST,PC,LNG @Z40LB22 06782600 DC X'8000' CONVERSION FLAGS @Z40LB22 06783000 * SPACING CONTROL SUB-STRUCTURE . (20) @Z40LB22 06783100 DC X'4000' SPACE CONTROL FLAG @Z40LB22 06783200 DC H'1' SPACING FACTOR @Z40LB22 06783300 DC C'R ' SPACING TYPE @Z40LB22 06783400 SPACE 1 @Z40LB22 06783500 * BLOCK DATA SUB-STRUCTURE 1ST . @Z40LB22 06783900 DC X'1000' BLOCK DATA FLAG @Z40LB22 06784300 DC H'08,152,07,08' LNG,OFST,PC,LNG @Z40LB22 06784700 DC X'0000' CONVERSION FLAGS @Z40LB22 06784800 * BLOCK DATA SUB-STRUCTURE 2ND . @Z40LB22 06784900 DC X'1000' BLOCK DATA FLAG @Z40LB22 06785300 DC H'08,160,16,08' LNG,OFST,PC,LNG @Z40LB22 06785700 DC X'0000' CONVERSION FLAGS @Z40LB22 06785800 * BLOCK DATA SUB-STRUCTURE 3RD . @Z40LB22 06785900 DC X'1000' BLOCK DATA FLAG @Z40LB22 06786100 DC H'08,168,25,08' LNG,OFST,PC,LNG @Z40LB22 06786500 DC X'0000' CONVERSION FLAGS @Z40LB22 06786900 * BLOCK DATA SUB-STRUCTURE 4TH . @Z40LB22 06787000 DC X'1000' BLOCK DATA FLAG @Z40LB22 06787100 DC H'08,176,34,08' LNG,OFST,PC,LNG @Z40LB22 06787200 DC X'0000' CONVERSION FLAGS @Z40LB22 06787300 * BLOCK DATA SUB-STRUCTURE 5TH . @Z40LB22 06787500 DC X'1000' BLOCK DATA FLAG @Z40LB22 06787900 DC H'08,184,45,08' LNG,OFST,PC,LNG @Z40LB22 06788300 DC X'0000' CONVERSION FLAGS @Z40LB22 06788400 * BLOCK DATA SUB-STRUCTURE 6TH . @Z40LB22 06788500 DC X'1000' BLOCK DATA FLAG @Z40LB22 06788600 DC H'08,192,54,08' LNG,OFST,PC,LNG @Z40LB22 06788700 DC X'0000' CONVERSION FLAGS @Z40LB22 06788800 * BLOCK DATA SUB-STRUCTURE 7TH . @Z40LB22 06788900 DC X'1000' BLOCK DATA FLAG @Z40LB22 06789000 DC H'08,200,63,08' LNG,OFST,PC,LNG @Z40LB22 06789100 DC X'0000' CONVERSION FLAGS @Z40LB22 06789200 * BLOCK DATA SUB-STRUCTURE 8TH . @Z40LB22 06789300 DC X'1000' BLOCK DATA FLAG @Z40LB22 06789400 DC H'08,208,72,08' LNG,OFST,PC,LNG @Z40LB22 06789500 DC X'0000' CONVERSION FLAGS @Z40LB22 06789600 * SPACING CONTROL SUB-STRUCTURE (40) @Z40LB22 06790100 DC X'4000' SPACE CONTROL FLAG @Z40LB22 06790200 DC H'2' SPACING FACTOR @Z40LB22 06790300 DC C'R ' SPACING TYPE @Z40LB22 06790400 SPACE 1 @Z40LB22 06790500 * STATIC TEXT SUB-STRUCTURE @Z40LB22 06790600 DC X'0400' STATIC TEXT FLAG @Z40LB22 06790700 DC Y(STE61J-STE61I) TEXT LENGTH @Z40LB22 06790800 DC Y(STE61I-TXT6A) TEXT OFFSET @Z40LB22 06790900 DC H'1' PRINT COLUMN @Z40LB22 06791000 DC Y(STE61J-STE61I) PRINT FIELD LENGTH @Z40LB22 06791100 DC H'0' CONVERSION FLAGS @Z40LB22 06791200 SPACE 1 @Z40LB22 06791300 * BLOCK DATA SUB-STRUCTURE 1ST X (40) @Z40LB22 06791400 DC X'1000' BLOCK DATA FLAG @Z40LB22 06791500 DC H'04,216,07,08' LNG,OFST,PC,LNG @Z40LB22 06791600 DC X'8000' CONVERSION FLAGS @Z40LB22 06791800 * BLOCK DATA SUB-STRUCTURE 2ND X @Z40LB22 06792000 DC X'1000' BLOCK DATA FLAG @Z40LB22 06792200 DC H'04,220,16,08' LNG,OFST,PC,LNG @Z40LB22 06792400 DC X'8000' CONVERSION FLAGS @Z40LB22 06792600 * BLOCK DATA SUB-STRUCTURE 3RD X @Z40LB22 06792800 DC X'1000' BLOCK DATA FLAG @Z40LB22 06793100 DC H'04,224,25,08' LNG,OFST,PC,LNG @Z40LB22 06793200 DC X'8000' CONVERSION FLAGS @Z40LB22 06793400 * BLOCK DATA SUB-STRUCTURE 4TH X @Z40LB22 06794700 DC X'1000' BLOCK DATA FLAG @Z40LB22 06796700 DC H'04,228,34,08' LNG,OFST,PC,LNG @Z40LB22 06797100 DC X'8000' CONVERSION FLAGS @Z40LB22 06797500 * BLOCK DATA SUB-STRUCTURE 5TH X @Z40LB22 06797600 DC X'1000' BLOCK DATA FLAG @Z40LB22 06797700 DC H'04,232,45,08' LNG,OFST,PC,LNG @Z40LB22 06800300 DC X'8000' CONVERSION FLAGS @Z40LB22 06802300 * BLOCK DATA SUB-STRUCTURE 6TH X @Z40LB22 06802700 DC X'1000' BLOCK DATA FLAG @Z40LB22 06803100 DC H'04,236,54,08' LNG,OFST,PC,LNG @Z40LB22 06803500 DC X'8000' CONVERSION FLAGS @Z40LB22 06804200 * BLOCK DATA SUB-STRUCTURE 7TH X @Z40LB22 06804600 DC X'1000' BLOCK DATA FLAG @Z40LB22 06805000 DC H'04,240,63,08' LNG,OFST,PC,LNG @Z40LB22 06805400 DC X'8000' CONVERSION FLAGS @Z40LB22 06805500 * BLOCK DATA SUB-STRUCTURE 8TH X @Z40LB22 06806300 DC X'1000' BLOCK DATA FLAG @Z40LB22 06806700 DC H'04,244,72,08' LNG,OFST,PC,LNG @Z40LB22 06807100 DC X'8000' CONVERSION FLAGS @Z40LB22 06807500 * SPACING CONTROL SUB-STRUCTURE . (40) @Z40LB22 06807600 DC X'4000' SPACE CONTROL FLAG @Z40LB22 06807700 DC H'1' SPACING FACTOR @Z40LB22 06807800 DC C'R ' SPACING TYPE @Z40LB22 06808400 SPACE 1 @Z40LB22 06808800 * BLOCK DATA SUB-STRUCTURE 1ST . @Z40LB22 06809200 DC X'1000' BLOCK DATA FLAG @Z40LB22 06809600 DC H'08,248,07,08' LNG,OFST,PC,LNG @Z40LB22 06809700 DC X'0000' CONVERSION FLAGS @Z40LB22 06809800 * BLOCK DATA SUB-STRUCTURE 2ND . @Z40LB22 06809900 DC X'1000' BLOCK DATA FLAG @Z40LB22 06810200 DC H'08,256,16,08' LNG,OFST,PC,LNG @Z40LB22 06810600 DC X'0000' CONVERSION FLAGS @Z40LB22 06810700 * BLOCK DATA SUB-STRUCTURE 3RD . @Z40LB22 06810800 DC X'1000' BLOCK DATA FLAG @Z40LB22 06810900 DC H'08,264,25,08' LNG,OFST,PC,LNG @Z40LB22 06811000 DC X'0000' CONVERSION FLAGS @Z40LB22 06837600 * BLOCK DATA SUB-STRUCTURE 4TH . @Z40LB22 06847600 DC X'1000' BLOCK DATA FLAG @Z40LB22 06857600 DC H'08,272,34,08' LNG,OFST,PC,LNG @Z40LB22 06859600 DC X'0000' CONVERSION FLAGS @Z40LB22 06861600 * BLOCK DATA SUB-STRUCTURE 5TH . @Z40LB22 06863600 DC X'1000' BLOCK DATA FLAG @Z40LB22 06864000 DC H'08,280,45,08' LNG,OFST,PC,LNG @Z40LB22 06864100 DC X'0000' CONVERSION FLAGS @Z40LB22 06864200 * BLOCK DATA SUB-STRUCTURE 6TH . @Z40LB22 06864300 DC X'1000' BLOCK DATA FLAG @Z40LB22 06873200 DC H'08,288,54,08' LNG,OFST,PC,LNG @Z40LB22 06875200 DC X'0000' CONVERSION FLAGS @Z40LB22 06877200 * BLOCK DATA SUB-STRUCTURE 7TH . @Z40LB22 06879200 DC X'1000' BLOCK DATA FLAG @Z40LB22 06881200 DC H'08,296,63,08' LNG,OFST,PC,LNG @Z40LB22 06881600 DC X'0000' CONVERSION FLAGS @Z40LB22 06882000 * BLOCK DATA SUB-STRUCTURE 8TH . @Z40LB22 06890900 DC X'1000' BLOCK DATA FLAG @Z40LB22 06892900 DC H'08,304,72,08' LNG,OFST,PC,LNG @Z40LB22 06894900 DC X'0000' CONVERSION FLAGS @Z40LB22 06896900 SPACE 1 @Z40LB22 06897300 * SPACING CONTROL SUB-STRUCTURE (60) @Z40LB22 06898900 DC X'4000' SPACE CONTROL FLAG @Z40LB22 06899300 DC H'2' SPACING FACTOR @Z40LB22 06899700 DC C'R ' SPACING TYPE @Z40LB22 06908600 SPACE 1 @Z40LB22 06910600 * STATIC TEXT SUB-STRUCTURE @Z40LB22 06912600 DC X'0400' STATIC TEXT FLAG @Z40LB22 06914600 DC Y(STE61L-STE61K) TEXT LENGTH @Z40LB22 06916600 DC Y(STE61K-TXT6A) TEXT OFFSET @Z40LB22 06917000 DC H'1' PRINT COLUMN @Z40LB22 06917400 DC Y(STE61L-STE61K) PRINT FIELD LENGTH @Z40LB22 06917500 DC H'0' CONVERSION FLAGS @Z40LB22 06926300 SPACE 1 @Z40LB22 06928300 * BLOCK DATA SUB-STRUCTURE 1ST X (60) @Z40LB22 06930300 DC X'1000' BLOCK DATA FLAG @Z40LB22 06932300 DC H'04,312,07,08' LNG,OFST,PC,LNG @Z40LB22 06934300 DC X'8000' CONVERSION FLAGS @Z40LB22 06934700 * BLOCK DATA SUB-STRUCTURE 2ND X @Z40LB22 06935100 DC X'1000' BLOCK DATA FLAG @Z40LB22 06935500 DC H'04,316,16,08' LNG,OFST,PC,LNG @Z40LB22 06938400 DC X'8000' CONVERSION FLAGS @Z40LB22 06940400 * BLOCK DATA SUB-STRUCTURE 3RD X @Z40LB22 06942400 DC X'1000' BLOCK DATA FLAG @Z40LB22 06942800 DC H'04,320,25,08' LNG,OFST,PC,LNG @Z40LB22 06943200 DC X'8000' CONVERSION FLAGS @Z40LB22 06943600 * BLOCK DATA SUB-STRUCTURE 4TH X @Z40LB22 06944000 DC X'1000' BLOCK DATA FLAG @Z40LB22 06944100 DC H'04,324,34,08' LNG,OFST,PC,LNG @Z40LB22 06951700 DC X'8000' CONVERSION FLAGS @Z40LB22 06953700 * BLOCK DATA SUB-STRUCTURE 5TH X @Z40LB22 06955700 DC X'1000' BLOCK DATA FLAG @Z40LB22 06957700 DC H'04,328,45,08' LNG,OFST,PC,LNG @Z40LB22 06958100 DC X'8000' CONVERSION FLAGS @Z40LB22 06958500 * BLOCK DATA SUB-STRUCTURE 6TH X @Z40LB22 06958900 DC X'1000' BLOCK DATA FLAG @Z40LB22 06959300 DC H'04,332,54,08' LNG,OFST,PC,LNG @Z40LB22 06960200 DC X'8000' CONVERSION FLAGS @Z40LB22 06960600 * BLOCK DATA SUB-STRUCTURE 7TH X @Z40LB22 06961000 DC X'1000' BLOCK DATA FLAG @Z40LB22 06961400 DC H'04,336,63,08' LNG,OFST,PC,LNG @Z40LB22 06961800 DC X'8000' CONVERSION FLAGS @Z40LB22 06961900 * BLOCK DATA SUB-STRUCTURE 8TH X @Z40LB22 06964100 DC X'1000' BLOCK DATA FLAG @Z40LB22 06966100 DC H'04,340,72,08' LNG,OFST,PC,LNG @Z40LB22 06968100 DC X'8000' CONVERSION FLAGS @Z40LB22 06968500 * SPACING CONTROL SUB-STRUCTURE . (60) @Z40LB22 06975400 DC X'4000' SPACE CONTROL FLAG @Z40LB22 06977400 DC H'1' SPACING FACTOR @Z40LB22 06979400 DC C'R ' SPACING TYPE @Z40LB22 06981400 SPACE 1 @Z40LB22 06981800 * BLOCK DATA SUB-STRUCTURE 1ST . @Z40LB22 06982200 DC X'1000' BLOCK DATA FLAG @Z40LB22 06982300 DC H'08,344,07,08' LNG,OFST,PC,LNG @Z40LB22 06982400 DC X'0000' CONVERSION FLAGS @Z40LB22 06982500 * BLOCK DATA SUB-STRUCTURE 2ND . @Z40LB22 06984300 DC X'1000' BLOCK DATA FLAG @Z40LB22 06986300 DC H'08,352,16,08' LNG,OFST,PC,LNG @Z40LB22 06986700 DC X'0000' CONVERSION FLAGS @Z40LB22 06987100 * BLOCK DATA SUB-STRUCTURE 3RD . @Z40LB22 06987500 DC X'1000' BLOCK DATA FLAG @Z40LB22 06987900 DC H'08,360,25,08' LNG,OFST,PC,LNG @Z40LB22 06988400 DC X'0000' CONVERSION FLAGS @Z40LB22 06988800 * BLOCK DATA SUB-STRUCTURE 4TH . @Z40LB22 06989200 DC X'1000' BLOCK DATA FLAG @Z40LB22 06989300 DC H'08,368,34,08' LNG,OFST,PC,LNG @Z40LB22 06989400 DC X'0000' CONVERSION FLAGS @Z40LB22 06991000 * BLOCK DATA SUB-STRUCTURE 5TH . @Z40LB22 06993000 DC X'1000' BLOCK DATA FLAG @Z40LB22 06993400 DC H'08,376,45,08' LNG,OFST,PC,LNG @Z40LB22 06993800 DC X'0000' CONVERSION FLAGS @Z40LB22 06993900 * BLOCK DATA SUB-STRUCTURE 6TH . @Z40LB22 06994000 DC X'1000' BLOCK DATA FLAG @Z40LB22 06994100 DC H'08,384,54,08' LNG,OFST,PC,LNG @Z40LB22 06994600 DC X'0000' CONVERSION FLAGS @Z40LB22 06995000 * BLOCK DATA SUB-STRUCTURE 7TH . @Z40LB22 06995400 DC X'1000' BLOCK DATA FLAG @Z40LB22 06995800 DC H'08,392,63,08' LNG,OFST,PC,LNG @Z40LB22 07001800 DC X'0000' CONVERSION FLAGS @Z40LB22 07003800 * BLOCK DATA SUB-STRUCTURE 8TH . @Z40LB22 07005800 DC X'1000' BLOCK DATA FLAG @Z40LB22 07007800 DC H'08,400,72,08' LNG,OFST,PC,LNG @Z40LB22 07008200 DC X'0000' CONVERSION FLAGS @Z40LB22 07008300 SPACE 1 @Z40LB22 07008400 * SPACING CONTROL SUB-STRUCTURE (80) @Z40LB22 07008500 DC X'4000' SPACE CONTROL FLAG @Z40LB22 07015300 DC H'2' SPACING FACTOR @Z40LB22 07017300 DC C'R ' SPACING TYPE @Z40LB22 07019300 SPACE 1 @Z40LB22 07021300 * STATIC TEXT SUB-STRUCTURE @Z40LB22 07021700 DC X'0400' STATIC TEXT FLAG @Z40LB22 07022100 DC Y(STE61N-STE61M) TEXT LENGTH @Z40LB22 07022500 DC Y(STE61M-TXT6A) TEXT OFFSET @Z40LB22 07022600 DC H'1' PRINT COLUMN @Z40LB22 07022700 DC Y(STE61N-STE61M) PRINT FIELD LENGTH @Z40LB22 07024000 DC H'0' CONVERSION FLAGS @Z40LB22 07026000 SPACE 1 @Z40LB22 07026400 * BLOCK DATA SUB-STRUCTURE 1ST X (80) @Z40LB22 07026500 DC X'1000' BLOCK DATA FLAG @Z40LB22 07028000 DC H'04,408,07,08' LNG,OFST,PC,LNG @Z40LB22 07030000 DC X'8000' CONVERSION FLAGS @Z40LB22 07030400 * BLOCK DATA SUB-STRUCTURE 2ND X @Z40LB22 07030800 DC X'1000' BLOCK DATA FLAG @Z40LB22 07030900 DC H'04,412,16,08' LNG,OFST,PC,LNG @Z40LB22 07031000 DC X'8000' CONVERSION FLAGS @Z40LB22 07032500 * BLOCK DATA SUB-STRUCTURE 3RD X @Z40LB22 07034500 DC X'1000' BLOCK DATA FLAG @Z40LB22 07034900 DC H'04,416,25,08' LNG,OFST,PC,LNG @Z40LB22 07035300 DC X'8000' CONVERSION FLAGS @Z40LB22 07035400 * BLOCK DATA SUB-STRUCTURE 4TH X @Z40LB22 07035500 DC X'1000' BLOCK DATA FLAG @Z40LB22 07035800 DC H'04,420,34,08' LNG,OFST,PC,LNG @Z40LB22 07036200 DC X'8000' CONVERSION FLAGS @Z40LB22 07036300 * BLOCK DATA SUB-STRUCTURE 5TH X @Z40LB22 07037600 DC X'1000' BLOCK DATA FLAG @Z40LB22 07039600 DC H'04,424,45,08' LNG,OFST,PC,LNG @Z40LB22 07040000 DC X'8000' CONVERSION FLAGS @Z40LB22 07040400 * BLOCK DATA SUB-STRUCTURE 6TH X @Z40LB22 07040500 DC X'1000' BLOCK DATA FLAG @Z40LB22 07040600 DC H'04,428,54,08' LNG,OFST,PC,LNG @Z40LB22 07041200 DC X'8000' CONVERSION FLAGS @Z40LB22 07041600 * BLOCK DATA SUB-STRUCTURE 7TH X @Z40LB22 07042000 DC X'1000' BLOCK DATA FLAG @Z40LB22 07042400 DC H'04,432,63,08' LNG,OFST,PC,LNG @Z40LB22 07042500 DC X'8000' CONVERSION FLAGS @Z40LB22 07043600 * BLOCK DATA SUB-STRUCTURE 8TH X @Z40LB22 07045600 DC X'1000' BLOCK DATA FLAG @Z40LB22 07046000 DC H'04,436,72,08' LNG,OFST,PC,LNG @Z40LB22 07046100 DC X'8000' CONVERSION FLAGS @Z40LB22 07046700 * SPACING CONTROL SUB-STRUCTURE . (80) @Z40LB22 07047100 DC X'4000' SPACE CONTROL FLAG @Z40LB22 07047500 DC H'1' SPACING FACTOR @Z40LB22 07047900 DC C'R ' SPACING TYPE @Z40LB22 07048000 SPACE 1 @Z40LB22 07048100 * BLOCK DATA SUB-STRUCTURE 1ST . @Z40LB22 07048200 DC X'1000' BLOCK DATA FLAG @Z40LB22 07048300 DC H'08,440,07,08' LNG,OFST,PC,LNG @Z40LB22 07048500 DC X'0000' CONVERSION FLAGS @Z40LB22 07048900 * BLOCK DATA SUB-STRUCTURE 2ND . @Z40LB22 07049000 DC X'1000' BLOCK DATA FLAG @Z40LB22 07049100 DC H'08,448,16,08' LNG,OFST,PC,LNG @Z40LB22 07049200 DC X'0000' CONVERSION FLAGS @Z40LB22 07052600 * BLOCK DATA SUB-STRUCTURE 3RD . @Z40LB22 07054600 DC X'1000' BLOCK DATA FLAG @Z40LB22 07055000 DC H'08,456,25,08' LNG,OFST,PC,LNG @Z40LB22 07055400 DC X'0000' CONVERSION FLAGS @Z40LB22 07055800 * BLOCK DATA SUB-STRUCTURE 4TH . @Z40LB22 07056200 DC X'1000' BLOCK DATA FLAG @Z40LB22 07056300 DC H'08,464,34,08' LNG,OFST,PC,LNG @Z40LB22 07056400 DC X'0000' CONVERSION FLAGS @Z40LB22 07056500 * BLOCK DATA SUB-STRUCTURE 5TH . @Z40LB22 07056600 DC X'1000' BLOCK DATA FLAG @Z40LB22 07056700 DC H'08,472,45,08' LNG,OFST,PC,LNG @Z40LB22 07058000 DC X'0000' CONVERSION FLAGS @Z40LB22 07060000 * BLOCK DATA SUB-STRUCTURE 6TH . @Z40LB22 07060400 DC X'1000' BLOCK DATA FLAG @Z40LB22 07060800 DC H'08,480,54,08' LNG,OFST,PC,LNG @Z40LB22 07060900 DC X'0000' CONVERSION FLAGS @Z40LB22 07061500 * BLOCK DATA SUB-STRUCTURE 7TH . @Z40LB22 07061900 DC X'1000' BLOCK DATA FLAG @Z40LB22 07062300 DC H'08,488,63,08' LNG,OFST,PC,LNG @Z40LB22 07062700 DC X'0000' CONVERSION FLAGS @Z40LB22 07063800 * BLOCK DATA SUB-STRUCTURE 8TH . @Z40LB22 07065800 DC X'1000' BLOCK DATA FLAG @Z40LB22 07065900 DC H'08,496,72,08' LNG,OFST,PC,LNG @Z40LB22 07066200 DC X'0000' CONVERSION FLAGS @Z40LB22 07066600 SPACE 1 @Z40LB22 07066700 * SPACING CONTROL SUB-STRUCTURE (A0) @Z40LB22 07067200 DC X'4000' SPACE CONTROL FLAG @Z40LB22 07067600 DC H'2' SPACING FACTOR @Z40LB22 07068000 DC C'R ' SPACING TYPE @Z40LB22 07068400 SPACE 1 @Z40LB22 07068500 * STATIC TEXT SUB-STRUCTURE @Z40LB22 07068600 DC X'0400' STATIC TEXT FLAG @Z40LB22 07068700 DC Y(STE61P-STE61O) TEXT LENGTH @Z40LB22 07069100 DC Y(STE61O-TXT6A) TEXT OFFSET @Z40LB22 07070000 DC H'1' PRINT COLUMN @Z40LB22 07070400 DC Y(STE61P-STE61O) PRINT FIELD LENGTH @Z40LB22 07070800 DC H'0' CONVERSION FLAGS @Z40LB22 07071200 SPACE 1 @Z40LB22 07071600 * BLOCK DATA SUB-STRUCTURE 1ST X (A0) @Z40LB22 07071700 DC X'1000' BLOCK DATA FLAG @Z40LB22 07072300 DC H'04,504,07,08' LNG,OFST,PC,LNG @Z40LB22 07072700 DC X'8000' CONVERSION FLAGS @Z40LB22 07073100 * BLOCK DATA SUB-STRUCTURE 2ND X @Z40LB22 07073500 DC X'1000' BLOCK DATA FLAG @Z40LB22 07073900 DC H'04,508,16,08' LNG,OFST,PC,LNG @Z40LB22 07074100 DC X'8000' CONVERSION FLAGS @Z40LB22 07074200 * BLOCK DATA SUB-STRUCTURE 3RD X @Z40LB22 07074300 DC X'1000' BLOCK DATA FLAG @Z40LB22 07074400 DC H'04,512,25,08' LNG,OFST,PC,LNG @Z40LB22 07074600 DC X'8000' CONVERSION FLAGS @Z40LB22 07074700 * BLOCK DATA SUB-STRUCTURE 4TH X @Z40LB22 07074800 DC X'1000' BLOCK DATA FLAG @Z40LB22 07074900 DC H'04,516,34,08' LNG,OFST,PC,LNG @Z40LB22 07075100 DC X'8000' CONVERSION FLAGS @Z40LB22 07075500 * BLOCK DATA SUB-STRUCTURE 5TH X @Z40LB22 07075600 DC X'1000' BLOCK DATA FLAG @Z40LB22 07075700 DC H'04,520,45,08' LNG,OFST,PC,LNG @Z40LB22 07077400 DC X'8000' CONVERSION FLAGS @Z40LB22 07079400 * BLOCK DATA SUB-STRUCTURE 6TH X @Z40LB22 07079800 DC X'1000' BLOCK DATA FLAG @Z40LB22 07079900 DC H'04,524,54,08' LNG,OFST,PC,LNG @Z40LB22 07080000 DC X'8000' CONVERSION FLAGS @Z40LB22 07080100 * BLOCK DATA SUB-STRUCTURE 7TH X @Z40LB22 07080200 DC X'1000' BLOCK DATA FLAG @Z40LB22 07080300 DC H'04,528,63,08' LNG,OFST,PC,LNG @Z40LB22 07081000 DC X'8000' CONVERSION FLAGS @Z40LB22 07081400 * BLOCK DATA SUB-STRUCTURE 8TH X @Z40LB22 07081800 DC X'1000' BLOCK DATA FLAG @Z40LB22 07082200 DC H'04,532,72,08' LNG,OFST,PC,LNG @Z40LB22 07082300 DC X'8000' CONVERSION FLAGS @Z40LB22 07082600 * SPACING CONTROL SUB-STRUCTURE . (A0) @Z40LB22 07083000 DC X'4000' SPACE CONTROL FLAG @Z40LB22 07083100 DC H'1' SPACING FACTOR @Z40LB22 07083200 DC C'R ' SPACING TYPE @Z40LB22 07083700 SPACE 1 @Z40LB22 07084100 * BLOCK DATA SUB-STRUCTURE 1ST . @Z40LB22 07084500 DC X'1000' BLOCK DATA FLAG @Z40LB22 07084900 DC H'08,536,07,08' LNG,OFST,PC,LNG @Z40LB22 07085000 DC X'0000' CONVERSION FLAGS @Z40LB22 07085100 * BLOCK DATA SUB-STRUCTURE 2ND . @Z40LB22 07085200 DC X'1000' BLOCK DATA FLAG @Z40LB22 07085500 DC H'08,544,16,08' LNG,OFST,PC,LNG @Z40LB22 07085900 DC X'0000' CONVERSION FLAGS @Z40LB22 07086000 * BLOCK DATA SUB-STRUCTURE 3RD . @Z40LB22 07086100 DC X'1000' BLOCK DATA FLAG @Z40LB22 07087000 DC H'08,552,25,08' LNG,OFST,PC,LNG @Z40LB22 07089000 DC X'0000' CONVERSION FLAGS @Z40LB22 07089400 * BLOCK DATA SUB-STRUCTURE 4TH . @Z40LB22 07089800 DC X'1000' BLOCK DATA FLAG @Z40LB22 07090200 DC H'08,560,34,08' LNG,OFST,PC,LNG @Z40LB22 07090300 DC X'0000' CONVERSION FLAGS @Z40LB22 07090800 * BLOCK DATA SUB-STRUCTURE 5TH . @Z40LB22 07091200 DC X'1000' BLOCK DATA FLAG @Z40LB22 07091600 DC H'08,568,45,08' LNG,OFST,PC,LNG @Z40LB22 07092000 DC X'0000' CONVERSION FLAGS @Z40LB22 07092100 * BLOCK DATA SUB-STRUCTURE 6TH . @Z40LB22 07092200 DC X'1000' BLOCK DATA FLAG @Z40LB22 07092400 DC H'08,576,54,08' LNG,OFST,PC,LNG @Z40LB22 07092500 DC X'0000' CONVERSION FLAGS @Z40LB22 07092600 * BLOCK DATA SUB-STRUCTURE 7TH . @Z40LB22 07092700 DC X'1000' BLOCK DATA FLAG @Z40LB22 07093000 DC H'08,584,63,08' LNG,OFST,PC,LNG @Z40LB22 07093400 DC X'0000' CONVERSION FLAGS @Z40LB22 07093800 * BLOCK DATA SUB-STRUCTURE 8TH . @Z40LB22 07093900 DC X'1000' BLOCK DATA FLAG @Z40LB22 07094000 DC H'08,592,72,08' LNG,OFST,PC,LNG @Z40LB22 07094400 DC X'0000' CONVERSION FLAGS @Z40LB22 07094500 SPACE 1 @Z40LB22 07094700 * SPACING CONTROL SUB-STRUCTURE (C0) @Z40LB22 07095100 DC X'4000' SPACE CONTROL FLAG @Z40LB22 07095500 DC H'2' SPACING FACTOR @Z40LB22 07095600 DC C'R ' SPACING TYPE @Z40LB22 07095700 SPACE 1 @Z40LB22 07095900 * STATIC TEXT SUB-STRUCTURE @Z40LB22 07096300 DC X'0400' STATIC TEXT FLAG @Z40LB22 07096700 DC Y(STE61R-STE61Q) TEXT LENGTH @Z40LB22 07097100 DC Y(STE61Q-TXT6A) TEXT OFFSET @Z40LB22 07097200 DC H'1' PRINT COLUMN @Z40LB22 07097300 DC Y(STE61R-STE61Q) PRINT FIELD LENGTH @Z40LB22 07097400 DC H'0' CONVERSION FLAGS @Z40LB22 07097700 SPACE 1 @Z40LB22 07098100 * BLOCK DATA SUB-STRUCTURE 1ST X (C0) @Z40LB22 07098500 DC X'1000' BLOCK DATA FLAG @Z40LB22 07098900 DC H'04,600,07,08' LNG,OFST,PC,LNG @Z40LB22 07099300 DC X'8000' CONVERSION FLAGS @Z40LB22 07099400 * BLOCK DATA SUB-STRUCTURE 2ND X @Z40LB22 07099500 DC X'1000' BLOCK DATA FLAG @Z40LB22 07099900 DC H'04,604,16,08' LNG,OFST,PC,LNG @Z40LB22 07100000 DC X'8000' CONVERSION FLAGS @Z40LB22 07100400 * BLOCK DATA SUB-STRUCTURE 3RD X @Z40LB22 07100500 DC X'1000' BLOCK DATA FLAG @Z40LB22 07100600 DC H'04,608,25,08' LNG,OFST,PC,LNG @Z40LB22 07100700 DC X'8000' CONVERSION FLAGS @Z40LB22 07101100 * BLOCK DATA SUB-STRUCTURE 4TH X @Z40LB22 07101500 DC X'1000' BLOCK DATA FLAG @Z40LB22 07101900 DC H'04,612,34,08' LNG,OFST,PC,LNG @Z40LB22 07102000 DC X'8000' CONVERSION FLAGS @Z40LB22 07102100 * BLOCK DATA SUB-STRUCTURE 5TH X @Z40LB22 07102200 DC X'1000' BLOCK DATA FLAG @Z40LB22 07105600 DC H'04,616,45,08' LNG,OFST,PC,LNG @Z40LB22 07107600 DC X'8000' CONVERSION FLAGS @Z40LB22 07108000 * BLOCK DATA SUB-STRUCTURE 6TH X @Z40LB22 07108400 DC X'1000' BLOCK DATA FLAG @Z40LB22 07108800 DC H'04,620,54,08' LNG,OFST,PC,LNG @Z40LB22 07108900 DC X'8000' CONVERSION FLAGS @Z40LB22 07109800 * BLOCK DATA SUB-STRUCTURE 7TH X @Z40LB22 07110200 DC X'1000' BLOCK DATA FLAG @Z40LB22 07110600 DC H'04,624,63,08' LNG,OFST,PC,LNG @Z40LB22 07111000 DC X'8000' CONVERSION FLAGS @Z40LB22 07111400 * BLOCK DATA SUB-STRUCTURE 8TH X @Z40LB22 07111500 DC X'1000' BLOCK DATA FLAG @Z40LB22 07111600 DC H'04,628,72,08' LNG,OFST,PC,LNG @Z40LB22 07111800 DC X'8000' CONVERSION FLAGS @Z40LB22 07112200 * SPACING CONTROL SUB-STRUCTURE . (C0) @Z40LB22 07112300 DC X'4000' SPACE CONTROL FLAG @Z40LB22 07112800 DC H'1' SPACING FACTOR @Z40LB22 07113200 DC C'R ' SPACING TYPE @Z40LB22 07113600 SPACE 1 @Z40LB22 07114000 * BLOCK DATA SUB-STRUCTURE 1ST . @Z40LB22 07114500 DC X'1000' BLOCK DATA FLAG @Z40LB22 07114900 DC H'08,632,07,08' LNG,OFST,PC,LNG @Z40LB22 07115300 DC X'0000' CONVERSION FLAGS @Z40LB22 07115400 * BLOCK DATA SUB-STRUCTURE 2ND . @Z40LB22 07115500 DC X'1000' BLOCK DATA FLAG @Z40LB22 07115600 DC H'08,640,16,08' LNG,OFST,PC,LNG @Z40LB22 07115700 DC X'0000' CONVERSION FLAGS @Z40LB22 07116600 * BLOCK DATA SUB-STRUCTURE 3RD . @Z40LB22 07118600 DC X'1000' BLOCK DATA FLAG @Z40LB22 07118700 DC H'08,648,25,08' LNG,OFST,PC,LNG @Z40LB22 07118800 DC X'0000' CONVERSION FLAGS @Z40LB22 07118900 * BLOCK DATA SUB-STRUCTURE 4TH . @Z40LB22 07119000 DC X'1000' BLOCK DATA FLAG @Z40LB22 07119100 DC H'08,656,34,08' LNG,OFST,PC,LNG @Z40LB22 07120300 DC X'0000' CONVERSION FLAGS @Z40LB22 07122300 * BLOCK DATA SUB-STRUCTURE 5TH . @Z40LB22 07122700 DC X'1000' BLOCK DATA FLAG @Z40LB22 07123100 DC H'08,664,45,08' LNG,OFST,PC,LNG @Z40LB22 07123600 DC X'0000' CONVERSION FLAGS @Z40LB22 07124000 * BLOCK DATA SUB-STRUCTURE 6TH . @Z40LB22 07124400 DC X'1000' BLOCK DATA FLAG @Z40LB22 07124800 DC H'08,672,54,08' LNG,OFST,PC,LNG @Z40LB22 07124900 DC X'0000' CONVERSION FLAGS @Z40LB22 07125000 * BLOCK DATA SUB-STRUCTURE 7TH . @Z40LB22 07125400 DC X'1000' BLOCK DATA FLAG @Z40LB22 07125900 DC H'08,680,63,08' LNG,OFST,PC,LNG @Z40LB22 07126300 DC X'0000' CONVERSION FLAGS @Z40LB22 07126700 * BLOCK DATA SUB-STRUCTURE 8TH . @Z40LB22 07126800 DC X'1000' BLOCK DATA FLAG @Z40LB22 07127000 DC H'08,688,72,08' LNG,OFST,PC,LNG @Z40LB22 07127400 DC X'0000' CONVERSION FLAGS @Z40LB22 07127500 SPACE 1 @Z40LB22 07127600 * SPACING CONTROL SUB-STRUCTURE (E0) @Z40LB22 07127700 DC X'4000' SPACE CONTROL FLAG @Z40LB22 07127900 DC H'2' SPACING FACTOR @Z40LB22 07128300 DC C'R ' SPACING TYPE @Z40LB22 07128400 SPACE 1 @Z40LB22 07128500 * STATIC TEXT SUB-STRUCTURE @Z40LB22 07128600 DC X'0400' STATIC TEXT FLAG @Z40LB22 07178600 DC Y(STE61T-STE61S) TEXT LENGTH @Z40LB22 07188600 DC Y(STE61S-TXT6A) TEXT OFFSET @Z40LB22 07198600 DC H'1' PRINT COLUMN @Z40LB22 07208600 DC Y(STE61T-STE61S) PRINT FIELD LENGTH @Z40LB22 07218600 DC H'0' CONVERSION FLAGS @Z40LB22 07220600 SPACE 1 @Z40LB22 07222600 * BLOCK DATA SUB-STRUCTURE 1ST X (E0) @Z40LB22 07224600 DC X'1000' BLOCK DATA FLAG @Z40LB22 07226600 DC H'04,696,07,08' LNG,OFST,PC,LNG @Z40LB22 07227000 DC X'8000' CONVERSION FLAGS @Z40LB22 07227400 * BLOCK DATA SUB-STRUCTURE 2ND X @Z40LB22 07227800 DC X'1000' BLOCK DATA FLAG @Z40LB22 07228200 DC H'04,700,16,08' LNG,OFST,PC,LNG @Z40LB22 07228300 DC X'8000' CONVERSION FLAGS @Z40LB22 07228400 * BLOCK DATA SUB-STRUCTURE 3RD X @Z40LB22 07228500 DC X'1000' BLOCK DATA FLAG @Z40LB22 07245200 DC H'04,704,25,08' LNG,OFST,PC,LNG @Z40LB22 07255200 DC X'8000' CONVERSION FLAGS @Z40LB22 07257200 * BLOCK DATA SUB-STRUCTURE 4TH X @Z40LB22 07259200 DC X'1000' BLOCK DATA FLAG @Z40LB22 07261200 DC H'04,708,34,08' LNG,OFST,PC,LNG @Z40LB22 07261600 DC X'8000' CONVERSION FLAGS @Z40LB22 07261700 * BLOCK DATA SUB-STRUCTURE 5TH X @Z40LB22 07261800 DC X'1000' BLOCK DATA FLAG @Z40LB22 07267400 DC H'04,712,45,08' LNG,OFST,PC,LNG @Z40LB22 07269400 DC X'8000' CONVERSION FLAGS @Z40LB22 07271400 * BLOCK DATA SUB-STRUCTURE 6TH X @Z40LB22 07271800 DC X'1000' BLOCK DATA FLAG @Z40LB22 07272200 DC H'04,716,54,08' LNG,OFST,PC,LNG @Z40LB22 07272600 DC X'8000' CONVERSION FLAGS @Z40LB22 07272700 * BLOCK DATA SUB-STRUCTURE 7TH X @Z40LB22 07272800 DC X'1000' BLOCK DATA FLAG @Z40LB22 07272900 DC H'04,720,63,08' LNG,OFST,PC,LNG @Z40LB22 07286800 DC X'8000' CONVERSION FLAGS @Z40LB22 07296800 * BLOCK DATA SUB-STRUCTURE 8TH X @Z40LB22 07298800 DC X'1000' BLOCK DATA FLAG @Z40LB22 07299200 DC H'04,724,72,08' LNG,OFST,PC,LNG @Z40LB22 07299600 DC X'8000' CONVERSION FLAGS @Z40LB22 07300000 * SPACING CONTROL SUB-STRUCTURE . (E0) @Z40LB22 07300400 DC X'4000' SPACE CONTROL FLAG @Z40LB22 07300500 DC H'1' SPACING FACTOR @Z40LB22 07300600 DC C'R ' SPACING TYPE @Z40LB22 07300700 SPACE 1 @Z40LB22 07305300 * BLOCK DATA SUB-STRUCTURE 1ST . @Z40LB22 07307300 DC X'1000' BLOCK DATA FLAG @Z40LB22 07309300 DC H'08,728,07,08' LNG,OFST,PC,LNG @Z40LB22 07309700 DC X'0000' CONVERSION FLAGS @Z40LB22 07309800 * BLOCK DATA SUB-STRUCTURE 2ND . @Z40LB22 07309900 DC X'1000' BLOCK DATA FLAG @Z40LB22 07310000 DC H'08,736,16,08' LNG,OFST,PC,LNG @Z40LB22 07314600 DC X'0000' CONVERSION FLAGS @Z40LB22 07316600 * BLOCK DATA SUB-STRUCTURE 3RD . @Z40LB22 07318600 DC X'1000' BLOCK DATA FLAG @Z40LB22 07319000 DC H'08,744,25,08' LNG,OFST,PC,LNG @Z40LB22 07319100 DC X'0000' CONVERSION FLAGS @Z40LB22 07319200 * BLOCK DATA SUB-STRUCTURE 4TH . @Z40LB22 07319300 DC X'1000' BLOCK DATA FLAG @Z40LB22 07331100 DC H'08,752,34,08' LNG,OFST,PC,LNG @Z40LB22 07341100 DC X'0000' CONVERSION FLAGS @Z40LB22 07343100 * BLOCK DATA SUB-STRUCTURE 5TH . @Z40LB22 07347000 DC X'1000' BLOCK DATA FLAG @Z40LB22 07349000 DC H'08,760,45,08' LNG,OFST,PC,LNG @Z40LB22 07351000 DC X'0000' CONVERSION FLAGS @Z40LB22 07354900 * BLOCK DATA SUB-STRUCTURE 6TH . @Z40LB22 07356900 DC X'1000' BLOCK DATA FLAG @Z40LB22 07358900 DC H'08,768,54,08' LNG,OFST,PC,LNG @Z40LB22 07362800 DC X'0000' CONVERSION FLAGS @Z40LB22 07364800 * BLOCK DATA SUB-STRUCTURE 7TH . @Z40LB22 07366800 DC X'1000' BLOCK DATA FLAG @Z40LB22 07377100 DC H'08,776,63,08' LNG,OFST,PC,LNG @Z40LB22 07387100 DC X'0000' CONVERSION FLAGS @Z40LB22 07387200 * BLOCK DATA SUB-STRUCTURE 8TH . @Z40LB22 07387300 DC X'9000' BLOCK DATA FLAG @Z40LB22 07390700 DC H'08,784,72,08' LNG,OFST,PC,LNG @Z40LB22 07392700 DC X'0000' CONVERSION FLAGS @Z40LB22 07393100 * STATIC TEXT ENTRIES @Z40LB22 07394300 STE61A DC C' PREFIX' @Z40LB22 07397700 STE61B EQU * @Z40LB22 07408000 STE61C DC C' RECORD' @Z40LB22 07418300 STE61D EQU * @Z40LB22 07428600 STE61E DC C' 00' @Z40LB22 07478600 STE61F EQU * @Z40LB22 07528600 STE61G DC C' 20' @Z40LB22 07578600 STE61H EQU * @Z40LB22 07628600 STE61I DC C' 40' @Z40LB22 07678600 STE61J EQU * @Z40LB22 07728600 STE61K DC C' 60' @Z40LB22 07778600 STE61L EQU * @Z40LB22 07828600 STE61M DC C' 80' @Z40LB22 07878600 STE61N EQU * @Z40LB22 07928600 STE61O DC C' A0' @Z40LB22 07978600 STE61P EQU * @Z40LB22 08028600 STE61Q DC C' C0' @Z40LB22 08078600 STE61R EQU * @Z40LB22 08128600 STE61S DC C' E0' @Z40LB22 08178600 STE61T EQU * @Z40LB22 08228600 TXT6S EQU * @Z40LB22 08278600 EJECT @Z40LB22 08328600 END IDCTSCP0 @Z40LB65 08378600