* /* START OF SPECIFICATIONS **** @Z40LB64 00010003 *01* PROCESSOR = ASSEMBLER @Z40LB64 00020003 **** END OF SPECIFICATIONS ***/ @Z40LB64 00030003 ************************************************************ @Z40LB64 00040003 * * @Z40LB64 00050003 * MODULE NAME - IDCTSCH0 * @Z40LB64 00060003 * * @Z40LB64 00070003 * DESCRIPTIVE NAME - STATIC TEXT MODULE FOR THE * @Z40LB64 00080003 * CHECKMSS FUNCTION * @Z40LB64 00090003 * * @Z40LB64 00100003 * COPYRIGHT - NONE * @Z40LB64 00110003 * * @Z40LB64 00120003 * STATUS - RELEASE 0 LEVEL 2 * @ZA27324 00130000 * * @Z40LB64 00140003 * FUNCTION - CONTAINS NO EXECUTABLE CODE, ONLY STATIC * @Z40LB64 00150003 * TEXT FOR THE CHECKMSS FUNCTION. * @Z40LB64 00160003 * THIS MODULE IS LOADED BY IDCTP05 WHEN * @Z40LB64 00170003 * CHECKMSS STATIC TEXT IS REQUESTED. * @Z40LB64 00180003 * * @Z40LB64 00190003 * NOTES - NONE * @Z40LB64 00200003 * * @Z40LB64 00210003 * DEPENDENCIES - NONE * @Z40LB64 00220003 * RESTRICTIONS - NONE * @Z40LB64 00230003 * REGISTER CONVENTIONS - NA * @Z40LB64 00240003 * PATCH AREA - NA * @Z40LB64 00250003 * * @Z40LB64 00260003 * MODULE TYPE - TABLES * @Z40LB64 00270003 * * @Z40LB64 00280003 * PROCESSOR - ASSEMBLER * @Z40LB64 00290003 * MODULE SIZE - 4000 BYTES * @Z40LB64 00300003 * ATTRIBUTES - READ-ONLY * @Z40LB64 00310003 * * @Z40LB64 00320003 * ENTRY POINT - NA * @Z40LB64 00330003 * * @Z40LB64 00340003 * EXIT NORMAL - NA * @Z40LB64 00350003 * * @Z40LB64 00360003 * EXIT ERROR - NA * @Z40LB64 00370003 * * @Z40LB64 00380003 * EXTERNAL REFERENCES - NA * @Z40LB64 00390003 * * @Z40LB64 00400003 * TABLES - NA * @Z40LB64 00410003 * * @Z40LB64 00420003 * MACROS - NA * @Z40LB64 00430003 * * @Z40LB64 00440003 * CHANGE ACTIVITY - AS FOLLOWS: * @ZA27324 00450000 * VS41107 * @VS41107 00452003 * CHANGE 02 10/06/77 - MSG IDC21125I FOR SA SUU OR OFFLINE * @ZA27324 00454000 * * @Z40LB64 00460003 ************************************************************ @Z40LB64 00470003 EJECT @Z40LB64 00480003 IDCTSCH0 CSECT @Z40LB64 00490003 SPACE 1 @Z40LB64 00500003 ************************************************************ @Z40LB64 00510003 * * @Z40LB64 00520003 * THIS SECTION CONTAINS THE INDICES TO REACH AN ENTRY. * @Z40LB64 00530003 * * @Z40LB64 00540003 ************************************************************ @Z40LB64 00550003 SPACE 1 @Z40LB64 00560003 INDEX DC H'125' STATIC TEXT ENTRY CNT @Z40LB64 00570003 SPACE 1 @Z40LB64 00580003 * PRIMARY MESSAGE STATIC TEXT ENTRIES @Z40LB64 00590003 SPACE 1 @Z40LB64 00600003 INDEX1 DC Y(TXT1-INDEX) INCONSISTENT FIELDS @Z40LB64 00610003 INDEX2 DC Y(TXT2-INDEX) DUPLICATE FIELDS @Z40LB64 00620003 INDEX3 DC Y(TXT3-INDEX) UNEQUAL SUMS @Z40LB64 00630003 INDEX4 DC Y(TXT4-INDEX) NO MATCHING ENTRY @Z40LB64 00640003 INDEX5 DC Y(TXT5-INDEX) SA SUU OR OFFLINE @ZA27324 00650000 INDEX6 DC Y(TXT6-INDEX) UNABLE TO READ MSC MAIN @ZA27324 00660000 INDEX7 DC Y(TXT7-INDEX) UNABLE TO READ SA WCS @ZA27324 00670000 INDEX8 DC H'-1' RESERVED @Z40LB64 00680003 INDEX9 DC H'-1' RESERVED @Z40LB64 00690003 INDEX10 DC H'-1' RESERVED @Z40LB64 00700003 INDEX11 DC H'-1' RESERVED @Z40LB64 00710003 INDEX12 DC H'-1' RESERVED @Z40LB64 00720003 INDEX13 DC H'-1' RESERVED @Z40LB64 00730003 INDEX14 DC H'-1' RESERVED @Z40LB64 00740003 SPACE 1 @Z40LB64 00750003 * PRIMARY MESSAGE CONTINUATION LINE STATIC TEXT ENTRIES @Z40LB64 00760003 SPACE 1 @Z40LB64 00770003 INDEX15 DC Y(TXT15-INDEX) UNEQUAL SUMS (LINE 2) @Z40LB64 00780003 INDEX16 DC Y(TXT16-INDEX) UNEQUAL SUMS (LINE 3) @Z40LB64 00790003 INDEX17 DC Y(TXT17-INDEX) NO MATCHING ENTRY (2) @Z40LB64 00800003 INDEX18 DC Y(TXT18-INDEX) NO MATCHING ENTRY (3) @Z40LB64 00810003 INDEX19 DC H'-1' RESERVED @Z40LB64 00820003 INDEX20 DC H'-1' RESERVED @Z40LB64 00830003 SPACE 1 @Z40LB64 00840003 * SECONDARY MESSAGE STATIC TEXT ENTRIES @Z40LB64 00850003 SPACE 1 @Z40LB64 00860003 INDEX21 DC Y(TXT21-INDEX) VALUE=AAA TABLE=BBB @Z40LB64 00870003 INDEX22 DC Y(TXT22-INDEX) (INDEX=CCC) @Z40LB64 00880003 INDEX23 DC Y(TXT23-INDEX) (INDEX=CCC,INDEX=CCC) @Z40LB64 00890003 INDEX24 DC Y(TXT24-INDEX) (INDEX=CCC,INDEX=CCC, @Z40LB64 00900003 * INDEX=CCC) @Z40LB64 00910003 INDEX25 DC Y(TXT25-INDEX) (INDEX=CCC,INDEX=CCC, @Z40LB64 00920003 * INDEX=CCC,INDEX=CCC) @Z40LB64 00930003 SPACE 1 @Z40LB64 00940003 * FIELD NAME STATIC TEXT ENTRIES @Z40LB64 00950003 SPACE 1 @Z40LB64 00960003 INDEX26 DC Y(TXT26-INDEX) VOLUME MOUNTED STATUS @Z40LB64 00970003 INDEX27 DC Y(TXT27-INDEX) VOLUME SECURE STATUS @Z40LB64 00980003 INDEX28 DC Y(TXT28-INDEX) VOL EXCLUSIVE STATUS @Z40LB64 00990003 INDEX29 DC Y(TXT29-INDEX) VOLUME BOUND STATUS @Z40LB64 01000003 INDEX30 DC Y(TXT30-INDEX) VOL RESERVED STATUS @Z40LB64 01010003 INDEX31 DC Y(TXT31-INDEX) WRITE INHIBIT STATUS @Z40LB64 01020003 INDEX32 DC Y(TXT32-INDEX) MSF IDENTIFIER @Z40LB64 01030003 INDEX33 DC Y(TXT33-INDEX) VOLUME SERIAL NUMBER @Z40LB64 01040003 INDEX34 DC Y(TXT34-INDEX) MANUFACTURER'S ID @Z40LB64 01050003 INDEX35 DC Y(TXT35-INDEX) VIRTUAL VOL ADDRESS @Z40LB64 01060003 INDEX36 DC Y(TXT36-INDEX) VIRTUAL PAGE @Z40LB64 01070003 INDEX37 DC Y(TXT37-INDEX) REAL UNIT ADDRESS @Z40LB64 01080003 INDEX38 DC Y(TXT38-INDEX) STAGING ADAPTER ID @Z40LB64 01090003 INDEX39 DC Y(TXT39-INDEX) FREE PAGE STATUS @Z40LB64 01100003 INDEX40 DC Y(TXT40-INDEX) FREE PAGE COUNTS @Z40LB64 01110003 INDEX41 DC Y(TXT41-INDEX) ACTIVE PAGE COUNTS @Z40LB64 01120003 INDEX42 DC Y(TXT42-INDEX) INACTIVE PAGE COUNTS @Z40LB64 01130003 INDEX43 DC Y(TXT43-INDEX) BOUND PAGE COUNTS @Z40LB64 01140003 INDEX44 DC Y(TXT44-INDEX) MVT POINTER @Z40LB64 01150003 INDEX45 DC Y(TXT45-INDEX) CELL ADDRESS @Z40LB64 01160003 INDEX46 DC Y(TXT46-INDEX) CELL OCCUPIED STATUS @Z40LB64 01170003 INDEX47 DC Y(TXT47-INDEX) CPU IDENTIFIER @Z40LB64 01180003 INDEX48 DC Y(TXT48-INDEX) STAGING DRIVE GROUP @Z40LB64 01190003 INDEX49 DC Y(TXT49-INDEX) LOGICAL 3333 ADDRESS @Z40LB64 01200003 INDEX50 DC Y(TXT50-INDEX) CARTRIDGE SERIAL @Z40LB64 01210003 INDEX51 DC Y(TXT51-INDEX) LRU DELTAS @Z40LB64 01220003 INDEX52 DC Y(TXT52-INDEX) MOUNTED VOLUMES @Z40LB64 01230003 INDEX53 DC Y(TXT53-INDEX) VIRTUAL UNIT ADDRESS @Z40LB64 01240003 INDEX54 DC Y(TXT54-INDEX) BOUND PAGE STATUS @Z40LB64 01250003 INDEX55 DC Y(TXT55-INDEX) DEVICE VALID STATUS @Z40LB64 01260003 INDEX56 DC Y(TXT56-INDEX) DEVICE ONLINE STATUS @Z40LB64 01270003 INDEX57 DC Y(TXT57-INDEX) ADDRESS IN-USE STATUS @Z40LB64 01280003 INDEX58 DC Y(TXT58-INDEX) ALTERNATE PATH @Z40LB64 01290003 INDEX59 DC Y(TXT59-INDEX) VOL SHARED STATUS @Z40LB64 01300003 INDEX60 DC Y(TXT60-INDEX) REAL PAGE @Z40LB64 01310003 INDEX61 DC Y(TXT61-INDEX) ACTIVE PAGE STATUS @Z40LB64 01320003 INDEX62 DC Y(TXT62-INDEX) INACTIVE PAGE STATUS @Z40LB64 01330003 INDEX63 DC Y(TXT63-INDEX) FREE PAGES @Z40LB64 01340003 INDEX64 DC Y(TXT64-INDEX) ACTIVE PAGES @Z40LB64 01350003 INDEX65 DC Y(TXT65-INDEX) INACTIVE PAGES @Z40LB64 01360003 INDEX66 DC Y(TXT66-INDEX) BOUND PAGES @Z40LB64 01370003 INDEX67 DC H'-1' RESERVED @Z40LB64 01380003 INDEX68 DC H'-1' RESERVED @Z40LB64 01390003 INDEX69 DC H'-1' RESERVED @Z40LB64 01400003 INDEX70 DC H'-1' RESERVED @Z40LB64 01410003 INDEX71 DC H'-1' RESERVED @Z40LB64 01420003 INDEX72 DC H'-1' RESERVED @Z40LB64 01430003 INDEX73 DC H'-1' RESERVED @Z40LB64 01440003 INDEX74 DC H'-1' RESERVED @Z40LB64 01450003 INDEX75 DC H'-1' RESERVED @Z40LB64 01460003 SPACE 1 @Z40LB64 01470003 * TABLE NAME STATIC TEXT ENTRIES @Z40LB64 01480003 SPACE 1 @Z40LB64 01490003 INDEX76 DC Y(TXT76-INDEX) MOUNTED VOLUME TABLE @Z40LB64 01500003 INDEX77 DC Y(TXT77-INDEX) VOLUME INVENTORY @Z40LB64 01510003 INDEX78 DC Y(TXT78-INDEX) TRANSIENT VOLUME LIST @Z40LB64 01520003 INDEX79 DC Y(TXT79-INDEX) SCRATCH CTG LIST @Z40LB64 01530003 INDEX80 DC Y(TXT80-INDEX) MSVI DATA SET @Z40LB64 01540003 INDEX81 DC Y(TXT81-INDEX) CELL MAP @Z40LB64 01550003 INDEX82 DC Y(TXT82-INDEX) MFR'S ID CONVERSION @Z40LB64 01560003 INDEX83 DC Y(TXT83-INDEX) VIRT ADDR DIRECTORY @Z40LB64 01570003 INDEX84 DC Y(TXT84-INDEX) PAGE STATUS TABLE @Z40LB64 01580003 INDEX85 DC Y(TXT85-INDEX) LOGICAL TO REAL TABLE @Z40LB64 01590003 INDEX86 DC Y(TXT86-INDEX) VIRT VOL INFO TABLE @Z40LB64 01600003 INDEX87 DC Y(TXT87-INDEX) PAGE AVAIL. BLOCK @Z40LB64 01610003 INDEX88 DC Y(TXT88-INDEX) DEMOUNTED VOL BLOCK @Z40LB64 01620003 INDEX89 DC Y(TXT89-INDEX) LRU PAGES BLOCK @Z40LB64 01630003 INDEX90 DC Y(TXT90-INDEX) REAL PAGE MAP @Z40LB64 01640003 INDEX91 DC Y(TXT91-INDEX) VVA/MVT CROSS-REF @Z40LB64 01650003 INDEX92 DC Y(TXT92-INDEX) VIRT VOL ADDR TABLE @Z40LB64 01660003 INDEX93 DC Y(TXT93-INDEX) CONFIGURATION INDEX @Z40LB64 01670003 INDEX94 DC Y(TXT94-INDEX) CONFIG DATA BLOCK @Z40LB64 01680003 INDEX95 DC Y(TXT95-INDEX) MOUNT EQUALIZATION @Z40LB64 01690003 INDEX96 DC Y(TXT96-INDEX) CONFIG BIT MAP @Z40LB64 01700003 INDEX97 DC Y(TXT97-INDEX) VI, TVL, OR SCL @Z40LB64 01710003 INDEX98 DC H'-1' RESERVED @Z40LB64 01720003 INDEX99 DC H'-1' RESERVED @Z40LB64 01730003 INDEX100 DC H'-1' RESERVED @Z40LB64 01740003 SPACE 1 @Z40LB64 01750003 * TABLE INDEX NAME STATIC TEXT ENTRIES @Z40LB64 01760003 SPACE 1 @Z40LB64 01770003 INDEX101 DC Y(TXT101-INDEX) CSN @Z40LB64 01780003 INDEX102 DC Y(TXT102-INDEX) VOL @Z40LB64 01790003 INDEX103 DC Y(TXT103-INDEX) KEY @Z40LB64 01800003 INDEX104 DC Y(TXT104-INDEX) MSF @Z40LB64 01810003 INDEX105 DC Y(TXT105-INDEX) CPU @Z40LB64 01820003 INDEX106 DC Y(TXT106-INDEX) SA @Z40LB64 01830003 INDEX107 DC Y(TXT107-INDEX) SDG @Z40LB64 01840003 INDEX108 DC Y(TXT108-INDEX) VUA @Z40LB64 01850003 INDEX109 DC Y(TXT109-INDEX) XYZ @Z40LB64 01860003 INDEX110 DC Y(TXT110-INDEX) LUA @Z40LB64 01870003 INDEX111 DC Y(TXT111-INDEX) VVA @Z40LB64 01880003 INDEX112 DC Y(TXT112-INDEX) INTERFACE @Z40LB64 01890003 INDEX113 DC Y(TXT113-INDEX) REALPAGE @Z40LB64 01900003 INDEX114 DC Y(TXT114-INDEX) CHR @Z40LB64 01910003 INDEX115 DC H'-1' RESERVED @Z40LB64 01920003 INDEX116 DC H'-1' RESERVED @Z40LB64 01930003 INDEX117 DC H'-1' RESERVED @Z40LB64 01940003 INDEX118 DC H'-1' RESERVED @Z40LB64 01950003 INDEX119 DC H'-1' RESERVED @Z40LB64 01960003 INDEX120 DC H'-1' RESERVED @Z40LB64 01970003 INDEX121 DC H'-1' RESERVED @Z40LB64 01980003 INDEX122 DC H'-1' RESERVED @Z40LB64 01990003 INDEX123 DC H'-1' RESERVED @Z40LB64 02000003 INDEX124 DC H'-1' RESERVED @Z40LB64 02010003 INDEX125 DC H'-1' RESERVED @Z40LB64 02020003 EJECT @Z40LB64 02030003 ************************************************************ @Z40LB64 02040003 * * @Z40LB64 02050003 * THIS SECTION CONTAINS THE STATIC TEXT ENTRIES. * @Z40LB64 02060003 * * @Z40LB64 02070003 ************************************************************ @Z40LB64 02080003 SPACE 1 @Z40LB64 02090003 ************************************************************ @Z40LB64 02100003 * * @Z40LB64 02110003 * PRIMARY MESSAGE STATIC TEXT ENTRIES. * @Z40LB64 02120003 * * @Z40LB64 02130003 ************************************************************ @Z40LB64 02140003 SPACE 1 @Z40LB64 02150003 ************************************************************ @Z40LB64 02160003 * * @Z40LB64 02170003 * IDC01120I INCONSISTENT 'FIELD NAME' * @Z40LB64 02180003 * * @Z40LB64 02190003 ************************************************************ @Z40LB64 02200003 SPACE 1 @Z40LB64 02210003 TXT1 DC Y(TXT1B-TXT1A) ENTRY LENGTH @Z40LB64 02220003 DC H'0' @Z40LB64 02230003 SPACE 1 @Z40LB64 02240003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 02250003 TXT1A DC X'8400' STATIC TEXT FLAGS @Z40LB64 02260003 DC Y(STE1B-STE1A) TEXT LENGTH @Z40LB64 02270003 DC Y(STE1A-TXT1A) TEXT OFFSET @Z40LB64 02280003 DC H'1' PRINT COLUMN @Z40LB64 02290003 DC Y(STE1B-STE1A) PRINT FIELD LENGTH @Z40LB64 02300003 DC H'0' CONVERSION FLAGS @Z40LB64 02310003 SPACE 1 @Z40LB64 02320003 * STATIC TEXT ENTRY @Z40LB64 02330003 STE1A DC YL1(STE1B-MSG1) MESSAGE LENGTH @Z40LB64 02340003 DC FL1'0' NEXT STATIC TEXT @Z40LB64 02350003 DC X'84' MESSAGE FLAGS @Z40LB64 02360003 DC FL1'1' INSERT COUNT @Z40LB64 02370003 DC X'80' INSERT TYPE @Z40LB64 02380003 DC FL1'25' INSERT POSITION @Z40LB64 02390003 MSG1 DC C'IDC01120I INCONSISTENT ' @Z40LB64 02400003 STE1B EQU * @Z40LB64 02410003 TXT1B EQU * @Z40LB64 02420003 EJECT @Z40LB64 02430003 ************************************************************ @Z40LB64 02440003 * * @Z40LB64 02450003 * IDC01121I DUPLICATE 'FIELD NAME' REFERENCE FOUND * @Z40LB64 02460003 * * @Z40LB64 02470003 ************************************************************ @Z40LB64 02480003 SPACE 1 @Z40LB64 02490003 TXT2 DC Y(TXT2B-TXT2A) ENTRY LENGTH @Z40LB64 02500003 DC H'0' @Z40LB64 02510003 SPACE 1 @Z40LB64 02520003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 02530003 TXT2A DC X'8400' STATIC TEXT FLAGS @Z40LB64 02540003 DC Y(STE2B-STE2A) TEXT LENGTH @Z40LB64 02550003 DC Y(STE2A-TXT2A) TEXT OFFSET @Z40LB64 02560003 DC H'1' PRINT COLUMN @Z40LB64 02570003 DC Y(STE2B-STE2A) PRINT FIELD LENGTH @Z40LB64 02580003 DC H'0' CONVERSION FLAGS @Z40LB64 02590003 SPACE 1 @Z40LB64 02600003 * STATIC TEXT ENTRY @Z40LB64 02610003 STE2A DC YL1(STE2B-MSG2) MESSAGE LENGTH @Z40LB64 02620003 DC FL1'0' NEXT STATIC TEXT @Z40LB64 02630003 DC X'84' MESSAGE FLAGS @Z40LB64 02640003 DC FL1'1' INSERT COUNT @Z40LB64 02650003 DC X'80' INSERT TYPE @Z40LB64 02660003 DC FL1'22' INSERT POSITION @Z40LB64 02670003 MSG2 DC C'IDC01121I DUPLICATE REFERENCE FOUND' @Z40LB64 02680003 STE2B EQU * @Z40LB64 02690003 TXT2B EQU * @Z40LB64 02700003 EJECT @Z40LB64 02710003 ************************************************************ @Z40LB64 02720003 * * @Z40LB64 02730003 * IDC01122I SUM='VALUE' OF INDIVIDUAL 'FIELD NAME' * @Z40LB64 02740003 * FROM 'TABLE NAME' * @Z40LB64 02750003 * NOT EQUAL TO TOTAL VALUE * @Z40LB64 02760003 * (FIRST LINE OF MESSAGE) * @Z40LB64 02770003 * * @Z40LB64 02780003 ************************************************************ @Z40LB64 02790003 SPACE 1 @Z40LB64 02800003 TXT3 DC Y(TXT3B-TXT3A) ENTRY LENGTH @Z40LB64 02810003 DC H'0' @Z40LB64 02820003 SPACE 1 @Z40LB64 02830003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 02840003 TXT3A DC X'8400' STATIC TEXT FLAGS @Z40LB64 02850003 DC Y(STE3B-STE3A) TEXT LENGTH @Z40LB64 02860003 DC Y(STE3A-TXT3A) TEXT OFFSET @Z40LB64 02870003 DC H'1' PRINT COLUMN @Z40LB64 02880003 DC Y(STE3B-STE3A) PRINT FIELD LENGTH @Z40LB64 02890003 DC H'0' CONVERSION FLAGS @Z40LB64 02900003 SPACE 1 @Z40LB64 02910003 * STATIC TEXT ENTRY @Z40LB64 02920003 STE3A DC YL1(STE3B-MSG3) MESSAGE LENGTH @Z40LB64 02930003 DC FL1'15' NEXT STATIC TEXT @Z40LB64 02940003 DC X'88' MESSAGE FLAGS @Z40LB64 02950003 DC FL1'2' INSERT COUNT @Z40LB64 02960003 DC X'40' INSERT #1 TYPE @Z40LB64 02970003 DC FL1'16' INSERT #1 POSITION @Z40LB64 02980003 DC X'80' INSERT #2 TYPE @Z40LB64 02990003 DC FL1'31' INSERT #2 POSITION @Z40LB64 03000003 MSG3 DC C'IDC01122I SUM= OF INDIVIDUAL ' @Z40LB64 03010003 STE3B EQU * @Z40LB64 03020003 TXT3B EQU * @Z40LB64 03030003 EJECT @Z40LB64 03040003 ************************************************************ @Z40LB64 03050003 * * @Z40LB64 03060003 * IDC01122I SUM='VALUE' OF INDIVIDUAL 'FIELD NAME' * @Z40LB64 03070003 * FROM 'TABLE NAME' * @Z40LB64 03080003 * NOT EQUAL TO TOTAL VALUE * @Z40LB64 03090003 * (SECOND LINE OF MESSAGE) * @Z40LB64 03100003 * * @Z40LB64 03110003 ************************************************************ @Z40LB64 03120003 SPACE 1 @Z40LB64 03130003 TXT15 DC Y(TXT15B-TXT15A) ENTRY LENGTH @Z40LB64 03140003 DC H'0' @Z40LB64 03150003 SPACE 1 @Z40LB64 03160003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 03170003 TXT15A DC X'8400' STATIC TEXT FLAGS @Z40LB64 03180003 DC Y(STE15B-STE15A) TEXT LENGTH @Z40LB64 03190003 DC Y(STE15A-TXT15A) TEXT OFFSET @Z40LB64 03200003 DC H'1' PRINT COLUMN @Z40LB64 03210003 DC Y(STE15B-STE15A) PRINT FIELD LENGTH @Z40LB64 03220003 DC H'0' CONVERSION FLAGS @Z40LB64 03230003 SPACE 1 @Z40LB64 03240003 * STATIC TEXT ENTRY @Z40LB64 03250003 STE15A DC YL1(STE15B-MSG15) MESSAGE LENGTH @Z40LB64 03260003 DC FL1'16' NEXT STATIC TEXT @Z40LB64 03270003 DC X'A8' MESSAGE FLAGS @Z40LB64 03280003 DC FL1'1' INSERT COUNT @Z40LB64 03290003 DC X'20' INSERT TYPE @Z40LB64 03300003 DC FL1'6' INSERT POSITION @Z40LB64 03310003 MSG15 DC C'FROM ' @Z40LB64 03320003 STE15B EQU * @Z40LB64 03330003 TXT15B EQU * @Z40LB64 03340003 EJECT @Z40LB64 03350003 ************************************************************ @Z40LB64 03360003 * * @Z40LB64 03370003 * IDC01122I SUM='VALUE' OF INDIVIDUAL 'FIELD NAME' * @Z40LB64 03380003 * FROM 'TABLE NAME' * @Z40LB64 03390003 * NOT EQUAL TO TOTAL VALUE * @Z40LB64 03400003 * (THIRD LINE OF MESSAGE) * @Z40LB64 03410003 * * @Z40LB64 03420003 ************************************************************ @Z40LB64 03430003 SPACE 1 @Z40LB64 03440003 TXT16 DC Y(TXT16B-TXT16A) ENTRY LENGTH @Z40LB64 03450003 DC H'0' @Z40LB64 03460003 SPACE 1 @Z40LB64 03470003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 03480003 TXT16A DC X'8400' STATIC TEXT FLAGS @Z40LB64 03490003 DC Y(STE16B-STE16A) TEXT LENGTH @Z40LB64 03500003 DC Y(STE16A-TXT16A) TEXT OFFSET @Z40LB64 03510003 DC H'1' PRINT COLUMN @Z40LB64 03520003 DC Y(STE16B-STE16A) PRINT FIELD LENGTH @Z40LB64 03530003 DC H'0' CONVERSION FLAGS @Z40LB64 03540003 SPACE 1 @Z40LB64 03550003 * STATIC TEXT ENTRY @Z40LB64 03560003 STE16A DC YL1(STE16B-MSG16) MESSAGE LENGTH @Z40LB64 03570003 DC FL1'0' NEXT STATIC TEXT @Z40LB64 03580003 DC X'A8' MESSAGE FLAGS @Z40LB64 03590003 DC FL1'0' INSERT COUNT @Z40LB64 03600003 MSG16 DC C'NOT EQUAL TO TOTAL VALUE' @Z40LB64 03610003 STE16B EQU * @Z40LB64 03620003 TXT16B EQU * @Z40LB64 03630003 EJECT @Z40LB64 03640003 ************************************************************ @Z40LB64 03650003 * * @Z40LB64 03660003 * IDC01124I MATCHING 'FIELD NAME'='VALUE' * @Z40LB64 03670003 * NOT FOUND IN 'TABLE NAME' * @Z40LB64 03680003 * TO MATCH 'TABLE NAME' (TABLE INDICES) * @Z40LB64 03690003 * (FIRST LINE OF MESSAGE) * @Z40LB64 03700003 * * @Z40LB64 03710003 ************************************************************ @Z40LB64 03720003 SPACE 1 @Z40LB64 03730003 TXT4 DC Y(TXT4B-TXT4A) ENTRY LENGTH @Z40LB64 03740003 DC H'0' @Z40LB64 03750003 SPACE 1 @Z40LB64 03760003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 03770003 TXT4A DC X'8400' STATIC TEXT FLAGS @Z40LB64 03780003 DC Y(STE4B-STE4A) TEXT LENGTH @Z40LB64 03790003 DC Y(STE4A-TXT4A) TEXT OFFSET @Z40LB64 03800003 DC H'1' PRINT COLUMN @Z40LB64 03810003 DC Y(STE4B-STE4A) PRINT FIELD LENGTH @Z40LB64 03820003 DC H'0' CONVERSION FLAGS @Z40LB64 03830003 SPACE 1 @Z40LB64 03840003 * STATIC TEXT ENTRY @Z40LB64 03850003 STE4A DC YL1(STE4B-MSG4) MESSAGE LENGTH @Z40LB64 03860003 DC FL1'17' NEXT STATIC TEXT @Z40LB64 03870003 DC X'90' MESSAGE FLAGS @Z40LB64 03880003 DC FL1'2' INSERT COUNT @Z40LB64 03890003 DC X'80' INSERT #1 TYPE @Z40LB64 03900003 DC FL1'21' INSERT #1 POSITION @Z40LB64 03910003 DC X'40' INSERT #2 TYPE @Z40LB64 03920003 DC FL1'22' INSERT #2 POSITION @Z40LB64 03930003 MSG4 DC C'IDC01124I MATCHING =' @Z40LB64 03940003 STE4B EQU * @Z40LB64 03950003 TXT4B EQU * @Z40LB64 03960003 EJECT @ZA27324 03962000 ********************************************************** @ZA27324 03964000 * * @ZA27324 03966000 * IDC21125I SA NNN TABLES CANNOT BE READ; SA IS OFFLINE * @ZA27324 03968000 * OR SUU. * @ZA27324 03968400 * * @ZA27324 03968800 ********************************************************** @ZA27324 03969200 SPACE 3 @ZA27324 03969600 TXT5 DC Y(TXT5B-TXT5A) ENTRY LENGTH @ZA27324 03969700 DC X'8000' MESSAGE FLAG @ZA27324 03969800 SPACE 1 @ZA27324 03969900 * SPACING CONTROL SUB-STRUCTURE @ZA27324 03973200 TXT5A DC X'4000' SPACE CONTROL FLAG @ZA27324 03975200 DC H'2' SPACING FACTOR @ZA27324 03975600 DC C'R ' SPACING TYPE @ZA27324 03976000 SPACE 1 @ZA27324 03976400 * STATIC TEXT SUB-STRUCTURE @ZA27324 03976500 DC X'0400' STATIC TEXT FLAG @ZA27324 03976600 DC Y(STE5B-STE5A) TEXT LENGTH @ZA27324 03979900 DC Y(STE5A-TXT5A) TEXT OFFSET @ZA27324 03981900 DC H'1' PRINT COLUMN @ZA27324 03982300 DC Y(STE5B-STE5A) PRINT FIELD LENGTH @ZA27324 03982700 DC X'0010' CONVERSION FLAGS @ZA27324 03983100 SPACE 1 @ZA27324 03983200 * BLOCK DATA SUB-STRUCTURE @ZA27324 03983300 DC X'1000' STRUCTURE TYPE FLG @ZA27324 03986600 DC H'03,00,01,03' LNG,OFST,PC,LNG @ZA27324 03988600 DC X'0050' CONVERSION FLGS @ZA27324 03989000 SPACE 1 @ZA27324 03989400 * STATIC TEXT SUB-STRUCTURE @ZA27324 03989800 DC X'8400' STATIC TEXT FLAG @ZA27324 03989900 DC Y(STE5D-STE5C) TEXT LENGTH @ZA27324 03990000 DC Y(STE5C-TXT5A) TEXT OFFSET @ZA27324 03993300 DC H'1' PRINT COLUMN @ZA27324 03995300 DC Y(STE5D-STE5C) PRINT FIELD LENGTH @ZA27324 03995700 DC X'0010' CONVERSION FLAGS @ZA27324 03996100 SPACE 1 @ZA27324 03996500 * STATIC TEXT ENTRIES @ZA27324 04006500 STE5A DC C'IDC21125I SA' @ZA27324 04006600 STE5B EQU * @ZA27324 04007400 STE5C DC C'TABLES CANNOT BE COPIED; SA IS OFFLINE OR' @ZA27324 04007800 DC C' SUU.' @ZA27324 04007900 STE5D EQU * @ZA27324 04008200 TXT5B EQU * @ZA27324 04008600 EJECT @ZA27324 04008900 ************************************************************ @ZA27324 04009000 * * @ZA27324 04009100 * IDC31126I UNABLE TO READ MSC MAIN STORAGE * @ZA27324 04009200 * * @ZA27324 04012000 ************************************************************ @ZA27324 04012800 SPACE 3 @ZA27324 04013700 TXT6 DC Y(TXT6B-TXT6A) ENTRY LENGTH @ZA27324 04014100 DC X'8000' MESSAGE FLAG @ZA27324 04014200 SPACE 1 @ZA27324 04014400 * SPACING CONTROL SUB-STRUCTURE @ZA27324 04015000 TXT6A DC X'4000' SPACE CONTROL FLAG @ZA27324 04015400 DC H'1' SPACING FACTOR @ZA27324 04015800 DC C'R ' SPACING TYPE @ZA27324 04016200 SPACE 1 @ZA27324 04016300 * STATIC TEXT SUB-STRUCTURE @ZA27324 04016400 DC X'8400' STATIC TEXT FLAG @ZA27324 04016600 DC Y(STE6B-STE6A) TEXT LENGTH @ZA27324 04016700 DC Y(STE6A-TXT6A) TEXT OFFSET @ZA27324 04016800 DC H'1' PRINT COLUMN @ZA27324 04016900 DC Y(STE6B-STE6A) PRINT FIELD LENGTH @ZA27324 04017500 DC H'0' CONVERSION FLAGS @ZA27324 04017900 SPACE 1 @ZA27324 04018300 * STATIC TEXT ENTRIES @ZA27324 04018700 STE6A DC C'IDC31126I UNABLE TO READ MSC MAIN STORAGE' @ZA27324 04018900 STE6B EQU * @ZA27324 04019300 TXT6B EQU * @ZA27324 04021600 EJECT @ZA27324 04022600 ************************************************************ @ZA27324 04023000 * * @ZA27324 04023400 * IDC21127I UNABLE TO READ STAGING ADAPTER STORAGE * @ZA27324 04023800 * * @ZA27324 04024100 ************************************************************ @ZA27324 04024500 SPACE 3 @ZA27324 04024600 TXT7 DC Y(TXT7B-TXT7A) ENTRY LENGTH @ZA27324 04024700 DC X'8000' MESSAGE FLAG @ZA27324 04025300 SPACE 1 @ZA27324 04025700 * SPACING CONTROL SUB-STRUCTURE @ZA27324 04026100 TXT7A DC X'4000' SPACE CONTROL FLAG @ZA27324 04026500 DC H'1' SPACING FACTOR @ZA27324 04026600 DC C'R ' SPACING TYPE @ZA27324 04026700 SPACE 1 @ZA27324 04027300 * STATIC TEXT SUB-STRUCTURE @ZA27324 04027700 DC X'8400' STATIC TEXT FLAG @ZA27324 04028100 DC Y(STE7B-STE7A) TEXT LENGTH @ZA27324 04028500 DC Y(STE7A-TXT7A) TEXT OFFSET @ZA27324 04028600 DC H'1' PRINT COLUMN @ZA27324 04028700 DC Y(STE7B-STE7A) PRINT FIELD LENGTH @ZA27324 04030800 DC H'0' CONVERSION FLAGS @ZA27324 04032800 SPACE 1 @ZA27324 04032900 * STATIC TEXT ENTRIES @ZA27324 04033000 STE7A DC C'IDC21127I UNABLE TO READ STAGING ADAPTER' @ZA27324 04033100 DC C' STORAGE' @ZA27324 04033300 STE7B EQU * @ZA27324 04033600 TXT7B EQU * @ZA27324 04034000 EJECT @Z40LB64 04034900 ************************************************************ @Z40LB64 04035400 * * @Z40LB64 04037400 * IDC01124I MATCHING 'FIELD NAME'='VALUE' * @Z40LB64 04039500 * NOT FOUND IN 'TABLE NAME' * @Z40LB64 04041600 * TO MATCH 'TABLE NAME' (TABLE INDICES) * @Z40LB64 04043700 * (SECOND LINE OF MESSAGE) * @Z40LB64 04045800 * * @Z40LB64 04047903 ************************************************************ @Z40LB64 04050003 SPACE 1 @Z40LB64 04060003 TXT17 DC Y(TXT17B-TXT17A) ENTRY LENGTH @Z40LB64 04070003 DC H'0' @Z40LB64 04080003 SPACE 1 @Z40LB64 04090003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 04100003 TXT17A DC X'8400' STATIC TEXT FLAGS @Z40LB64 04110003 DC Y(STE17B-STE17A) TEXT LENGTH @Z40LB64 04120003 DC Y(STE17A-TXT17A) TEXT OFFSET @Z40LB64 04130003 DC H'1' PRINT COLUMN @Z40LB64 04140003 DC Y(STE17B-STE17A) PRINT FIELD LENGTH @Z40LB64 04150003 DC H'0' CONVERSION FLAGS @Z40LB64 04160003 SPACE 1 @Z40LB64 04170003 * STATIC TEXT ENTRY @Z40LB64 04180003 STE17A DC YL1(STE17B-MSG17) MESSAGE LENGTH @Z40LB64 04190003 DC FL1'18' NEXT STATIC TEXT @Z40LB64 04200003 DC X'B0' MESSAGE FLAGS @Z40LB64 04210003 DC FL1'1' INSERT COUNT @Z40LB64 04220003 DC X'20' INSERT TYPE @Z40LB64 04230003 DC FL1'14' INSERT POSITION @Z40LB64 04240003 MSG17 DC C'NOT FOUND IN ' @Z40LB64 04250003 STE17B EQU * @Z40LB64 04260003 TXT17B EQU * @Z40LB64 04270003 EJECT @Z40LB64 04280003 ************************************************************ @Z40LB64 04290003 * * @Z40LB64 04300003 * IDC01124I MATCHING 'FIELD NAME'='VALUE' * @Z40LB64 04310003 * NOT FOUND IN 'TABLE NAME' * @Z40LB64 04320003 * TO MATCH 'TABLE NAME' (TABLE INDICES) * @Z40LB64 04330003 * (THIRD LINE OF MESSAGE) * @Z40LB64 04340003 * * @Z40LB64 04350003 ************************************************************ @Z40LB64 04360003 SPACE 1 @Z40LB64 04370003 TXT18 DC Y(TXT18B-TXT18A) ENTRY LENGTH @Z40LB64 04380003 DC H'0' @Z40LB64 04390003 SPACE 1 @Z40LB64 04400003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 04410003 TXT18A DC X'8400' STATIC TEXT FLAGS @Z40LB64 04420003 DC Y(STE18B-STE18A) TEXT LENGTH @Z40LB64 04430003 DC Y(STE18A-TXT18A) TEXT OFFSET @Z40LB64 04440003 DC H'1' PRINT COLUMN @Z40LB64 04450003 DC Y(STE18B-STE18A) PRINT FIELD LENGTH @Z40LB64 04460003 DC H'0' CONVERSION FLAGS @Z40LB64 04470003 SPACE 1 @Z40LB64 04480003 * STATIC TEXT ENTRY @Z40LB64 04490003 STE18A DC YL1(STE18B-MSG18) MESSAGE LENGTH @Z40LB64 04500003 DC FL1'22' NEXT STATIC TEXT @Z40LB64 04510003 DC X'B0' MESSAGE FLAGS @Z40LB64 04520003 DC FL1'1' INSERT COUNT @Z40LB64 04530003 DC X'20' INSERT TYPE @Z40LB64 04540003 DC FL1'10' INSERT POSITION @Z40LB64 04550003 MSG18 DC C'TO MATCH ' @Z40LB64 04560003 STE18B EQU * @Z40LB64 04570003 TXT18B EQU * @Z40LB64 04580003 EJECT @Z40LB64 04590003 ************************************************************ @Z40LB64 04600003 * * @Z40LB64 04610003 * SECONDARY MESSAGE STATIC TEXT ENTRIES. * @Z40LB64 04620003 * * @Z40LB64 04630003 ************************************************************ @Z40LB64 04640003 SPACE 1 @Z40LB64 04650003 ************************************************************ @Z40LB64 04660003 * * @Z40LB64 04670003 * IDC01123I ** VALUE='VALUE' 'TABLE NAME' (TABLE INDICES) * @Z40LB64 04680003 * (FIRST LINE OF MESSAGE) * @Z40LB64 04690003 * * @Z40LB64 04700003 ************************************************************ @Z40LB64 04710003 SPACE 1 @Z40LB64 04720003 TXT21 DC Y(TXT21B-TXT21A) ENTRY LENGTH @Z40LB64 04730003 DC H'0' @Z40LB64 04740003 SPACE 1 @Z40LB64 04750003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 04760003 TXT21A DC X'8400' STATIC TEXT FLAGS @Z40LB64 04770003 DC Y(STE21B-STE21A) TEXT LENGTH @Z40LB64 04780003 DC Y(STE21A-TXT21A) TEXT OFFSET @Z40LB64 04790003 DC H'1' PRINT COLUMN @Z40LB64 04800003 DC Y(STE21B-STE21A) PRINT FIELD LENGTH @Z40LB64 04810003 DC H'0' CONVERSION FLAGS @Z40LB64 04820003 SPACE 1 @Z40LB64 04830003 * STATIC TEXT ENTRY @Z40LB64 04840003 STE21A DC YL1(STE21B-MSG21) MESSAGE LENGTH @Z40LB64 04850003 DC FL1'22' NEXT STATIC TEXT @Z40LB64 04860003 DC X'48' MESSAGE FLAGS @Z40LB64 04870003 DC FL1'2' INSERT COUNT @Z40LB64 04880003 DC X'40' INSERT #1 TYPE @Z40LB64 04890003 DC FL1'21' INSERT #1 POSITION @Z40LB64 04900003 DC X'20' INSERT #2 TYPE @Z40LB64 04910003 DC FL1'23' INSERT #2 POSITION @Z40LB64 04920003 MSG21 DC C'IDC01123I ** VALUE= ' @Z40LB64 04930003 STE21B EQU * @Z40LB64 04940003 TXT21B EQU * @Z40LB64 04950003 EJECT @Z40LB64 04960003 ************************************************************ @Z40LB64 04970003 * * @Z40LB64 04980003 * ('TABLE INDEX'='VALUE') * @Z40LB64 04990003 * * @Z40LB64 05000003 ************************************************************ @Z40LB64 05010003 SPACE 1 @Z40LB64 05020003 TXT22 DC Y(TXT22B-TXT22A) ENTRY LENGTH @Z40LB64 05030003 DC H'0' @Z40LB64 05040003 SPACE 1 @Z40LB64 05050003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 05060003 TXT22A DC X'8400' STATIC TEXT FLAGS @Z40LB64 05070003 DC Y(STE22B-STE22A) TEXT LENGTH @Z40LB64 05080003 DC Y(STE22A-TXT22A) TEXT OFFSET @Z40LB64 05090003 DC H'1' PRINT COLUMN @Z40LB64 05100003 DC Y(STE22B-STE22A) PRINT FIELD LENGTH @Z40LB64 05110003 DC H'0' CONVERSION FLAGS @Z40LB64 05120003 SPACE 1 @Z40LB64 05130003 * STATIC TEXT ENTRY @Z40LB64 05140003 STE22A DC YL1(STE22B-MSG22) MESSAGE LENGTH @Z40LB64 05150003 DC FL1'0' NEXT STATIC TEXT @Z40LB64 05160003 DC X'70' MESSAGE FLAGS @Z40LB64 05170003 DC FL1'2' INSERT COUNT @Z40LB64 05180003 DC X'10' INSERT #1 TYPE @Z40LB64 05190003 DC FL1'2' INSERT #1 POSITION @Z40LB64 05200003 DC X'08' INSERT #2 TYPE @Z40LB64 05210003 DC FL1'3' INSERT #2 POSITION @Z40LB64 05220003 MSG22 DC C'(=)' @Z40LB64 05230003 STE22B EQU * @Z40LB64 05240003 TXT22B EQU * @Z40LB64 05250003 EJECT @Z40LB64 05260003 ************************************************************ @Z40LB64 05270003 * * @Z40LB64 05280003 * ('TABLE INDEX'='VALUE','TABLE INDEX'='VALUE') * @Z40LB64 05290003 * * @Z40LB64 05300003 ************************************************************ @Z40LB64 05310003 SPACE 1 @Z40LB64 05320003 TXT23 DC Y(TXT23B-TXT23A) ENTRY LENGTH @Z40LB64 05330003 DC H'0' @Z40LB64 05340003 SPACE 1 @Z40LB64 05350003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 05360003 TXT23A DC X'8400' STATIC TEXT FLAGS @Z40LB64 05370003 DC Y(STE23B-STE23A) TEXT LENGTH @Z40LB64 05380003 DC Y(STE23A-TXT23A) TEXT OFFSET @Z40LB64 05390003 DC H'1' PRINT COLUMN @Z40LB64 05400003 DC Y(STE23B-STE23A) PRINT FIELD LENGTH @Z40LB64 05410003 DC H'0' CONVERSION FLAGS @Z40LB64 05420003 SPACE 1 @Z40LB64 05430003 * STATIC TEXT ENTRY @Z40LB64 05440003 STE23A DC YL1(STE23B-MSG23) MESSAGE LENGTH @Z40LB64 05450003 DC FL1'0' NEXT STATIC TEXT @Z40LB64 05460003 DC X'70' MESSAGE FLAGS @Z40LB64 05470003 DC FL1'4' INSERT COUNT @Z40LB64 05480003 DC X'10' INSERT #1 TYPE @Z40LB64 05490003 DC FL1'2' INSERT #1 POSITION @Z40LB64 05500003 DC X'08' INSERT #2 TYPE @Z40LB64 05510003 DC FL1'3' INSERT #2 POSITION @Z40LB64 05520003 DC X'10' INSERT #3 TYPE @Z40LB64 05530003 DC FL1'4' INSERT #3 POSITION @Z40LB64 05540003 DC X'08' INSERT #4 TYPE @Z40LB64 05550003 DC FL1'5' INSERT #4 POSITION @Z40LB64 05560003 MSG23 DC C'(=,=)' @Z40LB64 05570003 STE23B EQU * @Z40LB64 05580003 TXT23B EQU * @Z40LB64 05590003 EJECT @Z40LB64 05600003 ************************************************************ @Z40LB64 05610003 * * @Z40LB64 05620003 * ('TABLE INDEX'='VALUE','TABLE INDEX'='VALUE', * @Z40LB64 05630003 * 'TABLE INDEX'='VALUE') * @Z40LB64 05640003 * * @Z40LB64 05650003 ************************************************************ @Z40LB64 05660003 SPACE 1 @Z40LB64 05670003 TXT24 DC Y(TXT24B-TXT24A) ENTRY LENGTH @Z40LB64 05680003 DC H'0' @Z40LB64 05690003 SPACE 1 @Z40LB64 05700003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 05710003 TXT24A DC X'8400' STATIC TEXT FLAGS @Z40LB64 05720003 DC Y(STE24B-STE24A) TEXT LENGTH @Z40LB64 05730003 DC Y(STE24A-TXT24A) TEXT OFFSET @Z40LB64 05740003 DC H'1' PRINT COLUMN @Z40LB64 05750003 DC Y(STE24B-STE24A) PRINT FIELD LENGTH @Z40LB64 05760003 DC H'0' CONVERSION FLAGS @Z40LB64 05770003 SPACE 1 @Z40LB64 05780003 * STATIC TEXT ENTRY @Z40LB64 05790003 STE24A DC YL1(STE24B-MSG24) MESSAGE LENGTH @Z40LB64 05800003 DC FL1'0' NEXT STATIC TEXT @Z40LB64 05810003 DC X'70' MESSAGE FLAGS @Z40LB64 05820003 DC FL1'6' INSERT COUNT @Z40LB64 05830003 DC X'10' INSERT #1 TYPE @Z40LB64 05840003 DC FL1'2' INSERT #1 POSITION @Z40LB64 05850003 DC X'08' INSERT #2 TYPE @Z40LB64 05860003 DC FL1'3' INSERT #2 POSITION @Z40LB64 05870003 DC X'10' INSERT #3 TYPE @Z40LB64 05880003 DC FL1'4' INSERT #3 POSITION @Z40LB64 05890003 DC X'08' INSERT #4 TYPE @Z40LB64 05900003 DC FL1'5' INSERT #4 POSITION @Z40LB64 05910003 DC X'10' INSERT #5 TYPE @Z40LB64 05920003 DC FL1'6' INSERT #5 POSITION @Z40LB64 05930003 DC X'08' INSERT #6 TYPE @Z40LB64 05940003 DC FL1'7' INSERT #6 POSITION @Z40LB64 05950003 MSG24 DC C'(=,=,=)' @Z40LB64 05960003 STE24B EQU * @Z40LB64 05970003 TXT24B EQU * @Z40LB64 05980003 EJECT @Z40LB64 05990003 ************************************************************ @Z40LB64 06000003 * * @Z40LB64 06010003 * ('TABLE INDEX'='VALUE','TABLE INDEX'='VALUE', * @Z40LB64 06020003 * 'TABLE INDEX'='VALUE','TABLE INDEX'='VALUE') * @Z40LB64 06030003 * * @Z40LB64 06040003 ************************************************************ @Z40LB64 06050003 SPACE 1 @Z40LB64 06060003 TXT25 DC Y(TXT25B-TXT25A) ENTRY LENGTH @Z40LB64 06070003 DC H'0' @Z40LB64 06080003 SPACE 1 @Z40LB64 06090003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 06100003 TXT25A DC X'8400' STATIC TEXT FLAGS @Z40LB64 06110003 DC Y(STE25B-STE25A) TEXT LENGTH @Z40LB64 06120003 DC Y(STE25A-TXT25A) TEXT OFFSET @Z40LB64 06130003 DC H'1' PRINT COLUMN @Z40LB64 06140003 DC Y(STE25B-STE25A) PRINT FIELD LENGTH @Z40LB64 06150003 DC H'0' CONVERSION FLAGS @Z40LB64 06160003 SPACE 1 @Z40LB64 06170003 * STATIC TEXT ENTRY @Z40LB64 06180003 STE25A DC YL1(STE25B-MSG25) MESSAGE LENGTH @Z40LB64 06190003 DC FL1'0' NEXT STATIC TEXT @Z40LB64 06200003 DC X'70' MESSAGE FLAGS @Z40LB64 06210003 DC FL1'8' INSERT COUNT @Z40LB64 06220003 DC X'10' INSERT #1 TYPE @Z40LB64 06230003 DC FL1'2' INSERT #1 POSITION @Z40LB64 06240003 DC X'08' INSERT #2 TYPE @Z40LB64 06250003 DC FL1'3' INSERT #2 POSITION @Z40LB64 06260003 DC X'10' INSERT #3 TYPE @Z40LB64 06270003 DC FL1'4' INSERT #3 POSITION @Z40LB64 06280003 DC X'08' INSERT #4 TYPE @Z40LB64 06290003 DC FL1'5' INSERT #4 POSITION @Z40LB64 06300003 DC X'10' INSERT #5 TYPE @Z40LB64 06310003 DC FL1'6' INSERT #5 POSITION @Z40LB64 06320003 DC X'08' INSERT #6 TYPE @Z40LB64 06330003 DC FL1'7' INSERT #6 POSITION @Z40LB64 06340003 DC X'10' INSERT #7 TYPE @Z40LB64 06350003 DC FL1'8' INSERT #7 POSITION @Z40LB64 06360003 DC X'08' INSERT #8 TYPE @Z40LB64 06370003 DC FL1'9' INSERT #8 POSITION @Z40LB64 06380003 MSG25 DC C'(=,=,=,=)' @Z40LB64 06390003 STE25B EQU * @Z40LB64 06400003 TXT25B EQU * @Z40LB64 06410003 EJECT @Z40LB64 06420003 ************************************************************ @Z40LB64 06430003 * * @Z40LB64 06440003 * FIELD NAME STATIC TEXT ENTRIES. * @Z40LB64 06450003 * * @Z40LB64 06460003 * EACH ENTRY CONTAINS THE NAME OF THE FIELD, THE LENGTH * @Z40LB64 06470003 * OF THE FIELD NAME, THE LENGTH OF THE CORRESPONDING * @Z40LB64 06480003 * FIELD VALUE, THE CONVERSION TO BE PERFORMED ON THE * @Z40LB64 06490003 * FIELD VALUE FOR PRINTING, AND THE RESULTANT LENGTH TO * @Z40LB64 06500003 * BE PRINTED AFTER CONVERSION. * @Z40LB64 06510003 * * @Z40LB64 06520003 ************************************************************ @Z40LB64 06530003 SPACE 1 @Z40LB64 06540003 ************************************************************ @Z40LB64 06550003 * * @Z40LB64 06560003 * 'VOLUME MOUNTED STATUS' (FIELD NAME) * @Z40LB64 06570003 * * @Z40LB64 06580003 ************************************************************ @Z40LB64 06590003 SPACE 1 @Z40LB64 06600003 TXT26 DC Y(TXT26B-TXT26A) ENTRY LENGTH @Z40LB64 06610003 DC H'0' @Z40LB64 06620003 SPACE 1 @Z40LB64 06630003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 06640003 TXT26A DC X'8400' STATIC TEXT FLAGS @Z40LB64 06650003 DC Y(STE26B-STE26A) TEXT LENGTH @Z40LB64 06660003 DC Y(STE26A-TXT26A) TEXT OFFSET @Z40LB64 06670003 DC H'1' PRINT COLUMN @Z40LB64 06680003 DC Y(STE26B-STE26A) PRINT FIELD LENGTH @Z40LB64 06690003 DC H'0' CONVERSION FLAGS @Z40LB64 06700003 SPACE 1 @Z40LB64 06710003 * STATIC TEXT ENTRY @Z40LB64 06720003 STE26A DC YL1(STE26B-MSG26) FIELD NAME LENGTH @Z40LB64 06730003 DC FL1'0' RESERVED @Z40LB64 06740003 DC FL1'3' VALUE INPUT LENGTH @Z40LB64 06750003 DC FL1'3' VALUE OUTPUT LENGTH @Z40LB64 06760003 DC X'0000' VALUE CONVERSION @Z40LB64 06770003 MSG26 DC C'VOLUME MOUNTED STATUS' @Z40LB64 06780003 STE26B EQU * @Z40LB64 06790003 TXT26B EQU * @Z40LB64 06800003 EJECT @Z40LB64 06810003 ************************************************************ @Z40LB64 06820003 * * @Z40LB64 06830003 * 'VOLUME SECURE STATUS' (FIELD NAME) * @Z40LB64 06840003 * * @Z40LB64 06850003 ************************************************************ @Z40LB64 06860003 SPACE 1 @Z40LB64 06870003 TXT27 DC Y(TXT27B-TXT27A) ENTRY LENGTH @Z40LB64 06880003 DC H'0' @Z40LB64 06890003 SPACE 1 @Z40LB64 06900003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 06910003 TXT27A DC X'8400' STATIC TEXT FLAGS @Z40LB64 06920003 DC Y(STE27B-STE27A) TEXT LENGTH @Z40LB64 06930003 DC Y(STE27A-TXT27A) TEXT OFFSET @Z40LB64 06940003 DC H'1' PRINT COLUMN @Z40LB64 06950003 DC Y(STE27B-STE27A) PRINT FIELD LENGTH @Z40LB64 06960003 DC H'0' CONVERSION FLAGS @Z40LB64 06970003 SPACE 1 @Z40LB64 06980003 * STATIC TEXT ENTRY @Z40LB64 06990003 STE27A DC YL1(STE27B-MSG27) FIELD NAME LENGTH @Z40LB64 07000003 DC FL1'0' RESERVED @Z40LB64 07010003 DC FL1'3' VALUE INPUT LENGTH @Z40LB64 07020003 DC FL1'3' VALUE OUTPUT LENGTH @Z40LB64 07030003 DC X'0000' VALUE CONVERSION @Z40LB64 07040003 MSG27 DC C'VOLUME SECURE STATUS' @Z40LB64 07050003 STE27B EQU * @Z40LB64 07060003 TXT27B EQU * @Z40LB64 07070003 EJECT @Z40LB64 07080003 ************************************************************ @Z40LB64 07090003 * * @Z40LB64 07100003 * 'VOLUME EXCLUSIVE STATUS' (FIELD NAME) * @Z40LB64 07110003 * * @Z40LB64 07120003 ************************************************************ @Z40LB64 07130003 SPACE 1 @Z40LB64 07140003 TXT28 DC Y(TXT28B-TXT28A) ENTRY LENGTH @Z40LB64 07150003 DC H'0' @Z40LB64 07160003 SPACE 1 @Z40LB64 07170003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 07180003 TXT28A DC X'8400' STATIC TEXT FLAGS @Z40LB64 07190003 DC Y(STE28B-STE28A) TEXT LENGTH @Z40LB64 07200003 DC Y(STE28A-TXT28A) TEXT OFFSET @Z40LB64 07210003 DC H'1' PRINT COLUMN @Z40LB64 07220003 DC Y(STE28B-STE28A) PRINT FIELD LENGTH @Z40LB64 07230003 DC H'0' CONVERSION FLAGS @Z40LB64 07240003 SPACE 1 @Z40LB64 07250003 * STATIC TEXT ENTRY @Z40LB64 07260003 STE28A DC YL1(STE28B-MSG28) FIELD NAME LENGTH @Z40LB64 07270003 DC FL1'0' RESERVED @Z40LB64 07280003 DC FL1'3' VALUE INPUT LENGTH @Z40LB64 07290003 DC FL1'3' VALUE OUTPUT LENGTH @Z40LB64 07300003 DC X'0000' VALUE CONVERSION @Z40LB64 07310003 MSG28 DC C'VOLUME EXCLUSIVE STATUS' @Z40LB64 07320003 STE28B EQU * @Z40LB64 07330003 TXT28B EQU * @Z40LB64 07340003 EJECT @Z40LB64 07350003 ************************************************************ @Z40LB64 07360003 * * @Z40LB64 07370003 * 'VOLUME BOUND STATUS' (FIELD NAME) * @Z40LB64 07380003 * * @Z40LB64 07390003 ************************************************************ @Z40LB64 07400003 SPACE 1 @Z40LB64 07410003 TXT29 DC Y(TXT29B-TXT29A) ENTRY LENGTH @Z40LB64 07420003 DC H'0' @Z40LB64 07430003 SPACE 1 @Z40LB64 07440003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 07450003 TXT29A DC X'8400' STATIC TEXT FLAGS @Z40LB64 07460003 DC Y(STE29B-STE29A) TEXT LENGTH @Z40LB64 07470003 DC Y(STE29A-TXT29A) TEXT OFFSET @Z40LB64 07480003 DC H'1' PRINT COLUMN @Z40LB64 07490003 DC Y(STE29B-STE29A) PRINT FIELD LENGTH @Z40LB64 07500003 DC H'0' CONVERSION FLAGS @Z40LB64 07510003 SPACE 1 @Z40LB64 07520003 * STATIC TEXT ENTRY @Z40LB64 07530003 STE29A DC YL1(STE29B-MSG29) FIELD NAME LENGTH @Z40LB64 07540003 DC FL1'0' RESERVED @Z40LB64 07550003 DC FL1'3' VALUE INPUT LENGTH @Z40LB64 07560003 DC FL1'3' VALUE OUTPUT LENGTH @Z40LB64 07570003 DC X'0000' VALUE CONVERSION @Z40LB64 07580003 MSG29 DC C'VOLUME BOUND STATUS' @Z40LB64 07590003 STE29B EQU * @Z40LB64 07600003 TXT29B EQU * @Z40LB64 07610003 EJECT @Z40LB64 07620003 ************************************************************ @Z40LB64 07630003 * * @Z40LB64 07640003 * 'VOLUME RESERVED STATUS' (FIELD NAME) * @Z40LB64 07650003 * * @Z40LB64 07660003 ************************************************************ @Z40LB64 07670003 SPACE 1 @Z40LB64 07680003 TXT30 DC Y(TXT30B-TXT30A) ENTRY LENGTH @Z40LB64 07690003 DC H'0' @Z40LB64 07700003 SPACE 1 @Z40LB64 07710003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 07720003 TXT30A DC X'8400' STATIC TEXT FLAGS @Z40LB64 07730003 DC Y(STE30B-STE30A) TEXT LENGTH @Z40LB64 07740003 DC Y(STE30A-TXT30A) TEXT OFFSET @Z40LB64 07750003 DC H'1' PRINT COLUMN @Z40LB64 07760003 DC Y(STE30B-STE30A) PRINT FIELD LENGTH @Z40LB64 07770003 DC H'0' CONVERSION FLAGS @Z40LB64 07780003 SPACE 1 @Z40LB64 07790003 * STATIC TEXT ENTRY @Z40LB64 07800003 STE30A DC YL1(STE30B-MSG30) FIELD NAME LENGTH @Z40LB64 07810003 DC FL1'0' RESERVED @Z40LB64 07820003 DC FL1'3' VALUE INPUT LENGTH @Z40LB64 07830003 DC FL1'3' VALUE OUTPUT LENGTH @Z40LB64 07840003 DC X'0000' VALUE CONVERSION @Z40LB64 07850003 MSG30 DC C'VOLUME RESERVED STATUS' @Z40LB64 07860003 STE30B EQU * @Z40LB64 07870003 TXT30B EQU * @Z40LB64 07880003 EJECT @Z40LB64 07890003 ************************************************************ @Z40LB64 07900003 * * @Z40LB64 07910003 * 'WRITE INHIBIT STATUS' (FIELD NAME) * @Z40LB64 07920003 * * @Z40LB64 07930003 ************************************************************ @Z40LB64 07940003 SPACE 1 @Z40LB64 07950003 TXT31 DC Y(TXT31B-TXT31A) ENTRY LENGTH @Z40LB64 07960003 DC H'0' @Z40LB64 07970003 SPACE 1 @Z40LB64 07980003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 07990003 TXT31A DC X'8400' STATIC TEXT FLAGS @Z40LB64 08000003 DC Y(STE31B-STE31A) TEXT LENGTH @Z40LB64 08010003 DC Y(STE31A-TXT31A) TEXT OFFSET @Z40LB64 08020003 DC H'1' PRINT COLUMN @Z40LB64 08030003 DC Y(STE31B-STE31A) PRINT FIELD LENGTH @Z40LB64 08040003 DC H'0' CONVERSION FLAGS @Z40LB64 08050003 SPACE 1 @Z40LB64 08060003 * STATIC TEXT ENTRY @Z40LB64 08070003 STE31A DC YL1(STE31B-MSG31) FIELD NAME LENGTH @Z40LB64 08080003 DC FL1'0' RESERVED @Z40LB64 08090003 DC FL1'3' VALUE INPUT LENGTH @Z40LB64 08100003 DC FL1'3' VALUE OUTPUT LENGTH @Z40LB64 08110003 DC X'0000' VALUE CONVERSION @Z40LB64 08120003 MSG31 DC C'WRITE INHIBIT STATUS' @Z40LB64 08130003 STE31B EQU * @Z40LB64 08140003 TXT31B EQU * @Z40LB64 08150003 EJECT @Z40LB64 08160003 ************************************************************ @Z40LB64 08170003 * * @Z40LB64 08180003 * 'MSF IDENTIFIER' (FIELD NAME) * @Z40LB64 08190003 * * @Z40LB64 08200003 ************************************************************ @Z40LB64 08210003 SPACE 1 @Z40LB64 08220003 TXT32 DC Y(TXT32B-TXT32A) ENTRY LENGTH @Z40LB64 08230003 DC H'0' @Z40LB64 08240003 SPACE 1 @Z40LB64 08250003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 08260003 TXT32A DC X'8400' STATIC TEXT FLAGS @Z40LB64 08270003 DC Y(STE32B-STE32A) TEXT LENGTH @Z40LB64 08280003 DC Y(STE32A-TXT32A) TEXT OFFSET @Z40LB64 08290003 DC H'1' PRINT COLUMN @Z40LB64 08300003 DC Y(STE32B-STE32A) PRINT FIELD LENGTH @Z40LB64 08310003 DC H'0' CONVERSION FLAGS @Z40LB64 08320003 SPACE 1 @Z40LB64 08330003 * STATIC TEXT ENTRY @Z40LB64 08340003 STE32A DC YL1(STE32B-MSG32) FIELD NAME LENGTH @Z40LB64 08350003 DC FL1'0' RESERVED @Z40LB64 08360003 DC FL1'4' VALUE INPUT LENGTH @Z40LB64 08370003 DC FL1'1' VALUE OUTPUT LENGTH @Z40LB64 08380003 DC X'10A0' VALUE CONVERSION @Z40LB64 08390003 MSG32 DC C'MSF IDENTIFIER' @Z40LB64 08400003 STE32B EQU * @Z40LB64 08410003 TXT32B EQU * @Z40LB64 08420003 EJECT @Z40LB64 08430003 ************************************************************ @Z40LB64 08440003 * * @Z40LB64 08450003 * 'VOLUME SERIAL NUMBER' (FIELD NAME) * @Z40LB64 08460003 * * @Z40LB64 08470003 ************************************************************ @Z40LB64 08480003 SPACE 1 @Z40LB64 08490003 TXT33 DC Y(TXT33B-TXT33A) ENTRY LENGTH @Z40LB64 08500003 DC H'0' @Z40LB64 08510003 SPACE 1 @Z40LB64 08520003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 08530003 TXT33A DC X'8400' STATIC TEXT FLAGS @Z40LB64 08540003 DC Y(STE33B-STE33A) TEXT LENGTH @Z40LB64 08550003 DC Y(STE33A-TXT33A) TEXT OFFSET @Z40LB64 08560003 DC H'1' PRINT COLUMN @Z40LB64 08570003 DC Y(STE33B-STE33A) PRINT FIELD LENGTH @Z40LB64 08580003 DC H'0' CONVERSION FLAGS @Z40LB64 08590003 SPACE 1 @Z40LB64 08600003 * STATIC TEXT ENTRY @Z40LB64 08610003 STE33A DC YL1(STE33B-MSG33) FIELD NAME LENGTH @Z40LB64 08620003 DC FL1'0' RESERVED @Z40LB64 08630003 DC FL1'6' VALUE INPUT LENGTH @Z40LB64 08640003 DC FL1'6' VALUE OUTPUT LENGTH @Z40LB64 08650003 DC X'0000' VALUE CONVERSION @Z40LB64 08660003 MSG33 DC C'VOLUME SERIAL NUMBER' @Z40LB64 08670003 STE33B EQU * @Z40LB64 08680003 TXT33B EQU * @Z40LB64 08690003 EJECT @Z40LB64 08700003 ************************************************************ @Z40LB64 08710003 * * @Z40LB64 08720003 * 'MANUFACTURER'S IDENTIFIER' (FIELD NAME) * @Z40LB64 08730003 * * @Z40LB64 08740003 ************************************************************ @Z40LB64 08750003 SPACE 1 @Z40LB64 08760003 TXT34 DC Y(TXT34B-TXT34A) ENTRY LENGTH @Z40LB64 08770003 DC H'0' @Z40LB64 08780003 SPACE 1 @Z40LB64 08790003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 08800003 TXT34A DC X'8400' STATIC TEXT FLAGS @Z40LB64 08810003 DC Y(STE34B-STE34A) TEXT LENGTH @Z40LB64 08820003 DC Y(STE34A-TXT34A) TEXT OFFSET @Z40LB64 08830003 DC H'1' PRINT COLUMN @Z40LB64 08840003 DC Y(STE34B-STE34A) PRINT FIELD LENGTH @Z40LB64 08850003 DC H'0' CONVERSION FLAGS @Z40LB64 08860003 SPACE 1 @Z40LB64 08870003 * STATIC TEXT ENTRY @Z40LB64 08880003 STE34A DC YL1(STE34B-MSG34) FIELD NAME LENGTH @Z40LB64 08890003 DC FL1'0' RESERVED @Z40LB64 08900003 DC FL1'5' VALUE INPUT LENGTH @Z40LB64 08910003 DC FL1'9' VALUE OUTPUT LENGTH @Z40LB64 08920003 DC X'40A0' VALUE CONVERSION @Z40LB64 08930003 MSG34 DC C'MANUFACTURER''S IDENTIFIER' @Z40LB64 08940003 STE34B EQU * @Z40LB64 08950003 TXT34B EQU * @Z40LB64 08960003 EJECT @Z40LB64 08970003 ************************************************************ @Z40LB64 08980003 * * @Z40LB64 08990003 * 'VIRTUAL VOLUME ADDRESS' (FIELD NAME) * @Z40LB64 09000003 * * @Z40LB64 09010003 ************************************************************ @Z40LB64 09020003 SPACE 1 @Z40LB64 09030003 TXT35 DC Y(TXT35B-TXT35A) ENTRY LENGTH @Z40LB64 09040003 DC H'0' @Z40LB64 09050003 SPACE 1 @Z40LB64 09060003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 09070003 TXT35A DC X'8400' STATIC TEXT FLAGS @Z40LB64 09080003 DC Y(STE35B-STE35A) TEXT LENGTH @Z40LB64 09090003 DC Y(STE35A-TXT35A) TEXT OFFSET @Z40LB64 09100003 DC H'1' PRINT COLUMN @Z40LB64 09110003 DC Y(STE35B-STE35A) PRINT FIELD LENGTH @Z40LB64 09120003 DC H'0' CONVERSION FLAGS @Z40LB64 09130003 SPACE 1 @Z40LB64 09140003 * STATIC TEXT ENTRY @Z40LB64 09150003 STE35A DC YL1(STE35B-MSG35) FIELD NAME LENGTH @Z40LB64 09160003 DC FL1'0' RESERVED @Z40LB64 09170003 DC FL1'4' VALUE INPUT LENGTH @Z40LB64 09180003 DC FL1'3' VALUE OUTPUT LENGTH @Z40LB64 09190003 DC X'10A0' VALUE CONVERSION @Z40LB64 09200003 MSG35 DC C'VIRTUAL VOLUME ADDRESS' @Z40LB64 09210003 STE35B EQU * @Z40LB64 09220003 TXT35B EQU * @Z40LB64 09230003 EJECT @Z40LB64 09240003 ************************************************************ @Z40LB64 09250003 * * @Z40LB64 09260003 * 'VIRTUAL PAGE' (FIELD NAME) * @Z40LB64 09270003 * * @Z40LB64 09280003 ************************************************************ @Z40LB64 09290003 SPACE 1 @Z40LB64 09300003 TXT36 DC Y(TXT36B-TXT36A) ENTRY LENGTH @Z40LB64 09310003 DC H'0' @Z40LB64 09320003 SPACE 1 @Z40LB64 09330003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 09340003 TXT36A DC X'8400' STATIC TEXT FLAGS @Z40LB64 09350003 DC Y(STE36B-STE36A) TEXT LENGTH @Z40LB64 09360003 DC Y(STE36A-TXT36A) TEXT OFFSET @Z40LB64 09370003 DC H'1' PRINT COLUMN @Z40LB64 09380003 DC Y(STE36B-STE36A) PRINT FIELD LENGTH @Z40LB64 09390003 DC H'0' CONVERSION FLAGS @Z40LB64 09400003 SPACE 1 @Z40LB64 09410003 * STATIC TEXT ENTRY @Z40LB64 09420003 STE36A DC YL1(STE36B-MSG36) FIELD NAME LENGTH @Z40LB64 09430003 DC FL1'0' RESERVED @Z40LB64 09440003 DC FL1'4' VALUE INPUT LENGTH @Z40LB64 09450003 DC FL1'3' VALUE OUTPUT LENGTH @Z40LB64 09460003 DC X'10A0' VALUE CONVERSION @Z40LB64 09470003 MSG36 DC C'VIRTUAL PAGE' @Z40LB64 09480003 STE36B EQU * @Z40LB64 09490003 TXT36B EQU * @Z40LB64 09500003 EJECT @Z40LB64 09510003 ************************************************************ @Z40LB64 09520003 * * @Z40LB64 09530003 * 'REAL UNIT ADDRESS' (FIELD NAME) * @Z40LB64 09540003 * * @Z40LB64 09550003 ************************************************************ @Z40LB64 09560003 SPACE 1 @Z40LB64 09570003 TXT37 DC Y(TXT37B-TXT37A) ENTRY LENGTH @Z40LB64 09580003 DC H'0' @Z40LB64 09590003 SPACE 1 @Z40LB64 09600003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 09610003 TXT37A DC X'8400' STATIC TEXT FLAGS @Z40LB64 09620003 DC Y(STE37B-STE37A) TEXT LENGTH @Z40LB64 09630003 DC Y(STE37A-TXT37A) TEXT OFFSET @Z40LB64 09640003 DC H'1' PRINT COLUMN @Z40LB64 09650003 DC Y(STE37B-STE37A) PRINT FIELD LENGTH @Z40LB64 09660003 DC H'0' CONVERSION FLAGS @Z40LB64 09670003 SPACE 1 @Z40LB64 09680003 * STATIC TEXT ENTRY @Z40LB64 09690003 STE37A DC YL1(STE37B-MSG37) FIELD NAME LENGTH @Z40LB64 09700003 DC FL1'0' RESERVED @Z40LB64 09710003 DC FL1'4' VALUE INPUT LENGTH @Z40LB64 09720003 DC FL1'3' VALUE OUTPUT LENGTH @Z40LB64 09730003 DC X'10A0' VALUE CONVERSION @Z40LB64 09740003 MSG37 DC C'REAL UNIT ADDRESS' @Z40LB64 09750003 STE37B EQU * @Z40LB64 09760003 TXT37B EQU * @Z40LB64 09770003 EJECT @Z40LB64 09780003 ************************************************************ @Z40LB64 09790003 * * @Z40LB64 09800003 * 'STAGING ADAPTER IDENTIFIER' (FIELD NAME) * @Z40LB64 09810003 * * @Z40LB64 09820003 ************************************************************ @Z40LB64 09830003 SPACE 1 @Z40LB64 09840003 TXT38 DC Y(TXT38B-TXT38A) ENTRY LENGTH @Z40LB64 09850003 DC H'0' @Z40LB64 09860003 SPACE 1 @Z40LB64 09870003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 09880003 TXT38A DC X'8400' STATIC TEXT FLAGS @Z40LB64 09890003 DC Y(STE38B-STE38A) TEXT LENGTH @Z40LB64 09900003 DC Y(STE38A-TXT38A) TEXT OFFSET @Z40LB64 09910003 DC H'1' PRINT COLUMN @Z40LB64 09920003 DC Y(STE38B-STE38A) PRINT FIELD LENGTH @Z40LB64 09930003 DC H'0' CONVERSION FLAGS @Z40LB64 09940003 SPACE 1 @Z40LB64 09950003 * STATIC TEXT ENTRY @Z40LB64 09960003 STE38A DC YL1(STE38B-MSG38) FIELD NAME LENGTH @Z40LB64 09970003 DC FL1'0' RESERVED @Z40LB64 09980003 DC FL1'4' VALUE INPUT LENGTH @Z40LB64 09990003 DC FL1'2' VALUE OUTPUT LENGTH @Z40LB64 10000003 DC X'10A0' VALUE CONVERSION @Z40LB64 10010003 MSG38 DC C'STAGING ADAPTER IDENTIFIER' @Z40LB64 10020003 STE38B EQU * @Z40LB64 10030003 TXT38B EQU * @Z40LB64 10040003 EJECT @Z40LB64 10050003 ************************************************************ @Z40LB64 10060003 * * @Z40LB64 10070003 * 'FREE PAGE ALLOCATION STATUS' (FIELD NAME) * @Z40LB64 10080003 * * @Z40LB64 10090003 ************************************************************ @Z40LB64 10100003 SPACE 1 @Z40LB64 10110003 TXT39 DC Y(TXT39B-TXT39A) ENTRY LENGTH @Z40LB64 10120003 DC H'0' @Z40LB64 10130003 SPACE 1 @Z40LB64 10140003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 10150003 TXT39A DC X'8400' STATIC TEXT FLAGS @Z40LB64 10160003 DC Y(STE39B-STE39A) TEXT LENGTH @Z40LB64 10170003 DC Y(STE39A-TXT39A) TEXT OFFSET @Z40LB64 10180003 DC H'1' PRINT COLUMN @Z40LB64 10190003 DC Y(STE39B-STE39A) PRINT FIELD LENGTH @Z40LB64 10200003 DC H'0' CONVERSION FLAGS @Z40LB64 10210003 SPACE 1 @Z40LB64 10220003 * STATIC TEXT ENTRY @Z40LB64 10230003 STE39A DC YL1(STE39B-MSG39) FIELD NAME LENGTH @Z40LB64 10240003 DC FL1'0' RESERVED @Z40LB64 10250003 DC FL1'3' VALUE INPUT LENGTH @Z40LB64 10260003 DC FL1'3' VALUE OUTPUT LENGTH @Z40LB64 10270003 DC X'0000' VALUE CONVERSION @Z40LB64 10280003 MSG39 DC C'FREE PAGE ALLOCATION STATUS' @Z40LB64 10290003 STE39B EQU * @Z40LB64 10300003 TXT39B EQU * @Z40LB64 10310003 EJECT @Z40LB64 10320003 ************************************************************ @Z40LB64 10330003 * * @Z40LB64 10340003 * 'FREE PAGE COUNTS' (FIELD NAME) * @Z40LB64 10350003 * * @Z40LB64 10360003 ************************************************************ @Z40LB64 10370003 SPACE 1 @Z40LB64 10380003 TXT40 DC Y(TXT40B-TXT40A) ENTRY LENGTH @Z40LB64 10390003 DC H'0' @Z40LB64 10400003 SPACE 1 @Z40LB64 10410003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 10420003 TXT40A DC X'8400' STATIC TEXT FLAGS @Z40LB64 10430003 DC Y(STE40B-STE40A) TEXT LENGTH @Z40LB64 10440003 DC Y(STE40A-TXT40A) TEXT OFFSET @Z40LB64 10450003 DC H'1' PRINT COLUMN @Z40LB64 10460003 DC Y(STE40B-STE40A) PRINT FIELD LENGTH @Z40LB64 10470003 DC H'0' CONVERSION FLAGS @Z40LB64 10480003 SPACE 1 @Z40LB64 10490003 * STATIC TEXT ENTRY @Z40LB64 10500003 STE40A DC YL1(STE40B-MSG40) FIELD NAME LENGTH @Z40LB64 10510003 DC FL1'0' RESERVED @Z40LB64 10520003 DC FL1'4' VALUE INPUT LENGTH @Z40LB64 10530003 DC FL1'5' VALUE OUTPUT LENGTH @Z40LB64 10540003 DC X'10A0' VALUE CONVERSION @Z40LB64 10550003 MSG40 DC C'FREE PAGE COUNTS' @Z40LB64 10560003 STE40B EQU * @Z40LB64 10570003 TXT40B EQU * @Z40LB64 10580003 EJECT @Z40LB64 10590003 ************************************************************ @Z40LB64 10600003 * * @Z40LB64 10610003 * 'ACTIVE PAGE COUNTS' (FIELD NAME) * @Z40LB64 10620003 * * @Z40LB64 10630003 ************************************************************ @Z40LB64 10640003 SPACE 1 @Z40LB64 10650003 TXT41 DC Y(TXT41B-TXT41A) ENTRY LENGTH @Z40LB64 10660003 DC H'0' @Z40LB64 10670003 SPACE 1 @Z40LB64 10680003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 10690003 TXT41A DC X'8400' STATIC TEXT FLAGS @Z40LB64 10700003 DC Y(STE41B-STE41A) TEXT LENGTH @Z40LB64 10710003 DC Y(STE41A-TXT41A) TEXT OFFSET @Z40LB64 10720003 DC H'1' PRINT COLUMN @Z40LB64 10730003 DC Y(STE41B-STE41A) PRINT FIELD LENGTH @Z40LB64 10740003 DC H'0' CONVERSION FLAGS @Z40LB64 10750003 SPACE 1 @Z40LB64 10760003 * STATIC TEXT ENTRY @Z40LB64 10770003 STE41A DC YL1(STE41B-MSG41) FIELD NAME LENGTH @Z40LB64 10780003 DC FL1'0' RESERVED @Z40LB64 10790003 DC FL1'4' VALUE INPUT LENGTH @Z40LB64 10800003 DC FL1'5' VALUE OUTPUT LENGTH @Z40LB64 10810003 DC X'10A0' VALUE CONVERSION @Z40LB64 10820003 MSG41 DC C'ACTIVE PAGE COUNTS' @Z40LB64 10830003 STE41B EQU * @Z40LB64 10840003 TXT41B EQU * @Z40LB64 10850003 EJECT @Z40LB64 10860003 ************************************************************ @Z40LB64 10870003 * * @Z40LB64 10880003 * 'INACTIVE PAGE COUNTS' (FIELD NAME) * @Z40LB64 10890003 * * @Z40LB64 10900003 ************************************************************ @Z40LB64 10910003 SPACE 1 @Z40LB64 10920003 TXT42 DC Y(TXT42B-TXT42A) ENTRY LENGTH @Z40LB64 10930003 DC H'0' @Z40LB64 10940003 SPACE 1 @Z40LB64 10950003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 10960003 TXT42A DC X'8400' STATIC TEXT FLAGS @Z40LB64 10970003 DC Y(STE42B-STE42A) TEXT LENGTH @Z40LB64 10980003 DC Y(STE42A-TXT42A) TEXT OFFSET @Z40LB64 10990003 DC H'1' PRINT COLUMN @Z40LB64 11000003 DC Y(STE42B-STE42A) PRINT FIELD LENGTH @Z40LB64 11010003 DC H'0' CONVERSION FLAGS @Z40LB64 11020003 SPACE 1 @Z40LB64 11030003 * STATIC TEXT ENTRY @Z40LB64 11040003 STE42A DC YL1(STE42B-MSG42) FIELD NAME LENGTH @Z40LB64 11050003 DC FL1'0' RESERVED @Z40LB64 11060003 DC FL1'4' VALUE INPUT LENGTH @Z40LB64 11070003 DC FL1'5' VALUE OUTPUT LENGTH @Z40LB64 11080003 DC X'10A0' VALUE CONVERSION @Z40LB64 11090003 MSG42 DC C'INACTIVE PAGE COUNTS' @Z40LB64 11100003 STE42B EQU * @Z40LB64 11110003 TXT42B EQU * @Z40LB64 11120003 EJECT @Z40LB64 11130003 ************************************************************ @Z40LB64 11140003 * * @Z40LB64 11150003 * 'BOUND PAGE COUNTS' (FIELD NAME) * @Z40LB64 11160003 * * @Z40LB64 11170003 ************************************************************ @Z40LB64 11180003 SPACE 1 @Z40LB64 11190003 TXT43 DC Y(TXT43B-TXT43A) ENTRY LENGTH @Z40LB64 11200003 DC H'0' @Z40LB64 11210003 SPACE 1 @Z40LB64 11220003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 11230003 TXT43A DC X'8400' STATIC TEXT FLAGS @Z40LB64 11240003 DC Y(STE43B-STE43A) TEXT LENGTH @Z40LB64 11250003 DC Y(STE43A-TXT43A) TEXT OFFSET @Z40LB64 11260003 DC H'1' PRINT COLUMN @Z40LB64 11270003 DC Y(STE43B-STE43A) PRINT FIELD LENGTH @Z40LB64 11280003 DC H'0' CONVERSION FLAGS @Z40LB64 11290003 SPACE 1 @Z40LB64 11300003 * STATIC TEXT ENTRY @Z40LB64 11310003 STE43A DC YL1(STE43B-MSG43) FIELD NAME LENGTH @Z40LB64 11320003 DC FL1'0' RESERVED @Z40LB64 11330003 DC FL1'4' VALUE INPUT LENGTH @Z40LB64 11340003 DC FL1'5' VALUE OUTPUT LENGTH @Z40LB64 11350003 DC X'10A0' VALUE CONVERSION @Z40LB64 11360003 MSG43 DC C'BOUND PAGE COUNTS' @Z40LB64 11370003 STE43B EQU * @Z40LB64 11380003 TXT43B EQU * @Z40LB64 11390003 EJECT @Z40LB64 11400003 ************************************************************ @Z40LB64 11410003 * * @Z40LB64 11420003 * 'MOUNTED VOLUME TABLE POINTER' (FIELD NAME) * @Z40LB64 11430003 * * @Z40LB64 11440003 ************************************************************ @Z40LB64 11450003 SPACE 1 @Z40LB64 11460003 TXT44 DC Y(TXT44B-TXT44A) ENTRY LENGTH @Z40LB64 11470003 DC H'0' @Z40LB64 11480003 SPACE 1 @Z40LB64 11490003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 11500003 TXT44A DC X'8400' STATIC TEXT FLAGS @Z40LB64 11510003 DC Y(STE44B-STE44A) TEXT LENGTH @Z40LB64 11520003 DC Y(STE44A-TXT44A) TEXT OFFSET @Z40LB64 11530003 DC H'1' PRINT COLUMN @Z40LB64 11540003 DC Y(STE44B-STE44A) PRINT FIELD LENGTH @Z40LB64 11550003 DC H'0' CONVERSION FLAGS @Z40LB64 11560003 SPACE 1 @Z40LB64 11570003 * STATIC TEXT ENTRY @Z40LB64 11580003 STE44A DC YL1(STE44B-MSG44) FIELD NAME LENGTH @Z40LB64 11590003 DC FL1'0' RESERVED @Z40LB64 11600003 DC FL1'4' VALUE INPUT LENGTH @Z40LB64 11610003 DC FL1'5' VALUE OUTPUT LENGTH @Z40LB64 11620003 DC X'10A0' VALUE CONVERSION @Z40LB64 11630003 MSG44 DC C'MOUNTED VOLUME TABLE POINTER' @Z40LB64 11640003 STE44B EQU * @Z40LB64 11650003 TXT44B EQU * @Z40LB64 11660003 EJECT @Z40LB64 11670003 ************************************************************ @Z40LB64 11680003 * * @Z40LB64 11690003 * 'CELL ADDRESS (MSF-X-Y-Z)' (FIELD NAME) * @Z40LB64 11700003 * * @Z40LB64 11710003 ************************************************************ @Z40LB64 11720003 SPACE 1 @Z40LB64 11730003 TXT45 DC Y(TXT45B-TXT45A) ENTRY LENGTH @Z40LB64 11740003 DC H'0' @Z40LB64 11750003 SPACE 1 @Z40LB64 11760003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 11770003 TXT45A DC X'8400' STATIC TEXT FLAGS @Z40LB64 11780003 DC Y(STE45B-STE45A) TEXT LENGTH @Z40LB64 11790003 DC Y(STE45A-TXT45A) TEXT OFFSET @Z40LB64 11800003 DC H'1' PRINT COLUMN @Z40LB64 11810003 DC Y(STE45B-STE45A) PRINT FIELD LENGTH @Z40LB64 11820003 DC H'0' CONVERSION FLAGS @Z40LB64 11830003 SPACE 1 @Z40LB64 11840003 * STATIC TEXT ENTRY @Z40LB64 11850003 STE45A DC YL1(STE45B-MSG45) FIELD NAME LENGTH @Z40LB64 11860003 DC FL1'0' RESERVED @Z40LB64 11870003 DC FL1'10' VALUE INPUT LENGTH @Z40LB64 11880003 DC FL1'10' VALUE OUTPUT LENGTH @Z40LB64 11890003 DC X'0000' VALUE CONVERSION @Z40LB64 11900003 MSG45 DC C'CELL ADDRESS (MSF-X-Y-Z)' @Z40LB64 11910003 STE45B EQU * @Z40LB64 11920003 TXT45B EQU * @Z40LB64 11930003 EJECT @Z40LB64 11940003 ************************************************************ @Z40LB64 11950003 * * @Z40LB64 11960003 * 'CELL OCCUPIED STATUS' (FIELD NAME) * @Z40LB64 11970003 * * @Z40LB64 11980003 ************************************************************ @Z40LB64 11990003 SPACE 1 @Z40LB64 12000003 TXT46 DC Y(TXT46B-TXT46A) ENTRY LENGTH @Z40LB64 12010003 DC H'0' @Z40LB64 12020003 SPACE 1 @Z40LB64 12030003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 12040003 TXT46A DC X'8400' STATIC TEXT FLAGS @Z40LB64 12050003 DC Y(STE46B-STE46A) TEXT LENGTH @Z40LB64 12060003 DC Y(STE46A-TXT46A) TEXT OFFSET @Z40LB64 12070003 DC H'1' PRINT COLUMN @Z40LB64 12080003 DC Y(STE46B-STE46A) PRINT FIELD LENGTH @Z40LB64 12090003 DC H'0' CONVERSION FLAGS @Z40LB64 12100003 SPACE 1 @Z40LB64 12110003 * STATIC TEXT ENTRY @Z40LB64 12120003 STE46A DC YL1(STE46B-MSG46) FIELD NAME LENGTH @Z40LB64 12130003 DC FL1'0' RESERVED @Z40LB64 12140003 DC FL1'3' VALUE INPUT LENGTH @Z40LB64 12150003 DC FL1'3' VALUE OUTPUT LENGTH @Z40LB64 12160003 DC X'0000' VALUE CONVERSION @Z40LB64 12170003 MSG46 DC C'CELL OCCUPIED STATUS' @Z40LB64 12180003 STE46B EQU * @Z40LB64 12190003 TXT46B EQU * @Z40LB64 12200003 EJECT @Z40LB64 12210003 ************************************************************ @Z40LB64 12220003 * * @Z40LB64 12230003 * 'CPU IDENTIFIER' (FIELD NAME) * @Z40LB64 12240003 * * @Z40LB64 12250003 ************************************************************ @Z40LB64 12260003 SPACE 1 @Z40LB64 12270003 TXT47 DC Y(TXT47B-TXT47A) ENTRY LENGTH @Z40LB64 12280003 DC H'0' @Z40LB64 12290003 SPACE 1 @Z40LB64 12300003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 12310003 TXT47A DC X'8400' STATIC TEXT FLAGS @Z40LB64 12320003 DC Y(STE47B-STE47A) TEXT LENGTH @Z40LB64 12330003 DC Y(STE47A-TXT47A) TEXT OFFSET @Z40LB64 12340003 DC H'1' PRINT COLUMN @Z40LB64 12350003 DC Y(STE47B-STE47A) PRINT FIELD LENGTH @Z40LB64 12360003 DC H'0' CONVERSION FLAGS @Z40LB64 12370003 SPACE 1 @Z40LB64 12380003 * STATIC TEXT ENTRY @Z40LB64 12390003 STE47A DC YL1(STE47B-MSG47) FIELD NAME LENGTH @Z40LB64 12400003 DC FL1'0' RESERVED @Z40LB64 12410003 DC FL1'4' VALUE INPUT LENGTH @Z40LB64 12420003 DC FL1'2' VALUE OUTPUT LENGTH @Z40LB64 12430003 DC X'10A0' VALUE CONVERSION @Z40LB64 12440003 MSG47 DC C'CPU IDENTIFIER' @Z40LB64 12450003 STE47B EQU * @Z40LB64 12460003 TXT47B EQU * @Z40LB64 12470003 EJECT @Z40LB64 12480003 ************************************************************ @Z40LB64 12490003 * * @Z40LB64 12500003 * 'STAGING DRIVE GROUP INDEX' (FIELD NAME) * @Z40LB64 12510003 * * @Z40LB64 12520003 ************************************************************ @Z40LB64 12530003 SPACE 1 @Z40LB64 12540003 TXT48 DC Y(TXT48B-TXT48A) ENTRY LENGTH @Z40LB64 12550003 DC H'0' @Z40LB64 12560003 SPACE 1 @Z40LB64 12570003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 12580003 TXT48A DC X'8400' STATIC TEXT FLAGS @Z40LB64 12590003 DC Y(STE48B-STE48A) TEXT LENGTH @Z40LB64 12600003 DC Y(STE48A-TXT48A) TEXT OFFSET @Z40LB64 12610003 DC H'1' PRINT COLUMN @Z40LB64 12620003 DC Y(STE48B-STE48A) PRINT FIELD LENGTH @Z40LB64 12630003 DC H'0' CONVERSION FLAGS @Z40LB64 12640003 SPACE 1 @Z40LB64 12650003 * STATIC TEXT ENTRY @Z40LB64 12660003 STE48A DC YL1(STE48B-MSG48) FIELD NAME LENGTH @Z40LB64 12670003 DC FL1'0' RESERVED @Z40LB64 12680003 DC FL1'4' VALUE INPUT LENGTH @Z40LB64 12690003 DC FL1'2' VALUE OUTPUT LENGTH @Z40LB64 12700003 DC X'10A0' VALUE CONVERSION @Z40LB64 12710003 MSG48 DC C'STAGING DRIVE GROUP INDEX' @Z40LB64 12720003 STE48B EQU * @Z40LB64 12730003 TXT48B EQU * @Z40LB64 12740003 EJECT @Z40LB64 12750003 ************************************************************ @Z40LB64 12760003 * * @Z40LB64 12770003 * 'LOGICAL 3333 ADDRESS' (FIELD NAME) * @Z40LB64 12780003 * * @Z40LB64 12790003 ************************************************************ @Z40LB64 12800003 SPACE 1 @Z40LB64 12810003 TXT49 DC Y(TXT49B-TXT49A) ENTRY LENGTH @Z40LB64 12820003 DC H'0' @Z40LB64 12830003 SPACE 1 @Z40LB64 12840003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 12850003 TXT49A DC X'8400' STATIC TEXT FLAGS @Z40LB64 12860003 DC Y(STE49B-STE49A) TEXT LENGTH @Z40LB64 12870003 DC Y(STE49A-TXT49A) TEXT OFFSET @Z40LB64 12880003 DC H'1' PRINT COLUMN @Z40LB64 12890003 DC Y(STE49B-STE49A) PRINT FIELD LENGTH @Z40LB64 12900003 DC H'0' CONVERSION FLAGS @Z40LB64 12910003 SPACE 1 @Z40LB64 12920003 * STATIC TEXT ENTRY @Z40LB64 12930003 STE49A DC YL1(STE49B-MSG49) FIELD NAME LENGTH @Z40LB64 12940003 DC FL1'0' RESERVED @Z40LB64 12950003 DC FL1'4' VALUE INPUT LENGTH @Z40LB64 12960003 DC FL1'1' VALUE OUTPUT LENGTH @Z40LB64 12970003 DC X'10A0' VALUE CONVERSION @Z40LB64 12980003 MSG49 DC C'LOGICAL 3333 ADDRESS' @Z40LB64 12990003 STE49B EQU * @Z40LB64 13000003 TXT49B EQU * @Z40LB64 13010003 EJECT @Z40LB64 13020003 ************************************************************ @Z40LB64 13030003 * * @Z40LB64 13040003 * 'CARTRIDGE SERIAL NUMBER' (FIELD NAME) * @Z40LB64 13050003 * * @Z40LB64 13060003 ************************************************************ @Z40LB64 13070003 SPACE 1 @Z40LB64 13080003 TXT50 DC Y(TXT50B-TXT50A) ENTRY LENGTH @Z40LB64 13090003 DC H'0' @Z40LB64 13100003 SPACE 1 @Z40LB64 13110003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 13120003 TXT50A DC X'8400' STATIC TEXT FLAGS @Z40LB64 13130003 DC Y(STE50B-STE50A) TEXT LENGTH @Z40LB64 13140003 DC Y(STE50A-TXT50A) TEXT OFFSET @Z40LB64 13150003 DC H'1' PRINT COLUMN @Z40LB64 13160003 DC Y(STE50B-STE50A) PRINT FIELD LENGTH @Z40LB64 13170003 DC H'0' CONVERSION FLAGS @Z40LB64 13180003 SPACE 1 @Z40LB64 13190003 * STATIC TEXT ENTRY @Z40LB64 13200003 STE50A DC YL1(STE50B-MSG50) FIELD NAME LENGTH @Z40LB64 13210003 DC FL1'0' RESERVED @Z40LB64 13220003 DC FL1'12' VALUE INPUT LENGTH @Z40LB64 13230003 DC FL1'12' VALUE OUTPUT LENGTH @Z40LB64 13240003 DC X'0000' VALUE CONVERSION @Z40LB64 13250003 MSG50 DC C'CARTRIDGE SERIAL NUMBER' @Z40LB64 13260003 STE50B EQU * @Z40LB64 13270003 TXT50B EQU * @Z40LB64 13280003 EJECT @Z40LB64 13290003 ************************************************************ @Z40LB64 13300003 * * @Z40LB64 13310003 * 'LRU DELTAS' (FIELD NAME) * @Z40LB64 13320003 * * @Z40LB64 13330003 ************************************************************ @Z40LB64 13340003 SPACE 1 @Z40LB64 13350003 TXT51 DC Y(TXT51B-TXT51A) ENTRY LENGTH @Z40LB64 13360003 DC H'0' @Z40LB64 13370003 SPACE 1 @Z40LB64 13380003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 13390003 TXT51A DC X'8400' STATIC TEXT FLAGS @Z40LB64 13400003 DC Y(STE51B-STE51A) TEXT LENGTH @Z40LB64 13410003 DC Y(STE51A-TXT51A) TEXT OFFSET @Z40LB64 13420003 DC H'1' PRINT COLUMN @Z40LB64 13430003 DC Y(STE51B-STE51A) PRINT FIELD LENGTH @Z40LB64 13440003 DC H'0' CONVERSION FLAGS @Z40LB64 13450003 SPACE 1 @Z40LB64 13460003 * STATIC TEXT ENTRY @Z40LB64 13470003 STE51A DC YL1(STE51B-MSG51) FIELD NAME LENGTH @Z40LB64 13480003 DC FL1'0' RESERVED @Z40LB64 13490003 DC FL1'4' VALUE INPUT LENGTH @Z40LB64 13500003 DC FL1'5' VALUE OUTPUT LENGTH @Z40LB64 13510003 DC X'10A0' VALUE CONVERSION @Z40LB64 13520003 MSG51 DC C'LRU DELTAS' @Z40LB64 13530003 STE51B EQU * @Z40LB64 13540003 TXT51B EQU * @Z40LB64 13550003 EJECT @Z40LB64 13560003 ************************************************************ @Z40LB64 13570003 * * @Z40LB64 13580003 * 'MOUNTED VOLUMES' (FIELD NAME) * @Z40LB64 13590003 * * @Z40LB64 13600003 ************************************************************ @Z40LB64 13610003 SPACE 1 @Z40LB64 13620003 TXT52 DC Y(TXT52B-TXT52A) ENTRY LENGTH @Z40LB64 13630003 DC H'0' @Z40LB64 13640003 SPACE 1 @Z40LB64 13650003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 13660003 TXT52A DC X'8400' STATIC TEXT FLAGS @Z40LB64 13670003 DC Y(STE52B-STE52A) TEXT LENGTH @Z40LB64 13680003 DC Y(STE52A-TXT52A) TEXT OFFSET @Z40LB64 13690003 DC H'1' PRINT COLUMN @Z40LB64 13700003 DC Y(STE52B-STE52A) PRINT FIELD LENGTH @Z40LB64 13710003 DC H'0' CONVERSION FLAGS @Z40LB64 13720003 SPACE 1 @Z40LB64 13730003 * STATIC TEXT ENTRY @Z40LB64 13740003 STE52A DC YL1(STE52B-MSG52) FIELD NAME LENGTH @Z40LB64 13750003 DC FL1'0' RESERVED @Z40LB64 13760003 DC FL1'4' VALUE INPUT LENGTH @Z40LB64 13770003 DC FL1'5' VALUE OUTPUT LENGTH @Z40LB64 13780003 DC X'10A0' VALUE CONVERSION @Z40LB64 13790003 MSG52 DC C'MOUNTED VOLUMES' @Z40LB64 13800003 STE52B EQU * @Z40LB64 13810003 TXT52B EQU * @Z40LB64 13820003 EJECT @Z40LB64 13830003 ************************************************************ @Z40LB64 13840003 * * @Z40LB64 13850003 * 'VIRTUAL UNIT ADDRESS' (FIELD NAME) * @Z40LB64 13860003 * * @Z40LB64 13870003 ************************************************************ @Z40LB64 13880003 SPACE 1 @Z40LB64 13890003 TXT53 DC Y(TXT53B-TXT53A) ENTRY LENGTH @Z40LB64 13900003 DC H'0' @Z40LB64 13910003 SPACE 1 @Z40LB64 13920003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 13930003 TXT53A DC X'8400' STATIC TEXT FLAGS @Z40LB64 13940003 DC Y(STE53B-STE53A) TEXT LENGTH @Z40LB64 13950003 DC Y(STE53A-TXT53A) TEXT OFFSET @Z40LB64 13960003 DC H'1' PRINT COLUMN @Z40LB64 13970003 DC Y(STE53B-STE53A) PRINT FIELD LENGTH @Z40LB64 13980003 DC H'0' CONVERSION FLAGS @Z40LB64 13990003 SPACE 1 @Z40LB64 14000003 * STATIC TEXT ENTRY @Z40LB64 14010003 STE53A DC YL1(STE53B-MSG53) FIELD NAME LENGTH @Z40LB64 14020003 DC FL1'0' RESERVED @Z40LB64 14030003 DC FL1'4' VALUE INPUT LENGTH @Z40LB64 14040003 DC FL1'2' VALUE OUTPUT LENGTH @Z40LB64 14050003 DC X'10A0' VALUE CONVERSION @Z40LB64 14060003 MSG53 DC C'VIRTUAL UNIT ADDRESS' @Z40LB64 14070003 STE53B EQU * @Z40LB64 14080003 TXT53B EQU * @Z40LB64 14090003 EJECT @Z40LB64 14100003 ************************************************************ @Z40LB64 14110003 * * @Z40LB64 14120003 * 'BOUND PAGE ALLOCATION STATUS' (FIELD NAME) * @Z40LB64 14130003 * * @Z40LB64 14140003 ************************************************************ @Z40LB64 14150003 SPACE 1 @Z40LB64 14160003 TXT54 DC Y(TXT54B-TXT54A) ENTRY LENGTH @Z40LB64 14170003 DC H'0' @Z40LB64 14180003 SPACE 1 @Z40LB64 14190003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 14200003 TXT54A DC X'8400' STATIC TEXT FLAGS @Z40LB64 14210003 DC Y(STE54B-STE54A) TEXT LENGTH @Z40LB64 14220003 DC Y(STE54A-TXT54A) TEXT OFFSET @Z40LB64 14230003 DC H'1' PRINT COLUMN @Z40LB64 14240003 DC Y(STE54B-STE54A) PRINT FIELD LENGTH @Z40LB64 14250003 DC H'0' CONVERSION FLAGS @Z40LB64 14260003 SPACE 1 @Z40LB64 14270003 * STATIC TEXT ENTRY @Z40LB64 14280003 STE54A DC YL1(STE54B-MSG54) FIELD NAME LENGTH @Z40LB64 14290003 DC FL1'0' RESERVED @Z40LB64 14300003 DC FL1'3' VALUE INPUT LENGTH @Z40LB64 14310003 DC FL1'3' VALUE OUTPUT LENGTH @Z40LB64 14320003 DC X'0000' VALUE CONVERSION @Z40LB64 14330003 MSG54 DC C'BOUND PAGE ALLOCATION STATUS' @Z40LB64 14340003 STE54B EQU * @Z40LB64 14350003 TXT54B EQU * @Z40LB64 14360003 EJECT @Z40LB64 14370003 ************************************************************ @Z40LB64 14380003 * * @Z40LB64 14390003 * 'DEVICE VALID STATUS' (FIELD NAME) * @Z40LB64 14400003 * * @Z40LB64 14410003 ************************************************************ @Z40LB64 14420003 SPACE 1 @Z40LB64 14430003 TXT55 DC Y(TXT55B-TXT55A) ENTRY LENGTH @Z40LB64 14440003 DC H'0' @Z40LB64 14450003 SPACE 1 @Z40LB64 14460003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 14470003 TXT55A DC X'8400' STATIC TEXT FLAGS @Z40LB64 14480003 DC Y(STE55B-STE55A) TEXT LENGTH @Z40LB64 14490003 DC Y(STE55A-TXT55A) TEXT OFFSET @Z40LB64 14500003 DC H'1' PRINT COLUMN @Z40LB64 14510003 DC Y(STE55B-STE55A) PRINT FIELD LENGTH @Z40LB64 14520003 DC H'0' CONVERSION FLAGS @Z40LB64 14530003 SPACE 1 @Z40LB64 14540003 * STATIC TEXT ENTRY @Z40LB64 14550003 STE55A DC YL1(STE55B-MSG55) FIELD NAME LENGTH @Z40LB64 14560003 DC FL1'0' RESERVED @Z40LB64 14570003 DC FL1'3' VALUE INPUT LENGTH @Z40LB64 14580003 DC FL1'3' VALUE OUTPUT LENGTH @Z40LB64 14590003 DC X'0000' VALUE CONVERSION @Z40LB64 14600003 MSG55 DC C'DEVICE VALID STATUS' @Z40LB64 14610003 STE55B EQU * @Z40LB64 14620003 TXT55B EQU * @Z40LB64 14630003 EJECT @Z40LB64 14640003 ************************************************************ @Z40LB64 14650003 * * @Z40LB64 14660003 * 'DEVICE ONLINE STATUS' (FIELD NAME) * @Z40LB64 14670003 * * @Z40LB64 14680003 ************************************************************ @Z40LB64 14690003 SPACE 1 @Z40LB64 14700003 TXT56 DC Y(TXT56B-TXT56A) ENTRY LENGTH @Z40LB64 14710003 DC H'0' @Z40LB64 14720003 SPACE 1 @Z40LB64 14730003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 14740003 TXT56A DC X'8400' STATIC TEXT FLAGS @Z40LB64 14750003 DC Y(STE56B-STE56A) TEXT LENGTH @Z40LB64 14760003 DC Y(STE56A-TXT56A) TEXT OFFSET @Z40LB64 14770003 DC H'1' PRINT COLUMN @Z40LB64 14780003 DC Y(STE56B-STE56A) PRINT FIELD LENGTH @Z40LB64 14790003 DC H'0' CONVERSION FLAGS @Z40LB64 14800003 SPACE 1 @Z40LB64 14810003 * STATIC TEXT ENTRY @Z40LB64 14820003 STE56A DC YL1(STE56B-MSG56) FIELD NAME LENGTH @Z40LB64 14830003 DC FL1'0' RESERVED @Z40LB64 14840003 DC FL1'3' VALUE INPUT LENGTH @Z40LB64 14850003 DC FL1'3' VALUE OUTPUT LENGTH @Z40LB64 14860003 DC X'0000' VALUE CONVERSION @Z40LB64 14870003 MSG56 DC C'DEVICE ONLINE STATUS' @Z40LB64 14880003 STE56B EQU * @Z40LB64 14890003 TXT56B EQU * @Z40LB64 14900003 EJECT @Z40LB64 14910003 ************************************************************ @Z40LB64 14920003 * * @Z40LB64 14930003 * 'ADDRESS IN-USE STATUS' (FIELD NAME) * @Z40LB64 14940003 * * @Z40LB64 14950003 ************************************************************ @Z40LB64 14960003 SPACE 1 @Z40LB64 14970003 TXT57 DC Y(TXT57B-TXT57A) ENTRY LENGTH @Z40LB64 14980003 DC H'0' @Z40LB64 14990003 SPACE 1 @Z40LB64 15000003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 15010003 TXT57A DC X'8400' STATIC TEXT FLAGS @Z40LB64 15020003 DC Y(STE57B-STE57A) TEXT LENGTH @Z40LB64 15030003 DC Y(STE57A-TXT57A) TEXT OFFSET @Z40LB64 15040003 DC H'1' PRINT COLUMN @Z40LB64 15050003 DC Y(STE57B-STE57A) PRINT FIELD LENGTH @Z40LB64 15060003 DC H'0' CONVERSION FLAGS @Z40LB64 15070003 SPACE 1 @Z40LB64 15080003 * STATIC TEXT ENTRY @Z40LB64 15090003 STE57A DC YL1(STE57B-MSG57) FIELD NAME LENGTH @Z40LB64 15100003 DC FL1'0' RESERVED @Z40LB64 15110003 DC FL1'3' VALUE INPUT LENGTH @Z40LB64 15120003 DC FL1'3' VALUE OUTPUT LENGTH @Z40LB64 15130003 DC X'0000' VALUE CONVERSION @Z40LB64 15140003 MSG57 DC C'ADDRESS IN-USE STATUS' @Z40LB64 15150003 STE57B EQU * @Z40LB64 15160003 TXT57B EQU * @Z40LB64 15170003 EJECT @Z40LB64 15180003 ************************************************************ @Z40LB64 15190003 * * @Z40LB64 15200003 * 'ALTERNATE PATH STATUS' (FIELD NAME) * @Z40LB64 15210003 * * @Z40LB64 15220003 ************************************************************ @Z40LB64 15230003 SPACE 1 @Z40LB64 15240003 TXT58 DC Y(TXT58B-TXT58A) ENTRY LENGTH @Z40LB64 15250003 DC H'0' @Z40LB64 15260003 SPACE 1 @Z40LB64 15270003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 15280003 TXT58A DC X'8400' STATIC TEXT FLAGS @Z40LB64 15290003 DC Y(STE58B-STE58A) TEXT LENGTH @Z40LB64 15300003 DC Y(STE58A-TXT58A) TEXT OFFSET @Z40LB64 15310003 DC H'1' PRINT COLUMN @Z40LB64 15320003 DC Y(STE58B-STE58A) PRINT FIELD LENGTH @Z40LB64 15330003 DC H'0' CONVERSION FLAGS @Z40LB64 15340003 SPACE 1 @Z40LB64 15350003 * STATIC TEXT ENTRY @Z40LB64 15360003 STE58A DC YL1(STE58B-MSG58) FIELD NAME LENGTH @Z40LB64 15370003 DC FL1'0' RESERVED @Z40LB64 15380003 DC FL1'3' VALUE INPUT LENGTH @Z40LB64 15390003 DC FL1'3' VALUE OUTPUT LENGTH @Z40LB64 15400003 DC X'0000' VALUE CONVERSION @Z40LB64 15410003 MSG58 DC C'ALTERNATE PATH STATUS' @Z40LB64 15420003 STE58B EQU * @Z40LB64 15430003 TXT58B EQU * @Z40LB64 15440003 EJECT @Z40LB64 15450003 ************************************************************ @Z40LB64 15460003 * * @Z40LB64 15470003 * 'VOLUME SHARED STATUS' (FIELD NAME) * @Z40LB64 15480003 * * @Z40LB64 15490003 ************************************************************ @Z40LB64 15500003 SPACE 1 @Z40LB64 15510003 TXT59 DC Y(TXT59B-TXT59A) ENTRY LENGTH @Z40LB64 15520003 DC H'0' @Z40LB64 15530003 SPACE 1 @Z40LB64 15540003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 15550003 TXT59A DC X'8400' STATIC TEXT FLAGS @Z40LB64 15560003 DC Y(STE59B-STE59A) TEXT LENGTH @Z40LB64 15570003 DC Y(STE59A-TXT59A) TEXT OFFSET @Z40LB64 15580003 DC H'1' PRINT COLUMN @Z40LB64 15590003 DC Y(STE59B-STE59A) PRINT FIELD LENGTH @Z40LB64 15600003 DC H'0' CONVERSION FLAGS @Z40LB64 15610003 SPACE 1 @Z40LB64 15620003 * STATIC TEXT ENTRY @Z40LB64 15630003 STE59A DC YL1(STE59B-MSG59) FIELD NAME LENGTH @Z40LB64 15640003 DC FL1'0' RESERVED @Z40LB64 15650003 DC FL1'3' VALUE INPUT LENGTH @Z40LB64 15660003 DC FL1'3' VALUE OUTPUT LENGTH @Z40LB64 15670003 DC X'0000' VALUE CONVERSION @Z40LB64 15680003 MSG59 DC C'VOLUME SHARED STATUS' @Z40LB64 15690003 STE59B EQU * @Z40LB64 15700003 TXT59B EQU * @Z40LB64 15710003 EJECT @Z40LB64 15720003 ************************************************************ @Z40LB64 15730003 * * @Z40LB64 15740003 * 'REAL PAGE' (FIELD NAME) * @Z40LB64 15750003 * * @Z40LB64 15760003 ************************************************************ @Z40LB64 15770003 SPACE 1 @Z40LB64 15780003 TXT60 DC Y(TXT60B-TXT60A) ENTRY LENGTH @Z40LB64 15790003 DC H'0' @Z40LB64 15800003 SPACE 1 @Z40LB64 15810003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 15820003 TXT60A DC X'8400' STATIC TEXT FLAGS @Z40LB64 15830003 DC Y(STE60B-STE60A) TEXT LENGTH @Z40LB64 15840003 DC Y(STE60A-TXT60A) TEXT OFFSET @Z40LB64 15850003 DC H'1' PRINT COLUMN @Z40LB64 15860003 DC Y(STE60B-STE60A) PRINT FIELD LENGTH @Z40LB64 15870003 DC H'0' CONVERSION FLAGS @Z40LB64 15880003 SPACE 1 @Z40LB64 15890003 * STATIC TEXT ENTRY @Z40LB64 15900003 STE60A DC YL1(STE60B-MSG60) FIELD NAME LENGTH @Z40LB64 15910003 DC FL1'0' RESERVED @Z40LB64 15920003 DC FL1'4' VALUE INPUT LENGTH @Z40LB64 15930003 DC FL1'2' VALUE OUTPUT LENGTH @Z40LB64 15940003 DC X'10A0' VALUE CONVERSION @Z40LB64 15950003 MSG60 DC C'REAL PAGE' @Z40LB64 15960003 STE60B EQU * @Z40LB64 15970003 TXT60B EQU * @Z40LB64 15980003 EJECT @Z40LB64 15990003 ************************************************************ @Z40LB64 16000003 * * @Z40LB64 16010003 * 'ACTIVE PAGE ALLOCATION STATUS' (FIELD NAME) * @Z40LB64 16020003 * * @Z40LB64 16030003 ************************************************************ @Z40LB64 16040003 SPACE 1 @Z40LB64 16050003 TXT61 DC Y(TXT61B-TXT61A) ENTRY LENGTH @Z40LB64 16060003 DC H'0' @Z40LB64 16070003 SPACE 1 @Z40LB64 16080003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 16090003 TXT61A DC X'8400' STATIC TEXT FLAGS @Z40LB64 16100003 DC Y(STE61B-STE61A) TEXT LENGTH @Z40LB64 16110003 DC Y(STE61A-TXT61A) TEXT OFFSET @Z40LB64 16120003 DC H'1' PRINT COLUMN @Z40LB64 16130003 DC Y(STE61B-STE61A) PRINT FIELD LENGTH @Z40LB64 16140003 DC H'0' CONVERSION FLAGS @Z40LB64 16150003 SPACE 1 @Z40LB64 16160003 * STATIC TEXT ENTRY @Z40LB64 16170003 STE61A DC YL1(STE61B-MSG61) FIELD NAME LENGTH @Z40LB64 16180003 DC FL1'0' RESERVED @Z40LB64 16190003 DC FL1'3' VALUE INPUT LENGTH @Z40LB64 16200003 DC FL1'3' VALUE OUTPUT LENGTH @Z40LB64 16210003 DC X'0000' VALUE CONVERSION @Z40LB64 16220003 MSG61 DC C'ACTIVE PAGE ALLOCATION STATUS' @Z40LB64 16230003 STE61B EQU * @Z40LB64 16240003 TXT61B EQU * @Z40LB64 16250003 EJECT @Z40LB64 16260003 ************************************************************ @Z40LB64 16270003 * * @Z40LB64 16280003 * 'INACTIVE PAGE ALLOCATION STATUS' (FIELD NAME) * @Z40LB64 16290003 * * @Z40LB64 16300003 ************************************************************ @Z40LB64 16310003 SPACE 1 @Z40LB64 16320003 TXT62 DC Y(TXT62B-TXT62A) ENTRY LENGTH @Z40LB64 16330003 DC H'0' @Z40LB64 16340003 SPACE 1 @Z40LB64 16350003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 16360003 TXT62A DC X'8400' STATIC TEXT FLAGS @Z40LB64 16370003 DC Y(STE62B-STE62A) TEXT LENGTH @Z40LB64 16380003 DC Y(STE62A-TXT62A) TEXT OFFSET @Z40LB64 16390003 DC H'1' PRINT COLUMN @Z40LB64 16400003 DC Y(STE62B-STE62A) PRINT FIELD LENGTH @Z40LB64 16410003 DC H'0' CONVERSION FLAGS @Z40LB64 16420003 SPACE 1 @Z40LB64 16430003 * STATIC TEXT ENTRY @Z40LB64 16440003 STE62A DC YL1(STE62B-MSG62) FIELD NAME LENGTH @Z40LB64 16450003 DC FL1'0' RESERVED @Z40LB64 16460003 DC FL1'3' VALUE INPUT LENGTH @Z40LB64 16470003 DC FL1'3' VALUE OUTPUT LENGTH @Z40LB64 16480003 DC X'0000' VALUE CONVERSION @Z40LB64 16490003 MSG62 DC C'INACTIVE PAGE ALLOCATION STATUS' @Z40LB64 16500003 STE62B EQU * @Z40LB64 16510003 TXT62B EQU * @Z40LB64 16520003 EJECT @Z40LB64 16530003 ************************************************************ @Z40LB64 16540003 * * @Z40LB64 16550003 * 'FREE PAGES' (FIELD NAME) * @Z40LB64 16560003 * * @Z40LB64 16570003 ************************************************************ @Z40LB64 16580003 SPACE 1 @Z40LB64 16590003 TXT63 DC Y(TXT63B-TXT63A) ENTRY LENGTH @Z40LB64 16600003 DC H'0' @Z40LB64 16610003 SPACE 1 @Z40LB64 16620003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 16630003 TXT63A DC X'8400' STATIC TEXT FLAGS @Z40LB64 16640003 DC Y(STE63B-STE63A) TEXT LENGTH @Z40LB64 16650003 DC Y(STE63A-TXT63A) TEXT OFFSET @Z40LB64 16660003 DC H'1' PRINT COLUMN @Z40LB64 16670003 DC Y(STE63B-STE63A) PRINT FIELD LENGTH @Z40LB64 16680003 DC H'0' CONVERSION FLAGS @Z40LB64 16690003 SPACE 1 @Z40LB64 16700003 * STATIC TEXT ENTRY @Z40LB64 16710003 STE63A DC YL1(STE63B-MSG63) FIELD NAME LENGTH @Z40LB64 16720003 DC FL1'0' RESERVED @Z40LB64 16730003 DC FL1'4' VALUE INPUT LENGTH @Z40LB64 16740003 DC FL1'5' VALUE OUTPUT LENGTH @Z40LB64 16750003 DC X'10A0' VALUE CONVERSION @Z40LB64 16760003 MSG63 DC C'FREE PAGES' @Z40LB64 16770003 STE63B EQU * @Z40LB64 16780003 TXT63B EQU * @Z40LB64 16790003 EJECT @Z40LB64 16800003 ************************************************************ @Z40LB64 16810003 * * @Z40LB64 16820003 * 'ACTIVE PAGES' (FIELD NAME) * @Z40LB64 16830003 * * @Z40LB64 16840003 ************************************************************ @Z40LB64 16850003 SPACE 1 @Z40LB64 16860003 TXT64 DC Y(TXT64B-TXT64A) ENTRY LENGTH @Z40LB64 16870003 DC H'0' @Z40LB64 16880003 SPACE 1 @Z40LB64 16890003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 16900003 TXT64A DC X'8400' STATIC TEXT FLAGS @Z40LB64 16910003 DC Y(STE64B-STE64A) TEXT LENGTH @Z40LB64 16920003 DC Y(STE64A-TXT64A) TEXT OFFSET @Z40LB64 16930003 DC H'1' PRINT COLUMN @Z40LB64 16940003 DC Y(STE64B-STE64A) PRINT FIELD LENGTH @Z40LB64 16950003 DC H'0' CONVERSION FLAGS @Z40LB64 16960003 SPACE 1 @Z40LB64 16970003 * STATIC TEXT ENTRY @Z40LB64 16980003 STE64A DC YL1(STE64B-MSG64) FIELD NAME LENGTH @Z40LB64 16990003 DC FL1'0' RESERVED @Z40LB64 17000003 DC FL1'4' VALUE INPUT LENGTH @Z40LB64 17010003 DC FL1'5' VALUE OUTPUT LENGTH @Z40LB64 17020003 DC X'10A0' VALUE CONVERSION @Z40LB64 17030003 MSG64 DC C'ACTIVE PAGES' @Z40LB64 17040003 STE64B EQU * @Z40LB64 17050003 TXT64B EQU * @Z40LB64 17060003 EJECT @Z40LB64 17070003 ************************************************************ @Z40LB64 17080003 * * @Z40LB64 17090003 * 'INACTIVE PAGES' (FIELD NAME) * @Z40LB64 17100003 * * @Z40LB64 17110003 ************************************************************ @Z40LB64 17120003 SPACE 1 @Z40LB64 17130003 TXT65 DC Y(TXT65B-TXT65A) ENTRY LENGTH @Z40LB64 17140003 DC H'0' @Z40LB64 17150003 SPACE 1 @Z40LB64 17160003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 17170003 TXT65A DC X'8400' STATIC TEXT FLAGS @Z40LB64 17180003 DC Y(STE65B-STE65A) TEXT LENGTH @Z40LB64 17190003 DC Y(STE65A-TXT65A) TEXT OFFSET @Z40LB64 17200003 DC H'1' PRINT COLUMN @Z40LB64 17210003 DC Y(STE65B-STE65A) PRINT FIELD LENGTH @Z40LB64 17220003 DC H'0' CONVERSION FLAGS @Z40LB64 17230003 SPACE 1 @Z40LB64 17240003 * STATIC TEXT ENTRY @Z40LB64 17250003 STE65A DC YL1(STE65B-MSG65) FIELD NAME LENGTH @Z40LB64 17260003 DC FL1'0' RESERVED @Z40LB64 17270003 DC FL1'4' VALUE INPUT LENGTH @Z40LB64 17280003 DC FL1'5' VALUE OUTPUT LENGTH @Z40LB64 17290003 DC X'10A0' VALUE CONVERSION @Z40LB64 17300003 MSG65 DC C'INACTIVE PAGES' @Z40LB64 17310003 STE65B EQU * @Z40LB64 17320003 TXT65B EQU * @Z40LB64 17330003 EJECT @Z40LB64 17340003 ************************************************************ @Z40LB64 17350003 * * @Z40LB64 17360003 * 'BOUND PAGES' (FIELD NAME) * @Z40LB64 17370003 * * @Z40LB64 17380003 ************************************************************ @Z40LB64 17390003 SPACE 1 @Z40LB64 17400003 TXT66 DC Y(TXT66B-TXT66A) ENTRY LENGTH @Z40LB64 17410003 DC H'0' @Z40LB64 17420003 SPACE 1 @Z40LB64 17430003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 17440003 TXT66A DC X'8400' STATIC TEXT FLAGS @Z40LB64 17450003 DC Y(STE66B-STE66A) TEXT LENGTH @Z40LB64 17460003 DC Y(STE66A-TXT66A) TEXT OFFSET @Z40LB64 17470003 DC H'1' PRINT COLUMN @Z40LB64 17480003 DC Y(STE66B-STE66A) PRINT FIELD LENGTH @Z40LB64 17490003 DC H'0' CONVERSION FLAGS @Z40LB64 17500003 SPACE 1 @Z40LB64 17510003 * STATIC TEXT ENTRY @Z40LB64 17520003 STE66A DC YL1(STE66B-MSG66) FIELD NAME LENGTH @Z40LB64 17530003 DC FL1'0' RESERVED @Z40LB64 17540003 DC FL1'4' VALUE INPUT LENGTH @Z40LB64 17550003 DC FL1'5' VALUE OUTPUT LENGTH @Z40LB64 17560003 DC X'10A0' VALUE CONVERSION @Z40LB64 17570003 MSG66 DC C'BOUND PAGES' @Z40LB64 17580003 STE66B EQU * @Z40LB64 17590003 TXT66B EQU * @Z40LB64 17600003 EJECT @Z40LB64 17610003 ************************************************************ @Z40LB64 17620003 * * @Z40LB64 17630003 * TABLE NAME STATIC TEXT ENTRIES. * @Z40LB64 17640003 * * @Z40LB64 17650003 * EACH ENTRY CONTAINS THE NAME OF THE TABLE, THE LENGTH * @Z40LB64 17660003 * OF THE TABLE NAME, THE NUMBER OF ASSOCIATED TABLE * @Z40LB64 17670003 * INDICES, AND FLAGS INDICATING WHICH TABLE INDICES ARE * @Z40LB64 17680003 * ASSOCIATED WITH THE TABLE. * @Z40LB64 17690003 * * @Z40LB64 17700003 ************************************************************ @Z40LB64 17710003 SPACE 1 @Z40LB64 17720003 ************************************************************ @Z40LB64 17730003 * * @Z40LB64 17740003 * 'MSC MOUNTED VOLUME TABLE' (TABLE NAME) * @Z40LB64 17750003 * * @Z40LB64 17760003 ************************************************************ @Z40LB64 17770003 SPACE 1 @Z40LB64 17780003 TXT76 DC Y(TXT76B-TXT76A) ENTRY LENGTH @Z40LB64 17790003 DC H'0' @Z40LB64 17800003 SPACE 1 @Z40LB64 17810003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 17820003 TXT76A DC X'8400' STATIC TEXT FLAGS @Z40LB64 17830003 DC Y(STE76B-STE76A) TEXT LENGTH @Z40LB64 17840003 DC Y(STE76A-TXT76A) TEXT OFFSET @Z40LB64 17850003 DC H'1' PRINT COLUMN @Z40LB64 17860003 DC Y(STE76B-STE76A) PRINT FIELD LENGTH @Z40LB64 17870003 DC H'0' CONVERSION FLAGS @Z40LB64 17880003 SPACE 1 @Z40LB64 17890003 * STATIC TEXT ENTRY @Z40LB64 17900003 STE76A DC YL1(STE76B-MSG76) TABLE NAME LENGTH @Z40LB64 17910003 DC FL1'2' TABLE INDEX COUNT @Z40LB64 17920003 DC FL1'0' RESERVED @Z40LB64 17930003 DC FL1'0' RESERVED @Z40LB64 17940003 DC X'4004' TABLE INDEX FLAGS @Z40LB64 17950003 MSG76 DC C'MSC MOUNTED VOLUME TABLE' @Z40LB64 17960003 STE76B EQU * @Z40LB64 17970003 TXT76B EQU * @Z40LB64 17980003 EJECT @Z40LB64 17990003 ************************************************************ @Z40LB64 18000003 * * @Z40LB64 18010003 * 'MSC VOLUME INVENTORY' (TABLE NAME) * @Z40LB64 18020003 * * @Z40LB64 18030003 ************************************************************ @Z40LB64 18040003 SPACE 1 @Z40LB64 18050003 TXT77 DC Y(TXT77B-TXT77A) ENTRY LENGTH @Z40LB64 18060003 DC H'0' @Z40LB64 18070003 SPACE 1 @Z40LB64 18080003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 18090003 TXT77A DC X'8400' STATIC TEXT FLAGS @Z40LB64 18100003 DC Y(STE77B-STE77A) TEXT LENGTH @Z40LB64 18110003 DC Y(STE77A-TXT77A) TEXT OFFSET @Z40LB64 18120003 DC H'1' PRINT COLUMN @Z40LB64 18130003 DC Y(STE77B-STE77A) PRINT FIELD LENGTH @Z40LB64 18140003 DC H'0' CONVERSION FLAGS @Z40LB64 18150003 SPACE 1 @Z40LB64 18160003 * STATIC TEXT ENTRY @Z40LB64 18170003 STE77A DC YL1(STE77B-MSG77) TABLE NAME LENGTH @Z40LB64 18180003 DC FL1'2' TABLE INDEX COUNT @Z40LB64 18190003 DC FL1'0' RESERVED @Z40LB64 18200003 DC FL1'0' RESERVED @Z40LB64 18210003 DC X'4004' TABLE INDEX FLAGS @Z40LB64 18220003 MSG77 DC C'MSC VOLUME INVENTORY' @Z40LB64 18230003 STE77B EQU * @Z40LB64 18240003 TXT77B EQU * @Z40LB64 18250003 EJECT @Z40LB64 18260003 ************************************************************ @Z40LB64 18270003 * * @Z40LB64 18280003 * 'MSC TRANSIENT VOLUME LIST' (TABLE NAME) * @Z40LB64 18290003 * * @Z40LB64 18300003 ************************************************************ @Z40LB64 18310003 SPACE 1 @Z40LB64 18320003 TXT78 DC Y(TXT78B-TXT78A) ENTRY LENGTH @Z40LB64 18330003 DC H'0' @Z40LB64 18340003 SPACE 1 @Z40LB64 18350003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 18360003 TXT78A DC X'8400' STATIC TEXT FLAGS @Z40LB64 18370003 DC Y(STE78B-STE78A) TEXT LENGTH @Z40LB64 18380003 DC Y(STE78A-TXT78A) TEXT OFFSET @Z40LB64 18390003 DC H'1' PRINT COLUMN @Z40LB64 18400003 DC Y(STE78B-STE78A) PRINT FIELD LENGTH @Z40LB64 18410003 DC H'0' CONVERSION FLAGS @Z40LB64 18420003 SPACE 1 @Z40LB64 18430003 * STATIC TEXT ENTRY @Z40LB64 18440003 STE78A DC YL1(STE78B-MSG78) TABLE NAME LENGTH @Z40LB64 18450003 DC FL1'3' TABLE INDEX COUNT @Z40LB64 18460003 DC FL1'0' RESERVED @Z40LB64 18470003 DC FL1'0' RESERVED @Z40LB64 18480003 DC X'C004' TABLE INDEX FLAGS @Z40LB64 18490003 MSG78 DC C'MSC TRANSIENT VOLUME LIST' @Z40LB64 18500003 STE78B EQU * @Z40LB64 18510003 TXT78B EQU * @Z40LB64 18520003 EJECT @Z40LB64 18530003 ************************************************************ @Z40LB64 18540003 * * @Z40LB64 18550003 * 'MSC SCRATCH CARTRIDGE LIST' (TABLE NAME) * @Z40LB64 18560003 * * @Z40LB64 18570003 ************************************************************ @Z40LB64 18580003 SPACE 1 @Z40LB64 18590003 TXT79 DC Y(TXT79B-TXT79A) ENTRY LENGTH @Z40LB64 18600003 DC H'0' @Z40LB64 18610003 SPACE 1 @Z40LB64 18620003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 18630003 TXT79A DC X'8400' STATIC TEXT FLAGS @Z40LB64 18640003 DC Y(STE79B-STE79A) TEXT LENGTH @Z40LB64 18650003 DC Y(STE79A-TXT79A) TEXT OFFSET @Z40LB64 18660003 DC H'1' PRINT COLUMN @Z40LB64 18670003 DC Y(STE79B-STE79A) PRINT FIELD LENGTH @Z40LB64 18680003 DC H'0' CONVERSION FLAGS @Z40LB64 18690003 SPACE 1 @Z40LB64 18700003 * STATIC TEXT ENTRY @Z40LB64 18710003 STE79A DC YL1(STE79B-MSG79) TABLE NAME LENGTH @Z40LB64 18720003 DC FL1'3' TABLE INDEX COUNT @Z40LB64 18730003 DC FL1'0' RESERVED @Z40LB64 18740003 DC FL1'0' RESERVED @Z40LB64 18750003 DC X'9004' TABLE INDEX FLAGS @Z40LB64 18760003 MSG79 DC C'MSC SCRATCH CARTRIDGE LIST' @Z40LB64 18770003 STE79B EQU * @Z40LB64 18780003 TXT79B EQU * @Z40LB64 18790003 EJECT @Z40LB64 18800003 ************************************************************ @Z40LB64 18810003 * * @Z40LB64 18820003 * 'MASS STORAGE VOLUME INVENTORY' (TABLE NAME) * @Z40LB64 18830003 * * @Z40LB64 18840003 ************************************************************ @Z40LB64 18850003 SPACE 1 @Z40LB64 18860003 TXT80 DC Y(TXT80B-TXT80A) ENTRY LENGTH @Z40LB64 18870003 DC H'0' @Z40LB64 18880003 SPACE 1 @Z40LB64 18890003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 18900003 TXT80A DC X'8400' STATIC TEXT FLAGS @Z40LB64 18910003 DC Y(STE80B-STE80A) TEXT LENGTH @Z40LB64 18920003 DC Y(STE80A-TXT80A) TEXT OFFSET @Z40LB64 18930003 DC H'1' PRINT COLUMN @Z40LB64 18940003 DC Y(STE80B-STE80A) PRINT FIELD LENGTH @Z40LB64 18950003 DC H'0' CONVERSION FLAGS @Z40LB64 18960003 SPACE 1 @Z40LB64 18970003 * STATIC TEXT ENTRY @Z40LB64 18980003 STE80A DC YL1(STE80B-MSG80) TABLE NAME LENGTH @Z40LB64 18990003 DC FL1'1' TABLE INDEX COUNT @Z40LB64 19000003 DC FL1'0' RESERVED @Z40LB64 19010003 DC FL1'0' RESERVED @Z40LB64 19020003 DC X'2000' TABLE INDEX FLAGS @Z40LB64 19030003 MSG80 DC C'MASS STORAGE VOLUME INVENTORY' @Z40LB64 19040003 STE80B EQU * @Z40LB64 19050003 TXT80B EQU * @Z40LB64 19060003 EJECT @Z40LB64 19070003 ************************************************************ @Z40LB64 19080003 * * @Z40LB64 19090003 * 'MSC CELL MAP' (TABLE NAME) * @Z40LB64 19100003 * * @Z40LB64 19110003 ************************************************************ @Z40LB64 19120003 SPACE 1 @Z40LB64 19130003 TXT81 DC Y(TXT81B-TXT81A) ENTRY LENGTH @Z40LB64 19140003 DC H'0' @Z40LB64 19150003 SPACE 1 @Z40LB64 19160003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 19170003 TXT81A DC X'8400' STATIC TEXT FLAGS @Z40LB64 19180003 DC Y(STE81B-STE81A) TEXT LENGTH @Z40LB64 19190003 DC Y(STE81A-TXT81A) TEXT OFFSET @Z40LB64 19200003 DC H'1' PRINT COLUMN @Z40LB64 19210003 DC Y(STE81B-STE81A) PRINT FIELD LENGTH @Z40LB64 19220003 DC H'0' CONVERSION FLAGS @Z40LB64 19230003 SPACE 1 @Z40LB64 19240003 * STATIC TEXT ENTRY @Z40LB64 19250003 STE81A DC YL1(STE81B-MSG81) TABLE NAME LENGTH @Z40LB64 19260003 DC FL1'3' TABLE INDEX COUNT @Z40LB64 19270003 DC FL1'0' RESERVED @Z40LB64 19280003 DC FL1'0' RESERVED @Z40LB64 19290003 DC X'1084' TABLE INDEX FLAGS @Z40LB64 19300003 MSG81 DC C'MSC CELL MAP' @Z40LB64 19310003 STE81B EQU * @Z40LB64 19320003 TXT81B EQU * @Z40LB64 19330003 EJECT @Z40LB64 19340003 ************************************************************ @Z40LB64 19350003 * * @Z40LB64 19360003 * 'MSC MANUFACTURER'S ID CONVERSION TABLE' (TABLE NAME) * @Z40LB64 19370003 * * @Z40LB64 19380003 ************************************************************ @Z40LB64 19390003 SPACE 1 @Z40LB64 19400003 TXT82 DC Y(TXT82B-TXT82A) ENTRY LENGTH @Z40LB64 19410003 DC H'0' @Z40LB64 19420003 SPACE 1 @Z40LB64 19430003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 19440003 TXT82A DC X'8400' STATIC TEXT FLAGS @Z40LB64 19450003 DC Y(STE82B-STE82A) TEXT LENGTH @Z40LB64 19460003 DC Y(STE82A-TXT82A) TEXT OFFSET @Z40LB64 19470003 DC H'1' PRINT COLUMN @Z40LB64 19480003 DC Y(STE82B-STE82A) PRINT FIELD LENGTH @Z40LB64 19490003 DC H'0' CONVERSION FLAGS @Z40LB64 19500003 SPACE 1 @Z40LB64 19510003 * STATIC TEXT ENTRY @Z40LB64 19520003 STE82A DC YL1(STE82B-MSG82) TABLE NAME LENGTH @Z40LB64 19530003 DC FL1'2' TABLE INDEX COUNT @Z40LB64 19540003 DC FL1'0' RESERVED @Z40LB64 19550003 DC FL1'0' RESERVED @Z40LB64 19560003 DC X'0804' TABLE INDEX FLAGS @Z40LB64 19570003 MSG82 DC C'MSC MANUFACTURER''S ID CONVERSION TABLE' @Z40LB64 19580003 STE82B EQU * @Z40LB64 19590003 TXT82B EQU * @Z40LB64 19600003 EJECT @Z40LB64 19610003 ************************************************************ @Z40LB64 19620003 * * @Z40LB64 19630003 * 'SA VIRTUAL ADDRESS DIRECTORY' (TABLE NAME) * @Z40LB64 19640003 * * @Z40LB64 19650003 ************************************************************ @Z40LB64 19660003 SPACE 1 @Z40LB64 19670003 TXT83 DC Y(TXT83B-TXT83A) ENTRY LENGTH @Z40LB64 19680003 DC H'0' @Z40LB64 19690003 SPACE 1 @Z40LB64 19700003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 19710003 TXT83A DC X'8400' STATIC TEXT FLAGS @Z40LB64 19720003 DC Y(STE83B-STE83A) TEXT LENGTH @Z40LB64 19730003 DC Y(STE83A-TXT83A) TEXT OFFSET @Z40LB64 19740003 DC H'1' PRINT COLUMN @Z40LB64 19750003 DC Y(STE83B-STE83A) PRINT FIELD LENGTH @Z40LB64 19760003 DC H'0' CONVERSION FLAGS @Z40LB64 19770003 SPACE 1 @Z40LB64 19780003 * STATIC TEXT ENTRY @Z40LB64 19790003 STE83A DC YL1(STE83B-MSG83) TABLE NAME LENGTH @Z40LB64 19800003 DC FL1'3' TABLE INDEX COUNT @Z40LB64 19810003 DC FL1'0' RESERVED @Z40LB64 19820003 DC FL1'0' RESERVED @Z40LB64 19830003 DC X'0510' TABLE INDEX FLAGS @Z40LB64 19840003 MSG83 DC C'SA VIRTUAL ADDRESS DIRECTORY' @Z40LB64 19850003 STE83B EQU * @Z40LB64 19860003 TXT83B EQU * @Z40LB64 19870003 EJECT @Z40LB64 19880003 ************************************************************ @Z40LB64 19890003 * * @Z40LB64 19900003 * 'SA PAGE STATUS TABLE' (TABLE NAME) * @Z40LB64 19910003 * * @Z40LB64 19920003 ************************************************************ @Z40LB64 19930003 SPACE 1 @Z40LB64 19940003 TXT84 DC Y(TXT84B-TXT84A) ENTRY LENGTH @Z40LB64 19950003 DC H'0' @Z40LB64 19960003 SPACE 1 @Z40LB64 19970003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 19980003 TXT84A DC X'8400' STATIC TEXT FLAGS @Z40LB64 19990003 DC Y(STE84B-STE84A) TEXT LENGTH @Z40LB64 20000003 DC Y(STE84A-TXT84A) TEXT OFFSET @Z40LB64 20010003 DC H'1' PRINT COLUMN @Z40LB64 20020003 DC Y(STE84B-STE84A) PRINT FIELD LENGTH @Z40LB64 20030003 DC H'0' CONVERSION FLAGS @Z40LB64 20040003 SPACE 1 @Z40LB64 20050003 * STATIC TEXT ENTRY @Z40LB64 20060003 STE84A DC YL1(STE84B-MSG84) TABLE NAME LENGTH @Z40LB64 20070003 DC FL1'3' TABLE INDEX COUNT @Z40LB64 20080003 DC FL1'0' RESERVED @Z40LB64 20090003 DC FL1'0' RESERVED @Z40LB64 20100003 DC X'0448' TABLE INDEX FLAGS @Z40LB64 20110003 MSG84 DC C'SA PAGE STATUS TABLE' @Z40LB64 20120003 STE84B EQU * @Z40LB64 20130003 TXT84B EQU * @Z40LB64 20140003 EJECT @Z40LB64 20150003 ************************************************************ @Z40LB64 20160003 * * @Z40LB64 20170003 * 'SA LOGICAL TO REAL TABLE' (TABLE NAME) * @Z40LB64 20180003 * * @Z40LB64 20190003 ************************************************************ @Z40LB64 20200003 SPACE 1 @Z40LB64 20210003 TXT85 DC Y(TXT85B-TXT85A) ENTRY LENGTH @Z40LB64 20220003 DC H'0' @Z40LB64 20230003 SPACE 1 @Z40LB64 20240003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 20250003 TXT85A DC X'8400' STATIC TEXT FLAGS @Z40LB64 20260003 DC Y(STE85B-STE85A) TEXT LENGTH @Z40LB64 20270003 DC Y(STE85A-TXT85A) TEXT OFFSET @Z40LB64 20280003 DC H'1' PRINT COLUMN @Z40LB64 20290003 DC Y(STE85B-STE85A) PRINT FIELD LENGTH @Z40LB64 20300003 DC H'0' CONVERSION FLAGS @Z40LB64 20310003 SPACE 1 @Z40LB64 20320003 * STATIC TEXT ENTRY @Z40LB64 20330003 STE85A DC YL1(STE85B-MSG85) TABLE NAME LENGTH @Z40LB64 20340003 DC FL1'2' TABLE INDEX COUNT @Z40LB64 20350003 DC FL1'0' RESERVED @Z40LB64 20360003 DC FL1'0' RESERVED @Z40LB64 20370003 DC X'0440' TABLE INDEX FLAGS @Z40LB64 20380003 MSG85 DC C'SA LOGICAL TO REAL TABLE' @Z40LB64 20390003 STE85B EQU * @Z40LB64 20400003 TXT85B EQU * @Z40LB64 20410003 EJECT @Z40LB64 20420003 ************************************************************ @Z40LB64 20430003 * * @Z40LB64 20440003 * 'SA VIRTUAL VOLUME INFORMATION TABLE' (TABLE NAME) * @Z40LB64 20450003 * * @Z40LB64 20460003 ************************************************************ @Z40LB64 20470003 SPACE 1 @Z40LB64 20480003 TXT86 DC Y(TXT86B-TXT86A) ENTRY LENGTH @Z40LB64 20490003 DC H'0' @Z40LB64 20500003 SPACE 1 @Z40LB64 20510003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 20520003 TXT86A DC X'8400' STATIC TEXT FLAGS @Z40LB64 20530003 DC Y(STE86B-STE86A) TEXT LENGTH @Z40LB64 20540003 DC Y(STE86A-TXT86A) TEXT OFFSET @Z40LB64 20550003 DC H'1' PRINT COLUMN @Z40LB64 20560003 DC Y(STE86B-STE86A) PRINT FIELD LENGTH @Z40LB64 20570003 DC H'0' CONVERSION FLAGS @Z40LB64 20580003 SPACE 1 @Z40LB64 20590003 * STATIC TEXT ENTRY @Z40LB64 20600003 STE86A DC YL1(STE86B-MSG86) TABLE NAME LENGTH @Z40LB64 20610003 DC FL1'2' TABLE INDEX COUNT @Z40LB64 20620003 DC FL1'0' RESERVED @Z40LB64 20630003 DC FL1'0' RESERVED @Z40LB64 20640003 DC X'0420' TABLE INDEX FLAGS @Z40LB64 20650003 MSG86 DC C'SA VIRTUAL VOLUME INFORMATION TABLE' @Z40LB64 20660003 STE86B EQU * @Z40LB64 20670003 TXT86B EQU * @Z40LB64 20680003 EJECT @Z40LB64 20690003 ************************************************************ @Z40LB64 20700003 * * @Z40LB64 20710003 * 'MSC SDG PAGE AVAILABILITY BLOCK' (TABLE NAME) * @Z40LB64 20720003 * * @Z40LB64 20730003 ************************************************************ @Z40LB64 20740003 SPACE 1 @Z40LB64 20750003 TXT87 DC Y(TXT87B-TXT87A) ENTRY LENGTH @Z40LB64 20760003 DC H'0' @Z40LB64 20770003 SPACE 1 @Z40LB64 20780003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 20790003 TXT87A DC X'8400' STATIC TEXT FLAGS @Z40LB64 20800003 DC Y(STE87B-STE87A) TEXT LENGTH @Z40LB64 20810003 DC Y(STE87A-TXT87A) TEXT OFFSET @Z40LB64 20820003 DC H'1' PRINT COLUMN @Z40LB64 20830003 DC Y(STE87B-STE87A) PRINT FIELD LENGTH @Z40LB64 20840003 DC H'0' CONVERSION FLAGS @Z40LB64 20850003 SPACE 1 @Z40LB64 20860003 * STATIC TEXT ENTRY @Z40LB64 20870003 STE87A DC YL1(STE87B-MSG87) TABLE NAME LENGTH @Z40LB64 20880003 DC FL1'3' TABLE INDEX COUNT @Z40LB64 20890003 DC FL1'0' RESERVED @Z40LB64 20900003 DC FL1'0' RESERVED @Z40LB64 20910003 DC X'0244' TABLE INDEX FLAGS @Z40LB64 20920003 MSG87 DC C'MSC SDG PAGE AVAILABILITY BLOCK' @Z40LB64 20930003 STE87B EQU * @Z40LB64 20940003 TXT87B EQU * @Z40LB64 20950003 EJECT @Z40LB64 20960003 ************************************************************ @Z40LB64 20970003 * * @Z40LB64 20980003 * 'MSC SDG DEMOUNTED VOLUME BLOCK' (TABLE NAME) * @Z40LB64 20990003 * * @Z40LB64 21000003 ************************************************************ @Z40LB64 21010003 SPACE 1 @Z40LB64 21020003 TXT88 DC Y(TXT88B-TXT88A) ENTRY LENGTH @Z40LB64 21030003 DC H'0' @Z40LB64 21040003 SPACE 1 @Z40LB64 21050003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 21060003 TXT88A DC X'8400' STATIC TEXT FLAGS @Z40LB64 21070003 DC Y(STE88B-STE88A) TEXT LENGTH @Z40LB64 21080003 DC Y(STE88A-TXT88A) TEXT OFFSET @Z40LB64 21090003 DC H'1' PRINT COLUMN @Z40LB64 21100003 DC Y(STE88B-STE88A) PRINT FIELD LENGTH @Z40LB64 21110003 DC H'0' CONVERSION FLAGS @Z40LB64 21120003 SPACE 1 @Z40LB64 21130003 * STATIC TEXT ENTRY @Z40LB64 21140003 STE88A DC YL1(STE88B-MSG88) TABLE NAME LENGTH @Z40LB64 21150003 DC FL1'2' TABLE INDEX COUNT @Z40LB64 21160003 DC FL1'0' RESERVED @Z40LB64 21170003 DC FL1'0' RESERVED @Z40LB64 21180003 DC X'0204' TABLE INDEX FLAGS @Z40LB64 21190003 MSG88 DC C'MSC SDG DEMOUNTED VOLUME BLOCK' @Z40LB64 21200003 STE88B EQU * @Z40LB64 21210003 TXT88B EQU * @Z40LB64 21220003 EJECT @Z40LB64 21230003 ************************************************************ @Z40LB64 21240003 * * @Z40LB64 21250003 * 'MSC SDG LRU PAGES BLOCK' (TABLE NAME) * @Z40LB64 21260003 * * @Z40LB64 21270003 ************************************************************ @Z40LB64 21280003 SPACE 1 @Z40LB64 21290003 TXT89 DC Y(TXT89B-TXT89A) ENTRY LENGTH @Z40LB64 21300003 DC H'0' @Z40LB64 21310003 SPACE 1 @Z40LB64 21320003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 21330003 TXT89A DC X'8400' STATIC TEXT FLAGS @Z40LB64 21340003 DC Y(STE89B-STE89A) TEXT LENGTH @Z40LB64 21350003 DC Y(STE89A-TXT89A) TEXT OFFSET @Z40LB64 21360003 DC H'1' PRINT COLUMN @Z40LB64 21370003 DC Y(STE89B-STE89A) PRINT FIELD LENGTH @Z40LB64 21380003 DC H'0' CONVERSION FLAGS @Z40LB64 21390003 SPACE 1 @Z40LB64 21400003 * STATIC TEXT ENTRY @Z40LB64 21410003 STE89A DC YL1(STE89B-MSG89) TABLE NAME LENGTH @Z40LB64 21420003 DC FL1'2' TABLE INDEX COUNT @Z40LB64 21430003 DC FL1'0' RESERVED @Z40LB64 21440003 DC FL1'0' RESERVED @Z40LB64 21450003 DC X'0204' TABLE INDEX FLAGS @Z40LB64 21460003 MSG89 DC C'MSC SDG LRU PAGES BLOCK' @Z40LB64 21470003 STE89B EQU * @Z40LB64 21480003 TXT89B EQU * @Z40LB64 21490003 EJECT @Z40LB64 21500003 ************************************************************ @Z40LB64 21510003 * * @Z40LB64 21520003 * 'MSC SDG REAL PAGE MAP' (TABLE NAME) * @Z40LB64 21530003 * * @Z40LB64 21540003 ************************************************************ @Z40LB64 21550003 SPACE 1 @Z40LB64 21560003 TXT90 DC Y(TXT90B-TXT90A) ENTRY LENGTH @Z40LB64 21570003 DC H'0' @Z40LB64 21580003 SPACE 1 @Z40LB64 21590003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 21600003 TXT90A DC X'8400' STATIC TEXT FLAGS @Z40LB64 21610003 DC Y(STE90B-STE90A) TEXT LENGTH @Z40LB64 21620003 DC Y(STE90A-TXT90A) TEXT OFFSET @Z40LB64 21630003 DC H'1' PRINT COLUMN @Z40LB64 21640003 DC Y(STE90B-STE90A) PRINT FIELD LENGTH @Z40LB64 21650003 DC H'0' CONVERSION FLAGS @Z40LB64 21660003 SPACE 1 @Z40LB64 21670003 * STATIC TEXT ENTRY @Z40LB64 21680003 STE90A DC YL1(STE90B-MSG90) TABLE NAME LENGTH @Z40LB64 21690003 DC FL1'4' TABLE INDEX COUNT @Z40LB64 21700003 DC FL1'0' RESERVED @Z40LB64 21710003 DC FL1'0' RESERVED @Z40LB64 21720003 DC X'024C' TABLE INDEX FLAGS @Z40LB64 21730003 MSG90 DC C'MSC SDG REAL PAGE MAP' @Z40LB64 21740003 STE90B EQU * @Z40LB64 21750003 TXT90B EQU * @Z40LB64 21760003 EJECT @Z40LB64 21770003 ************************************************************ @Z40LB64 21780003 * * @Z40LB64 21790003 * 'MSC VVA/MVT CROSS-REFERENCE' (TABLE NAME) * @Z40LB64 21800003 * * @Z40LB64 21810003 ************************************************************ @Z40LB64 21820003 SPACE 1 @Z40LB64 21830003 TXT91 DC Y(TXT91B-TXT91A) ENTRY LENGTH @Z40LB64 21840003 DC H'0' @Z40LB64 21850003 SPACE 1 @Z40LB64 21860003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 21870003 TXT91A DC X'8400' STATIC TEXT FLAGS @Z40LB64 21880003 DC Y(STE91B-STE91A) TEXT LENGTH @Z40LB64 21890003 DC Y(STE91A-TXT91A) TEXT OFFSET @Z40LB64 21900003 DC H'1' PRINT COLUMN @Z40LB64 21910003 DC Y(STE91B-STE91A) PRINT FIELD LENGTH @Z40LB64 21920003 DC H'0' CONVERSION FLAGS @Z40LB64 21930003 SPACE 1 @Z40LB64 21940003 * STATIC TEXT ENTRY @Z40LB64 21950003 STE91A DC YL1(STE91B-MSG91) TABLE NAME LENGTH @Z40LB64 21960003 DC FL1'3' TABLE INDEX COUNT @Z40LB64 21970003 DC FL1'0' RESERVED @Z40LB64 21980003 DC FL1'0' RESERVED @Z40LB64 21990003 DC X'0424' TABLE INDEX FLAGS @Z40LB64 22000003 MSG91 DC C'MSC VVA/VOLID CROSS-REFERENCE' @VS41107 22010003 STE91B EQU * @Z40LB64 22020003 TXT91B EQU * @Z40LB64 22030003 EJECT @Z40LB64 22040003 ************************************************************ @Z40LB64 22050003 * * @Z40LB64 22060003 * 'MSC VIRTUAL VOLUME ADDRESS TABLE' (TABLE NAME) * @Z40LB64 22070003 * * @Z40LB64 22080003 ************************************************************ @Z40LB64 22090003 SPACE 1 @Z40LB64 22100003 TXT92 DC Y(TXT92B-TXT92A) ENTRY LENGTH @Z40LB64 22110003 DC H'0' @Z40LB64 22120003 SPACE 1 @Z40LB64 22130003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 22140003 TXT92A DC X'8400' STATIC TEXT FLAGS @Z40LB64 22150003 DC Y(STE92B-STE92A) TEXT LENGTH @Z40LB64 22160003 DC Y(STE92A-TXT92A) TEXT OFFSET @Z40LB64 22170003 DC H'1' PRINT COLUMN @Z40LB64 22180003 DC Y(STE92B-STE92A) PRINT FIELD LENGTH @Z40LB64 22190003 DC H'0' CONVERSION FLAGS @Z40LB64 22200003 SPACE 1 @Z40LB64 22210003 * STATIC TEXT ENTRY @Z40LB64 22220003 STE92A DC YL1(STE92B-MSG92) TABLE NAME LENGTH @Z40LB64 22230003 DC FL1'3' TABLE INDEX COUNT @Z40LB64 22240003 DC FL1'0' RESERVED @Z40LB64 22250003 DC FL1'0' RESERVED @Z40LB64 22260003 DC X'0424' TABLE INDEX FLAGS @Z40LB64 22270003 MSG92 DC C'MSC VIRTUAL VOLUME ADDRESS TABLE' @Z40LB64 22280003 STE92B EQU * @Z40LB64 22290003 TXT92B EQU * @Z40LB64 22300003 EJECT @Z40LB64 22310003 ************************************************************ @Z40LB64 22320003 * * @Z40LB64 22330003 * 'MSC CONFIGURATION INDEX' (TABLE NAME) * @Z40LB64 22340003 * * @Z40LB64 22350003 ************************************************************ @Z40LB64 22360003 SPACE 1 @Z40LB64 22370003 TXT93 DC Y(TXT93B-TXT93A) ENTRY LENGTH @Z40LB64 22380003 DC H'0' @Z40LB64 22390003 SPACE 1 @Z40LB64 22400003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 22410003 TXT93A DC X'8400' STATIC TEXT FLAGS @Z40LB64 22420003 DC Y(STE93B-STE93A) TEXT LENGTH @Z40LB64 22430003 DC Y(STE93A-TXT93A) TEXT OFFSET @Z40LB64 22440003 DC H'1' PRINT COLUMN @Z40LB64 22450003 DC Y(STE93B-STE93A) PRINT FIELD LENGTH @Z40LB64 22460003 DC H'0' CONVERSION FLAGS @Z40LB64 22470003 SPACE 1 @Z40LB64 22480003 * STATIC TEXT ENTRY @Z40LB64 22490003 STE93A DC YL1(STE93B-MSG93) TABLE NAME LENGTH @Z40LB64 22500003 DC FL1'3' TABLE INDEX COUNT @Z40LB64 22510003 DC FL1'0' RESERVED @Z40LB64 22520003 DC FL1'0' RESERVED @Z40LB64 22530003 DC X'0414' TABLE INDEX FLAGS @Z40LB64 22540003 MSG93 DC C'MSC CONFIGURATION INDEX' @Z40LB64 22550003 STE93B EQU * @Z40LB64 22560003 TXT93B EQU * @Z40LB64 22570003 EJECT @Z40LB64 22580003 ************************************************************ @Z40LB64 22590003 * * @Z40LB64 22600003 * 'MSC CONFIGURATION DATA BLOCK' (TABLE NAME) * @Z40LB64 22610003 * * @Z40LB64 22620003 ************************************************************ @Z40LB64 22630003 SPACE 1 @Z40LB64 22640003 TXT94 DC Y(TXT94B-TXT94A) ENTRY LENGTH @Z40LB64 22650003 DC H'0' @Z40LB64 22660003 SPACE 1 @Z40LB64 22670003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 22680003 TXT94A DC X'8400' STATIC TEXT FLAGS @Z40LB64 22690003 DC Y(STE94B-STE94A) TEXT LENGTH @Z40LB64 22700003 DC Y(STE94A-TXT94A) TEXT OFFSET @Z40LB64 22710003 DC H'1' PRINT COLUMN @Z40LB64 22720003 DC Y(STE94B-STE94A) PRINT FIELD LENGTH @Z40LB64 22730003 DC H'0' CONVERSION FLAGS @Z40LB64 22740003 SPACE 1 @Z40LB64 22750003 * STATIC TEXT ENTRY @Z40LB64 22760003 STE94A DC YL1(STE94B-MSG94) TABLE NAME LENGTH @Z40LB64 22770003 DC FL1'4' TABLE INDEX COUNT @Z40LB64 22780003 DC FL1'0' RESERVED @Z40LB64 22790003 DC FL1'0' RESERVED @Z40LB64 22800003 DC X'0514' TABLE INDEX FLAGS @Z40LB64 22810003 MSG94 DC C'MSC CONFIGURATION DATA BLOCK' @Z40LB64 22820003 STE94B EQU * @Z40LB64 22830003 TXT94B EQU * @Z40LB64 22840003 EJECT @Z40LB64 22850003 ************************************************************ @Z40LB64 22860003 * * @Z40LB64 22870003 * 'MSC MOUNT EQUALIZATION RECORD' (TABLE NAME) * @Z40LB64 22880003 * * @Z40LB64 22890003 ************************************************************ @Z40LB64 22900003 SPACE 1 @Z40LB64 22910003 TXT95 DC Y(TXT95B-TXT95A) ENTRY LENGTH @Z40LB64 22920003 DC H'0' @Z40LB64 22930003 SPACE 1 @Z40LB64 22940003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 22950003 TXT95A DC X'8400' STATIC TEXT FLAGS @Z40LB64 22960003 DC Y(STE95B-STE95A) TEXT LENGTH @Z40LB64 22970003 DC Y(STE95A-TXT95A) TEXT OFFSET @Z40LB64 22980003 DC H'1' PRINT COLUMN @Z40LB64 22990003 DC Y(STE95B-STE95A) PRINT FIELD LENGTH @Z40LB64 23000003 DC H'0' CONVERSION FLAGS @Z40LB64 23010003 SPACE 1 @Z40LB64 23020003 * STATIC TEXT ENTRY @Z40LB64 23030003 STE95A DC YL1(STE95B-MSG95) TABLE NAME LENGTH @Z40LB64 23040003 DC FL1'1' TABLE INDEX COUNT @Z40LB64 23050003 DC FL1'0' RESERVED @Z40LB64 23060003 DC FL1'0' RESERVED @Z40LB64 23070003 DC X'0200' TABLE INDEX FLAGS @Z40LB64 23080003 MSG95 DC C'MSC MOUNT EQUALIZATION RECORD' @Z40LB64 23090003 STE95B EQU * @Z40LB64 23100003 TXT95B EQU * @Z40LB64 23110003 EJECT @Z40LB64 23120003 ************************************************************ @Z40LB64 23130003 * * @Z40LB64 23140003 * 'MSC CONFIGURATION BIT MAP' (TABLE NAME) * @Z40LB64 23150003 * * @Z40LB64 23160003 ************************************************************ @Z40LB64 23170003 SPACE 1 @Z40LB64 23180003 TXT96 DC Y(TXT96B-TXT96A) ENTRY LENGTH @Z40LB64 23190003 DC H'0' @Z40LB64 23200003 SPACE 1 @Z40LB64 23210003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 23220003 TXT96A DC X'8400' STATIC TEXT FLAGS @Z40LB64 23230003 DC Y(STE96B-STE96A) TEXT LENGTH @Z40LB64 23240003 DC Y(STE96A-TXT96A) TEXT OFFSET @Z40LB64 23250003 DC H'1' PRINT COLUMN @Z40LB64 23260003 DC Y(STE96B-STE96A) PRINT FIELD LENGTH @Z40LB64 23270003 DC H'0' CONVERSION FLAGS @Z40LB64 23280003 SPACE 1 @Z40LB64 23290003 * STATIC TEXT ENTRY @Z40LB64 23300003 STE96A DC YL1(STE96B-MSG96) TABLE NAME LENGTH @Z40LB64 23310003 DC FL1'2' TABLE INDEX COUNT @Z40LB64 23320003 DC FL1'0' RESERVED @Z40LB64 23330003 DC FL1'0' RESERVED @Z40LB64 23340003 DC X'0240' TABLE INDEX FLAGS @Z40LB64 23350003 MSG96 DC C'MSC CONFIGURATION BIT MAP' @Z40LB64 23360003 STE96B EQU * @Z40LB64 23370003 TXT96B EQU * @Z40LB64 23380003 EJECT @Z40LB64 23390003 ************************************************************ @Z40LB64 23400003 * * @Z40LB64 23410003 * 'MSC VI, MSC TVL, OR MSC SCL' (TABLE NAME) * @Z40LB64 23420003 * * @Z40LB64 23430003 ************************************************************ @Z40LB64 23440003 SPACE 1 @Z40LB64 23450003 TXT97 DC Y(TXT97B-TXT97A) ENTRY LENGTH @Z40LB64 23460003 DC H'0' @Z40LB64 23470003 SPACE 1 @Z40LB64 23480003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 23490003 TXT97A DC X'8400' STATIC TEXT FLAGS @Z40LB64 23500003 DC Y(STE97B-STE97A) TEXT LENGTH @Z40LB64 23510003 DC Y(STE97A-TXT97A) TEXT OFFSET @Z40LB64 23520003 DC H'1' PRINT COLUMN @Z40LB64 23530003 DC Y(STE97B-STE97A) PRINT FIELD LENGTH @Z40LB64 23540003 DC H'0' CONVERSION FLAGS @Z40LB64 23550003 SPACE 1 @Z40LB64 23560003 * STATIC TEXT ENTRY @Z40LB64 23570003 STE97A DC YL1(STE97B-MSG97) TABLE NAME LENGTH @Z40LB64 23580003 DC FL1'0' TABLE INDEX COUNT @Z40LB64 23590003 DC FL1'0' RESERVED @Z40LB64 23600003 DC FL1'0' RESERVED @Z40LB64 23610003 DC X'0000' TABLE INDEX FLAGS @Z40LB64 23620003 MSG97 DC C'MSC VI, MSC TVL, OR MSC SCL' @Z40LB64 23630003 STE97B EQU * @Z40LB64 23640003 TXT97B EQU * @Z40LB64 23650003 EJECT @Z40LB64 23660003 ************************************************************ @Z40LB64 23670003 * * @Z40LB64 23680003 * TABLE INDEX NAME STATIC TEXT ENTRIES. * @Z40LB64 23690003 * * @Z40LB64 23700003 * EACH ENTRY CONTAINS THE NAME OF THE TABLE INDEX, THE * @Z40LB64 23710003 * LENGTH OF THE TABLE INDEX NAME, THE LENGTH OF THE * @Z40LB64 23720003 * CORRESPONDING TABLE INDEX VALUE, THE CONVERSION TO BE * @Z40LB64 23730003 * PERFORMED ON THE TABLE INDEX VALUE FOR PRINTING, AND * @Z40LB64 23740003 * THE RESULTANT LENGTH TO BE PRINTED AFTER CONVERSION. * @Z40LB64 23750003 * * @Z40LB64 23760003 ************************************************************ @Z40LB64 23770003 SPACE 1 @Z40LB64 23780003 ************************************************************ @Z40LB64 23790003 * * @Z40LB64 23800003 * 'CSN' (TABLE INDEX NAME) * @Z40LB64 23810003 * * @Z40LB64 23820003 ************************************************************ @Z40LB64 23830003 SPACE 1 @Z40LB64 23840003 TXT101 DC Y(TXT101B-TXT101A) ENTRY LENGTH @Z40LB64 23850003 DC H'0' @Z40LB64 23860003 SPACE 1 @Z40LB64 23870003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 23880003 TXT101A DC X'8400' STATIC TEXT FLAGS @Z40LB64 23890003 DC Y(STE101B-STE101A) TEXT LENGTH @Z40LB64 23900003 DC Y(STE101A-TXT101A) TEXT OFFSET @Z40LB64 23910003 DC H'1' PRINT COLUMN @Z40LB64 23920003 DC Y(STE101B-STE101A) PRINT FIELD LENGTH @Z40LB64 23930003 DC H'0' CONVERSION FLAGS @Z40LB64 23940003 SPACE 1 @Z40LB64 23950003 * STATIC TEXT ENTRY @Z40LB64 23960003 STE101A DC YL1(STE101B-MSG101) TABLE INDEX LENGTH @Z40LB64 23970003 DC FL1'0' RESERVED @Z40LB64 23980003 DC FL1'12' VALUE INPUT LENGTH @Z40LB64 23990003 DC FL1'12' VALUE OUTPUT LENGTH @Z40LB64 24000003 DC X'0000' VALUE CONVERSION @Z40LB64 24010003 MSG101 DC C'CSN' @Z40LB64 24020003 STE101B EQU * @Z40LB64 24030003 TXT101B EQU * @Z40LB64 24040003 EJECT @Z40LB64 24050003 ************************************************************ @Z40LB64 24060003 * * @Z40LB64 24070003 * 'VOL' (TABLE INDEX NAME) * @Z40LB64 24080003 * * @Z40LB64 24090003 ************************************************************ @Z40LB64 24100003 SPACE 1 @Z40LB64 24110003 TXT102 DC Y(TXT102B-TXT102A) ENTRY LENGTH @Z40LB64 24120003 DC H'0' @Z40LB64 24130003 SPACE 1 @Z40LB64 24140003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 24150003 TXT102A DC X'8400' STATIC TEXT FLAGS @Z40LB64 24160003 DC Y(STE102B-STE102A) TEXT LENGTH @Z40LB64 24170003 DC Y(STE102A-TXT102A) TEXT OFFSET @Z40LB64 24180003 DC H'1' PRINT COLUMN @Z40LB64 24190003 DC Y(STE102B-STE102A) PRINT FIELD LENGTH @Z40LB64 24200003 DC H'0' CONVERSION FLAGS @Z40LB64 24210003 SPACE 1 @Z40LB64 24220003 * STATIC TEXT ENTRY @Z40LB64 24230003 STE102A DC YL1(STE102B-MSG102) TABLE INDEX LENGTH @Z40LB64 24240003 DC FL1'0' RESERVED @Z40LB64 24250003 DC FL1'6' VALUE INPUT LENGTH @Z40LB64 24260003 DC FL1'6' VALUE OUTPUT LENGTH @Z40LB64 24270003 DC X'0000' VALUE CONVERSION @Z40LB64 24280003 MSG102 DC C'VOL' @Z40LB64 24290003 STE102B EQU * @Z40LB64 24300003 TXT102B EQU * @Z40LB64 24310003 EJECT @Z40LB64 24320003 ************************************************************ @Z40LB64 24330003 * * @Z40LB64 24340003 * 'KEY' (TABLE INDEX NAME) * @Z40LB64 24350003 * * @Z40LB64 24360003 ************************************************************ @Z40LB64 24370003 SPACE 1 @Z40LB64 24380003 TXT103 DC Y(TXT103B-TXT103A) ENTRY LENGTH @Z40LB64 24390003 DC H'0' @Z40LB64 24400003 SPACE 1 @Z40LB64 24410003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 24420003 TXT103A DC X'8400' STATIC TEXT FLAGS @Z40LB64 24430003 DC Y(STE103B-STE103A) TEXT LENGTH @Z40LB64 24440003 DC Y(STE103A-TXT103A) TEXT OFFSET @Z40LB64 24450003 DC H'1' PRINT COLUMN @Z40LB64 24460003 DC Y(STE103B-STE103A) PRINT FIELD LENGTH @Z40LB64 24470003 DC H'0' CONVERSION FLAGS @Z40LB64 24480003 SPACE 1 @Z40LB64 24490003 * STATIC TEXT ENTRY @Z40LB64 24500003 STE103A DC YL1(STE103B-MSG103) TABLE INDEX LENGTH @Z40LB64 24510003 DC FL1'0' RESERVED @Z40LB64 24520003 DC FL1'13' VALUE INPUT LENGTH @Z40LB64 24530003 DC FL1'25' VALUE OUTPUT LENGTH @Z40LB64 24540003 DC X'40A0' VALUE CONVERSION @Z40LB64 24550003 MSG103 DC C'KEY' @Z40LB64 24560003 STE103B EQU * @Z40LB64 24570003 TXT103B EQU * @Z40LB64 24580003 EJECT @Z40LB64 24590003 ************************************************************ @Z40LB64 24600003 * * @Z40LB64 24610003 * 'MSF' (TABLE INDEX NAME) * @Z40LB64 24620003 * * @Z40LB64 24630003 ************************************************************ @Z40LB64 24640003 SPACE 1 @Z40LB64 24650003 TXT104 DC Y(TXT104B-TXT104A) ENTRY LENGTH @Z40LB64 24660003 DC H'0' @Z40LB64 24670003 SPACE 1 @Z40LB64 24680003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 24690003 TXT104A DC X'8400' STATIC TEXT FLAGS @Z40LB64 24700003 DC Y(STE104B-STE104A) TEXT LENGTH @Z40LB64 24710003 DC Y(STE104A-TXT104A) TEXT OFFSET @Z40LB64 24720003 DC H'1' PRINT COLUMN @Z40LB64 24730003 DC Y(STE104B-STE104A) PRINT FIELD LENGTH @Z40LB64 24740003 DC H'0' CONVERSION FLAGS @Z40LB64 24750003 SPACE 1 @Z40LB64 24760003 * STATIC TEXT ENTRY @Z40LB64 24770003 STE104A DC YL1(STE104B-MSG104) TABLE INDEX LENGTH @Z40LB64 24780003 DC FL1'0' RESERVED @Z40LB64 24790003 DC FL1'1' VALUE INPUT LENGTH @Z40LB64 24800003 DC FL1'1' VALUE OUTPUT LENGTH @Z40LB64 24810003 DC X'10A0' VALUE CONVERSION @Z40LB64 24820003 MSG104 DC C'MSF' @Z40LB64 24830003 STE104B EQU * @Z40LB64 24840003 TXT104B EQU * @Z40LB64 24850003 EJECT @Z40LB64 24860003 ************************************************************ @Z40LB64 24870003 * * @Z40LB64 24880003 * 'CPU' (TABLE INDEX NAME) * @Z40LB64 24890003 * * @Z40LB64 24900003 ************************************************************ @Z40LB64 24910003 SPACE 1 @Z40LB64 24920003 TXT105 DC Y(TXT105B-TXT105A) ENTRY LENGTH @Z40LB64 24930003 DC H'0' @Z40LB64 24940003 SPACE 1 @Z40LB64 24950003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 24960003 TXT105A DC X'8400' STATIC TEXT FLAGS @Z40LB64 24970003 DC Y(STE105B-STE105A) TEXT LENGTH @Z40LB64 24980003 DC Y(STE105A-TXT105A) TEXT OFFSET @Z40LB64 24990003 DC H'1' PRINT COLUMN @Z40LB64 25000003 DC Y(STE105B-STE105A) PRINT FIELD LENGTH @Z40LB64 25010003 DC H'0' CONVERSION FLAGS @Z40LB64 25020003 SPACE 1 @Z40LB64 25030003 * STATIC TEXT ENTRY @Z40LB64 25040003 STE105A DC YL1(STE105B-MSG105) TABLE INDEX LENGTH @Z40LB64 25050003 DC FL1'0' RESERVED @Z40LB64 25060003 DC FL1'1' VALUE INPUT LENGTH @Z40LB64 25070003 DC FL1'2' VALUE OUTPUT LENGTH @Z40LB64 25080003 DC X'10A0' VALUE CONVERSION @Z40LB64 25090003 MSG105 DC C'CPU' @Z40LB64 25100003 STE105B EQU * @Z40LB64 25110003 TXT105B EQU * @Z40LB64 25120003 EJECT @Z40LB64 25130003 ************************************************************ @Z40LB64 25140003 * * @Z40LB64 25150003 * 'SA' (TABLE INDEX NAME) * @Z40LB64 25160003 * * @Z40LB64 25170003 ************************************************************ @Z40LB64 25180003 SPACE 1 @Z40LB64 25190003 TXT106 DC Y(TXT106B-TXT106A) ENTRY LENGTH @Z40LB64 25200003 DC H'0' @Z40LB64 25210003 SPACE 1 @Z40LB64 25220003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 25230003 TXT106A DC X'8400' STATIC TEXT FLAGS @Z40LB64 25240003 DC Y(STE106B-STE106A) TEXT LENGTH @Z40LB64 25250003 DC Y(STE106A-TXT106A) TEXT OFFSET @Z40LB64 25260003 DC H'1' PRINT COLUMN @Z40LB64 25270003 DC Y(STE106B-STE106A) PRINT FIELD LENGTH @Z40LB64 25280003 DC H'0' CONVERSION FLAGS @Z40LB64 25290003 SPACE 1 @Z40LB64 25300003 * STATIC TEXT ENTRY @Z40LB64 25310003 STE106A DC YL1(STE106B-MSG106) TABLE INDEX LENGTH @Z40LB64 25320003 DC FL1'0' RESERVED @Z40LB64 25330003 DC FL1'1' VALUE INPUT LENGTH @Z40LB64 25340003 DC FL1'2' VALUE OUTPUT LENGTH @Z40LB64 25350003 DC X'10A0' VALUE CONVERSION @Z40LB64 25360003 MSG106 DC C'SA' @Z40LB64 25370003 STE106B EQU * @Z40LB64 25380003 TXT106B EQU * @Z40LB64 25390003 EJECT @Z40LB64 25400003 ************************************************************ @Z40LB64 25410003 * * @Z40LB64 25420003 * 'SDG' (TABLE INDEX NAME) * @Z40LB64 25430003 * * @Z40LB64 25440003 ************************************************************ @Z40LB64 25450003 SPACE 1 @Z40LB64 25460003 TXT107 DC Y(TXT107B-TXT107A) ENTRY LENGTH @Z40LB64 25470003 DC H'0' @Z40LB64 25480003 SPACE 1 @Z40LB64 25490003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 25500003 TXT107A DC X'8400' STATIC TEXT FLAGS @Z40LB64 25510003 DC Y(STE107B-STE107A) TEXT LENGTH @Z40LB64 25520003 DC Y(STE107A-TXT107A) TEXT OFFSET @Z40LB64 25530003 DC H'1' PRINT COLUMN @Z40LB64 25540003 DC Y(STE107B-STE107A) PRINT FIELD LENGTH @Z40LB64 25550003 DC H'0' CONVERSION FLAGS @Z40LB64 25560003 SPACE 1 @Z40LB64 25570003 * STATIC TEXT ENTRY @Z40LB64 25580003 STE107A DC YL1(STE107B-MSG107) TABLE INDEX LENGTH @Z40LB64 25590003 DC FL1'0' RESERVED @Z40LB64 25600003 DC FL1'1' VALUE INPUT LENGTH @Z40LB64 25610003 DC FL1'2' VALUE OUTPUT LENGTH @Z40LB64 25620003 DC X'10A0' VALUE CONVERSION @Z40LB64 25630003 MSG107 DC C'SDG' @Z40LB64 25640003 STE107B EQU * @Z40LB64 25650003 TXT107B EQU * @Z40LB64 25660003 EJECT @Z40LB64 25670003 ************************************************************ @Z40LB64 25680003 * * @Z40LB64 25690003 * 'VUA' (TABLE INDEX NAME) * @Z40LB64 25700003 * * @Z40LB64 25710003 ************************************************************ @Z40LB64 25720003 SPACE 1 @Z40LB64 25730003 TXT108 DC Y(TXT108B-TXT108A) ENTRY LENGTH @Z40LB64 25740003 DC H'0' @Z40LB64 25750003 SPACE 1 @Z40LB64 25760003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 25770003 TXT108A DC X'8400' STATIC TEXT FLAGS @Z40LB64 25780003 DC Y(STE108B-STE108A) TEXT LENGTH @Z40LB64 25790003 DC Y(STE108A-TXT108A) TEXT OFFSET @Z40LB64 25800003 DC H'1' PRINT COLUMN @Z40LB64 25810003 DC Y(STE108B-STE108A) PRINT FIELD LENGTH @Z40LB64 25820003 DC H'0' CONVERSION FLAGS @Z40LB64 25830003 SPACE 1 @Z40LB64 25840003 * STATIC TEXT ENTRY @Z40LB64 25850003 STE108A DC YL1(STE108B-MSG108) TABLE INDEX LENGTH @Z40LB64 25860003 DC FL1'0' RESERVED @Z40LB64 25870003 DC FL1'1' VALUE INPUT LENGTH @Z40LB64 25880003 DC FL1'2' VALUE OUTPUT LENGTH @Z40LB64 25890003 DC X'10A0' VALUE CONVERSION @Z40LB64 25900003 MSG108 DC C'VUA' @Z40LB64 25910003 STE108B EQU * @Z40LB64 25920003 TXT108B EQU * @Z40LB64 25930003 EJECT @Z40LB64 25940003 ************************************************************ @Z40LB64 25950003 * * @Z40LB64 25960003 * 'XYZ' (TABLE INDEX NAME) * @Z40LB64 25970003 * * @Z40LB64 25980003 ************************************************************ @Z40LB64 25990003 SPACE 1 @Z40LB64 26000003 TXT109 DC Y(TXT109B-TXT109A) ENTRY LENGTH @Z40LB64 26010003 DC H'0' @Z40LB64 26020003 SPACE 1 @Z40LB64 26030003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 26040003 TXT109A DC X'8400' STATIC TEXT FLAGS @Z40LB64 26050003 DC Y(STE109B-STE109A) TEXT LENGTH @Z40LB64 26060003 DC Y(STE109A-TXT109A) TEXT OFFSET @Z40LB64 26070003 DC H'1' PRINT COLUMN @Z40LB64 26080003 DC Y(STE109B-STE109A) PRINT FIELD LENGTH @Z40LB64 26090003 DC H'0' CONVERSION FLAGS @Z40LB64 26100003 SPACE 1 @Z40LB64 26110003 * STATIC TEXT ENTRY @Z40LB64 26120003 STE109A DC YL1(STE109B-MSG109) TABLE INDEX LENGTH @Z40LB64 26130003 DC FL1'0' RESERVED @Z40LB64 26140003 DC FL1'8' VALUE INPUT LENGTH @Z40LB64 26150003 DC FL1'8' VALUE OUTPUT LENGTH @Z40LB64 26160003 DC X'0000' VALUE CONVERSION @Z40LB64 26170003 MSG109 DC C'XYZ' @Z40LB64 26180003 STE109B EQU * @Z40LB64 26190003 TXT109B EQU * @Z40LB64 26200003 EJECT @Z40LB64 26210003 ************************************************************ @Z40LB64 26220003 * * @Z40LB64 26230003 * 'LUA' (TABLE INDEX NAME) * @Z40LB64 26240003 * * @Z40LB64 26250003 ************************************************************ @Z40LB64 26260003 SPACE 1 @Z40LB64 26270003 TXT110 DC Y(TXT110B-TXT110A) ENTRY LENGTH @Z40LB64 26280003 DC H'0' @Z40LB64 26290003 SPACE 1 @Z40LB64 26300003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 26310003 TXT110A DC X'8400' STATIC TEXT FLAGS @Z40LB64 26320003 DC Y(STE110B-STE110A) TEXT LENGTH @Z40LB64 26330003 DC Y(STE110A-TXT110A) TEXT OFFSET @Z40LB64 26340003 DC H'1' PRINT COLUMN @Z40LB64 26350003 DC Y(STE110B-STE110A) PRINT FIELD LENGTH @Z40LB64 26360003 DC H'0' CONVERSION FLAGS @Z40LB64 26370003 SPACE 1 @Z40LB64 26380003 * STATIC TEXT ENTRY @Z40LB64 26390003 STE110A DC YL1(STE110B-MSG110) TABLE INDEX LENGTH @Z40LB64 26400003 DC FL1'0' RESERVED @Z40LB64 26410003 DC FL1'1' VALUE INPUT LENGTH @Z40LB64 26420003 DC FL1'2' VALUE OUTPUT LENGTH @Z40LB64 26430003 DC X'10A0' VALUE CONVERSION @Z40LB64 26440003 MSG110 DC C'LUA' @Z40LB64 26450003 STE110B EQU * @Z40LB64 26460003 TXT110B EQU * @Z40LB64 26470003 EJECT @Z40LB64 26480003 ************************************************************ @Z40LB64 26490003 * * @Z40LB64 26500003 * 'VVA' (TABLE INDEX NAME) * @Z40LB64 26510003 * * @Z40LB64 26520003 ************************************************************ @Z40LB64 26530003 SPACE 1 @Z40LB64 26540003 TXT111 DC Y(TXT111B-TXT111A) ENTRY LENGTH @Z40LB64 26550003 DC H'0' @Z40LB64 26560003 SPACE 1 @Z40LB64 26570003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 26580003 TXT111A DC X'8400' STATIC TEXT FLAGS @Z40LB64 26590003 DC Y(STE111B-STE111A) TEXT LENGTH @Z40LB64 26600003 DC Y(STE111A-TXT111A) TEXT OFFSET @Z40LB64 26610003 DC H'1' PRINT COLUMN @Z40LB64 26620003 DC Y(STE111B-STE111A) PRINT FIELD LENGTH @Z40LB64 26630003 DC H'0' CONVERSION FLAGS @Z40LB64 26640003 SPACE 1 @Z40LB64 26650003 * STATIC TEXT ENTRY @Z40LB64 26660003 STE111A DC YL1(STE111B-MSG111) TABLE INDEX LENGTH @Z40LB64 26670003 DC FL1'0' RESERVED @Z40LB64 26680003 DC FL1'1' VALUE INPUT LENGTH @Z40LB64 26690003 DC FL1'3' VALUE OUTPUT LENGTH @Z40LB64 26700003 DC X'10A0' VALUE CONVERSION @Z40LB64 26710003 MSG111 DC C'VVA' @Z40LB64 26720003 STE111B EQU * @Z40LB64 26730003 TXT111B EQU * @Z40LB64 26740003 EJECT @Z40LB64 26750003 ************************************************************ @Z40LB64 26760003 * * @Z40LB64 26770003 * 'INTERFACE' (TABLE INDEX NAME) * @Z40LB64 26780003 * * @Z40LB64 26790003 ************************************************************ @Z40LB64 26800003 SPACE 1 @Z40LB64 26810003 TXT112 DC Y(TXT112B-TXT112A) ENTRY LENGTH @Z40LB64 26820003 DC H'0' @Z40LB64 26830003 SPACE 1 @Z40LB64 26840003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 26850003 TXT112A DC X'8400' STATIC TEXT FLAGS @Z40LB64 26860003 DC Y(STE112B-STE112A) TEXT LENGTH @Z40LB64 26870003 DC Y(STE112A-TXT112A) TEXT OFFSET @Z40LB64 26880003 DC H'1' PRINT COLUMN @Z40LB64 26890003 DC Y(STE112B-STE112A) PRINT FIELD LENGTH @Z40LB64 26900003 DC H'0' CONVERSION FLAGS @Z40LB64 26910003 SPACE 1 @Z40LB64 26920003 * STATIC TEXT ENTRY @Z40LB64 26930003 STE112A DC YL1(STE112B-MSG112) TABLE INDEX LENGTH @Z40LB64 26940003 DC FL1'0' RESERVED @Z40LB64 26950003 DC FL1'1' VALUE INPUT LENGTH @Z40LB64 26960003 DC FL1'1' VALUE OUTPUT LENGTH @Z40LB64 26970003 DC X'0000' VALUE CONVERSION @Z40LB64 26980003 MSG112 DC C'INTERFACE' @Z40LB64 26990003 STE112B EQU * @Z40LB64 27000003 TXT112B EQU * @Z40LB64 27010003 EJECT @Z40LB64 27020003 ************************************************************ @Z40LB64 27030003 * * @Z40LB64 27040003 * 'REALPAGE' (TABLE INDEX NAME) * @Z40LB64 27050003 * * @Z40LB64 27060003 ************************************************************ @Z40LB64 27070003 SPACE 1 @Z40LB64 27080003 TXT113 DC Y(TXT113B-TXT113A) ENTRY LENGTH @Z40LB64 27090003 DC H'0' @Z40LB64 27100003 SPACE 1 @Z40LB64 27110003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 27120003 TXT113A DC X'8400' STATIC TEXT FLAGS @Z40LB64 27130003 DC Y(STE113B-STE113A) TEXT LENGTH @Z40LB64 27140003 DC Y(STE113A-TXT113A) TEXT OFFSET @Z40LB64 27150003 DC H'1' PRINT COLUMN @Z40LB64 27160003 DC Y(STE113B-STE113A) PRINT FIELD LENGTH @Z40LB64 27170003 DC H'0' CONVERSION FLAGS @Z40LB64 27180003 SPACE 1 @Z40LB64 27190003 * STATIC TEXT ENTRY @Z40LB64 27200003 STE113A DC YL1(STE113B-MSG113) TABLE INDEX LENGTH @Z40LB64 27210003 DC FL1'0' RESERVED @Z40LB64 27220003 DC FL1'1' VALUE INPUT LENGTH @Z40LB64 27230003 DC FL1'2' VALUE OUTPUT LENGTH @Z40LB64 27240003 DC X'10A0' VALUE CONVERSION @Z40LB64 27250003 MSG113 DC C'REALPAGE' @Z40LB64 27260003 STE113B EQU * @Z40LB64 27270003 TXT113B EQU * @Z40LB64 27280003 EJECT @Z40LB64 27290003 ************************************************************ @Z40LB64 27300003 * * @Z40LB64 27310003 * 'CHR' (TABLE INDEX NAME) * @Z40LB64 27320003 * * @Z40LB64 27330003 ************************************************************ @Z40LB64 27340003 SPACE 1 @Z40LB64 27350003 TXT114 DC Y(TXT114B-TXT114A) ENTRY LENGTH @Z40LB64 27360003 DC H'0' @Z40LB64 27370003 SPACE 1 @Z40LB64 27380003 * STATIC TEXT SUB-STRUCTURE @Z40LB64 27390003 TXT114A DC X'8400' STATIC TEXT FLAGS @Z40LB64 27400003 DC Y(STE114B-STE114A) TEXT LENGTH @Z40LB64 27410003 DC Y(STE114A-TXT114A) TEXT OFFSET @Z40LB64 27420003 DC H'1' PRINT COLUMN @Z40LB64 27430003 DC Y(STE114B-STE114A) PRINT FIELD LENGTH @Z40LB64 27440003 DC H'0' CONVERSION FLAGS @Z40LB64 27450003 SPACE 1 @Z40LB64 27460003 * STATIC TEXT ENTRY @Z40LB64 27470003 STE114A DC YL1(STE114B-MSG114) TABLE INDEX LENGTH @Z40LB64 27480003 DC FL1'0' RESERVED @Z40LB64 27490003 DC FL1'3' VALUE INPUT LENGTH @Z40LB64 27500003 DC FL1'5' VALUE OUTPUT LENGTH @Z40LB64 27510003 DC X'40A0' VALUE CONVERSION @Z40LB64 27520003 MSG114 DC C'CHR' @Z40LB64 27530003 STE114B EQU * @Z40LB64 27540003 TXT114B EQU * @Z40LB64 27550003 EJECT @Z40LB64 27560003 END IDCTSCH0 @Z40LB64 27570003