* /* START OF SPECIFICATIONS**** @Y30LB35 00010003 * 00012003 *01* PROCESSOR = ASSEM 00020003 * 00022003 **** END OF SPECIFICATIONS ** 00030003 * 00040003 TITLE '***** IDCTSIO5 - IDCIO05 STATIC TEXT *****' @Y30LB35 00050003 ************************************************************ @Y30LB35 00100003 * * @Y30LB35 00150003 * MODULE NAME - IDCTSIO5 * @Y30LB35 00200003 * * @Y30LB35 00250003 * * @Y30LB35 00300003 * DESCRIPTIVE NAME - STATIC TEXT MODULE FOR THE I/O * @Y30LB35 00350003 * SYSTEM ADAPTER TO SUPPORT THE MSF * @Y30LB35 00360003 * * @Y30LB35 00400003 * * @Y30LB35 00450003 * COPYRIGHT - NONE * @Y30LB35 00500003 * * @Y30LB35 00550003 * STATUS - RELEASE 3 LEVEL 1 * @G24LB31 00600042 * * @Y30LB35 00650003 * FUNCTION - CONTAINS NO EXECTABLE CODE, ONLY STATIC TEXT * @Y30LB35 00700003 * ENTRIES FOR THE I/O SYSTEM ADAPTER * @Y30LB35 00750003 * THIS MODULE IS LOADED BY IDCTP05 WHEN A STATIC * @Y30LB35 00800003 * TEXT REQUEST IS MADE. * @Y30LB35 00850003 * * @Y30LB35 00900003 * NOTES - NONE * @Y30LB35 00950003 * * @Y30LB35 01000003 * DEPENDENCIES - NONE * @Y30LB35 01050003 * RESTRICTIONS - NONE * @Y30LB35 01100003 * REGISTER CONVENTIONS - NA * @Y30LB35 01150003 * PATCH AREA - NA * @Y30LB35 01200003 * * @Y30LB35 01250003 * MODULE TYPE - TABLES * @Y30LB35 01300003 * * @Y30LB35 01350003 * PROCESSOR - ASSEMBLER * @Y30LB35 01400003 * MODULE SIZE - 672 * @G24LB31 01450042 * ATTRIBUTES - READ-ONLY * @Y30LB35 01500003 * * @Y30LB35 01550003 * ENTRY POINT - NA * @Y30LB35 01600003 * * @Y30LB35 01650003 * EXIT NORMAL - NA * @Y30LB35 01700003 * * @Y30LB35 01750003 * EXIT ERROR - NA * @Y30LB35 01800003 * * @Y30LB35 01850003 * EXTERNAL REFERENCES - NA * @Y30LB35 01900003 * * @Y30LB35 01950003 * TABLES - NA * @Y30LB35 02000003 * * @Y30LB35 02050003 * MACROS - NA * @Y30LB35 02100003 * * @Y30LB35 02150003 * CHANGE ACTIVITY - * @G24LB31 02200042 * 01 08/24/76 - RACF PTM VS44013, NEW MSG IDC2376I * @G24LB31 02210042 * * @Y30LB35 02250003 ************************************************************ @Y30LB35 02300003 EJECT @Y30LB35 02350003 ************************************************************ @Y30LB35 02400003 * * @Y30LB35 02450003 * THIS MODULE IS THE FIRST MODULE OF STATIC TEXT REQUIRED * @Y30LB35 02500003 * BY THE IO SYSTEM ADAPTER IO5 * @Y30LB35 02550003 * * @Y30LB35 02600003 ************************************************************ @Y30LB35 02650003 * @Y30LB35 02700003 IDCTSIO5 CSECT @Y30LB35 02750003 * @Y30LB35 02800003 INDEX DC Y((INDEXEND-INDEX1)/2) COUNT OF ENTRIES @Y30LB35 02850003 INDEX1 DC Y(TXT1-INDEX) @Y30LB35 02900003 INDEX2 DC Y(TXT2-INDEX) @Y30LB35 02910003 INDEX3 DC Y(TXT3-INDEX) @Y30LB35 02920003 INDEX4 DC Y(TXT4-INDEX) @Y30LB35 02930003 INDEX5 DC Y(TXT5-INDEX) @Y30LB35 02940003 INDEX6 DC Y(TXT6-INDEX) @Y30LB35 02942003 INDEX7 DC Y(TXT7-INDEX) @Y30LB35 02944003 INDEX8 DC Y(TXT8-INDEX) @Y30LB35 02946003 INDEX9 DC Y(TXT9-INDEX) @Y30LB35 02948003 INDEX10 DC Y(TXT10-INDEX) @G24LB31 02948442 INDEXEND DS 0H @Y30LB35 02950003 EJECT @Y30LB35 03000003 ********************************************************** @Y30LB35 03050003 * * @Y30LB35 03100003 * IDC2370I UNABLE TO READ JFCB FOR DD ENTRY (DDNAME) * @Y30LB35 03150003 * RDJFCB CODE (XX) * @Y30LB35 03160003 * * @Y30LB35 03200003 ********************************************************** @Y30LB35 03250003 SPACE 3 @Y30LB35 03300003 TXT1 DC Y(TXT1B-TXT1A) ENTRY LENGTH @Y30LB35 03350003 DC X'8000' MESSAGE FLAG @Y30LB35 03400003 SPACE 1 @Y30LB35 03450003 * SPACING CONTROL SUB-STRUCTURE @Y30LB35 03500003 TXT1A DC X'4000' SPACE CONTROL FLAG @Y30LB35 03550003 DC H'2' SPACING FACTOR @Y30LB35 03600003 DC C'R ' SPACING TYPE @Y30LB35 03650003 SPACE 1 @Y30LB35 03700003 * STATIC TEXT SUB-STRUCTURE @Y30LB35 03750003 DC X'0400' STATIC TEXT FLAG @Y30LB35 03800003 DC Y(STE11B-STE11A) TEXT LENGTH @Y30LB35 03850003 DC Y(STE11A-TXT1A) TEXT OFFSET @Y30LB35 03900003 DC H'1' PRINT COLUMN @Y30LB35 03950003 DC Y(STE11B-STE11A) PRINT FIELD LENGTH @Y30LB35 04000003 DC H'0' CONVERSION FLAGS @Y30LB35 04050003 SPACE 1 @Y30LB35 04100003 * BLOCK DATA SUB-STRUCTURE @Y30LB35 04150003 DC X'1000' @Y30LB35 04200003 DC H'08,00,43,08,00' LNG,OFST,PC, @Y30LB35 04250003 * LNG,FLG @Y30LB35 04300003 SPACE 1 @Y30LB35 04310003 * STATIC TEXT SUB-STRUCTURE @Y30LB35 04320003 DC X'0400' STATIC TEXT FLAG @Y30LB35 04330003 DC Y(STE12B-STE12A) TEXT LENGTH @Y30LB35 04340003 DC Y(STE12A-TXT1A) TEXT OFFSET @Y30LB35 04342003 DC H'1' PRINT COLUMN @Y30LB35 04344003 DC Y(STE12B-STE12A) PRINT FIELD LENGTH @Y30LB35 04346003 DC H'16' CONVERSION FLAGS @Y30LB35 04348003 SPACE 1 @Y30LB35 04348403 * INSERT DATA SUB-STRUCTURE @Y30LB35 04348803 DC X'A000' @Y30LB35 04349203 DC H'01,00,01,10' REF,UNUSED,PC,LNG @Y30LB35 04349603 DC X'10F0' CONVERSION FLGS @Y30LB35 04349703 SPACE 1 @Y30LB35 04350003 * STATIC TEXT ENTRIES @Y30LB35 04400003 STE11A DC C'IDC2370I UNABLE TO READ JFCB FOR DD ENTRY' @Y30LB35 04450003 STE11B EQU * @Y30LB35 04500003 STE12A DC C'RDJFCB CODE' @Y30LB35 04510003 STE12B EQU * @Y30LB35 04520003 TXT1B EQU * @Y30LB35 04550003 EJECT @Y30LB35 04560003 ********************************************************** @Y30LB35 04570003 * * @Y30LB35 04580003 * IDC2371I UNABLE TO OBTAIN STORAGE FOR I/O PROCESSING * @Y30LB35 04590003 * * @Y30LB35 04592003 ********************************************************** @Y30LB35 04594003 SPACE 3 @Y30LB35 04596003 TXT2 DC Y(TXT2B-TXT2A) ENTRY LENGTH @Y30LB35 04598003 DC X'8000' MESSAGE FLAG @Y30LB35 04598403 SPACE 1 @Y30LB35 04598803 * SPACING CONTROL SUB-STRUCTURE @Y30LB35 04599203 TXT2A DC X'4000' SPACE CONTROL FLAG @Y30LB35 04599603 DC H'2' SPACING FACTOR @Y30LB35 04599703 DC C'R ' SPACING TYPE @Y30LB35 04599803 SPACE 1 @Y30LB35 04599903 * STATIC TEXT SUB-STRUCTURE @Y30LB35 04649903 DC X'8400' STATIC TEXT FLAG @Y30LB35 04659903 DC Y(STE21B-STE21A) TEXT LENGTH @Y30LB35 04669903 DC Y(STE21A-TXT2A) TEXT OFFSET @Y30LB35 04679903 DC H'1' PRINT COLUMN @Y30LB35 04689903 DC Y(STE21B-STE21A) PRINT FIELD LENGTH @Y30LB35 04691903 DC H'0' CONVERSION FLAGS @Y30LB35 04693903 SPACE 1 @Y30LB35 04699503 * STATIC TEXT ENTRIES @Y30LB35 04699603 STE21A DC C'IDC2371I UNABLE TO OBTAIN storage ' @Y30LB35 04699703 DC C'for I/O PROCESSING' @Y30LB35 04716403 STE21B EQU * @Y30LB35 04733103 TXT2B EQU * @Y30LB35 04749803 EJECT @Y30LB35 04759803 ********************************************************** @Y30LB35 04769803 * * @Y30LB35 04779803 * IDC2372I OPEN ABEND EXIT - (DSN/VTOC) * @Y30LB35 04789803 * * @Y30LB35 04791803 ********************************************************** @Y30LB35 04793803 SPACE 3 @Y30LB35 04795803 TXT3 DC Y(TXT3B-TXT3A) ENTRY LENGTH @Y30LB35 04797803 DC X'8000' MESSAGE FLAG @Y30LB35 04798203 SPACE 1 @Y30LB35 04798603 * SPACING CONTROL SUB-STRUCTURE @Y30LB35 04799003 TXT3A DC X'4000' SPACE CONTROL FLAG @Y30LB35 04799403 DC H'2' SPACING FACTOR @Y30LB35 04799503 DC C'R ' SPACING TYPE @Y30LB35 04799603 SPACE 1 @Y30LB35 04799703 * STATIC TEXT SUB-STRUCTURE @Y30LB35 04849703 DC X'0400' STATIC TEXT FLAG @Y30LB35 04859703 DC Y(STE31B-STE31A) TEXT LENGTH @Y30LB35 04869703 DC Y(STE31A-TXT3A) TEXT OFFSET @Y30LB35 04879703 DC H'1' PRINT COLUMN @Y30LB35 04889703 DC Y(STE31B-STE31A) PRINT FIELD LENGTH @Y30LB35 04891703 DC H'0' CONVERSION FLAGS @Y30LB35 04893703 SPACE 1 @Y30LB35 04895703 * BLOCK DATA SUB-STRUCTURE @Y30LB35 04897703 DC X'9000' @Y30LB35 04898103 DC H'44,00,28,44,00' LNG,OFST,PC, @Y30LB35 04898503 * LNG,FLG @Y30LB35 04898903 SPACE 1 @Y30LB35 04909303 * STATIC TEXT ENTRIES @Y30LB35 04926303 STE31A DC C'IDC2372I OPEN ABEND EXIT - ' @Y30LB35 04929603 STE31B EQU * @Y30LB35 04939603 TXT3B EQU * @Y30LB35 04949603 EJECT @Y30LB35 04959603 ********************************************************** @Y30LB35 04969603 * * @Y30LB35 04979603 * IDC3300I UNABLE TO OPEN (DSN/VTOC) * @Y30LB35 04989603 * * @Y30LB35 04991603 ********************************************************** @Y30LB35 04993603 SPACE 3 @Y30LB35 04995603 TXT4 DC Y(TXT4B-TXT4A) ENTRY LENGTH @Y30LB35 04997603 DC X'8000' MESSAGE FLAG @Y30LB35 04998003 SPACE 1 @Y30LB35 04998403 * SPACING CONTROL SUB-STRUCTURE @Y30LB35 04998803 TXT4A DC X'4000' SPACE CONTROL FLAG @Y30LB35 04999203 DC H'2' SPACING FACTOR @Y30LB35 04999303 DC C'R ' SPACING TYPE @Y30LB35 04999403 SPACE 1 @Y30LB35 04999503 * STATIC TEXT SUB-STRUCTURE @Y30LB35 05049503 DC X'0400' STATIC TEXT FLAG @Y30LB35 05059503 DC Y(STE41B-STE41A) TEXT LENGTH @Y30LB35 05069503 DC Y(STE41A-TXT4A) TEXT OFFSET @Y30LB35 05079503 DC H'1' PRINT COLUMN @Y30LB35 05089503 DC Y(STE41B-STE41A) PRINT FIELD LENGTH @Y30LB35 05091503 DC H'0' CONVERSION FLAGS @Y30LB35 05093503 SPACE 1 @Y30LB35 05095503 * BLOCK DATA SUB-STRUCTURE @Y30LB35 05097503 DC X'9000' @Y30LB35 05097903 DC H'44,00,25,44,00' REF,OFST,PC, @Y30LB35 05098303 * LNG,FLG @Y30LB35 05098703 SPACE 1 @Y30LB35 05098803 * STATIC TEXT ENTRIES @Y30LB35 05124203 STE41A DC C'IDC3300I UNABLE TO OPEN' @Y30LB35 05132603 STE41B EQU * @Y30LB35 05141003 TXT4B EQU * @Y30LB35 05149403 EJECT @Y30LB35 05159403 ********************************************************** @Y30LB35 05169403 * * @Y30LB35 05179403 * IDC3313I (SYNAD MESSAGE) * @Y30LB35 05189403 * * @Y30LB35 05191403 ********************************************************** @Y30LB35 05193403 SPACE 3 @Y30LB35 05195403 TXT5 DC Y(TXT5B-TXT5A) ENTRY LENGTH @Y30LB35 05197403 DC X'8000' MESSAGE FLAG @Y30LB35 05197803 SPACE 1 @Y30LB35 05198203 * SPACING CONTROL SUB-STRUCTURE @Y30LB35 05198603 TXT5A DC X'4000' SPACE CONTROL FLAG @Y30LB35 05199003 DC H'2' SPACING FACTOR @Y30LB35 05199103 DC C'R ' SPACING TYPE @Y30LB35 05199203 SPACE 1 @Y30LB35 05199303 * STATIC TEXT SUB-STRUCTURE @Y30LB35 05249303 DC X'0400' STATIC TEXT FLAG @Y30LB35 05259303 DC Y(STE51B-STE51A) TEXT LENGTH @Y30LB35 05269303 DC Y(STE51A-TXT5A) TEXT OFFSET @Y30LB35 05279303 DC H'1' PRINT COLUMN @Y30LB35 05289303 DC Y(STE51B-STE51A) PRINT FIELD LENGTH @Y30LB35 05291303 DC H'0' CONVERSION FLAGS @Y30LB35 05293303 SPACE 1 @Y30LB35 05295303 * BLOCK DATA SUB-STRUCTURE @Y30LB35 05297303 DC X'9000' @Y30LB35 05297703 DC H'64,00,10,64,00' FLG,LNG,OFST,PC, @Y30LB35 05298103 * LNG,FLG @Y30LB35 05298503 SPACE 1 @Y30LB35 05298903 * STATIC TEXT ENTRIES @Y30LB35 05299003 STE51A DC C'IDC3313I' @Y30LB35 05299103 STE51B EQU * @Y30LB35 05299203 TXT5B EQU * @Y30LB35 05349203 EJECT @Y30LB35 05359203 ********************************************************** @Y30LB35 05369203 * * @Y30LB35 05379203 * IDC2373I INVALID PASSWORD (DSN) * @Y30LB35 05389203 * * @Y30LB35 05391203 ********************************************************** @Y30LB35 05393203 SPACE 3 @Y30LB35 05395203 TXT6 DC Y(TXT6B-TXT6A) ENTRY LENGTH @Y30LB35 05397203 DC X'8000' MESSAGE FLAG @Y30LB35 05397603 SPACE 1 @Y30LB35 05398003 * SPACING CONTROL SUB-STRUCTURE @Y30LB35 05398403 TXT6A DC X'4000' SPACE CONTROL FLAG @Y30LB35 05398803 DC H'2' SPACING FACTOR @Y30LB35 05398903 DC C'R ' SPACING TYPE @Y30LB35 05399003 SPACE 1 @Y30LB35 05399103 * STATIC TEXT SUB-STRUCTURE @Y30LB35 05449103 DC X'0400' STATIC TEXT FLAG @Y30LB35 05459103 DC Y(STE61B-STE61A) TEXT LENGTH @Y30LB35 05469103 DC Y(STE61A-TXT6A) TEXT OFFSET @Y30LB35 05479103 DC H'1' PRINT COLUMN @Y30LB35 05489103 DC Y(STE61B-STE61A) PRINT FIELD LENGTH @Y30LB35 05491103 DC H'0' CONVERSION FLAGS @Y30LB35 05493103 SPACE 1 @Y30LB35 05495103 * BLOCK DATA SUB-STRUCTURE @Y30LB35 05497103 DC X'9000' @Y30LB35 05497503 DC H'44,00,27,44,00' FLG,LNG,OFST,PC, @Y30LB35 05497903 * LNG,FLG @Y30LB35 05498303 SPACE 1 @Y30LB35 05498703 * STATIC TEXT ENTRIES @Y30LB35 05498803 STE61A DC C'IDC2373I INVALID PASSWORD' @Y30LB35 05498903 STE61B EQU * @Y30LB35 05499003 TXT6B EQU * @Y30LB35 05549003 EJECT @Y30LB35 05559003 ********************************************************** @Y30LB35 05569003 * * @Y30LB35 05579003 * IDC2374I CLOSE ABEND EXIT - (DSN/VTOC) * @Y30LB35 05589003 * * @Y30LB35 05591003 ********************************************************** @Y30LB35 05593003 SPACE 3 @Y30LB35 05595003 TXT7 DC Y(TXT7B-TXT7A) ENTRY LENGTH @Y30LB35 05597003 DC X'8000' MESSAGE FLAG @Y30LB35 05597403 SPACE 1 @Y30LB35 05597803 * SPACING CONTROL SUB-STRUCTURE @Y30LB35 05598203 TXT7A DC X'4000' SPACE CONTROL FLAG @Y30LB35 05598603 DC H'2' SPACING FACTOR @Y30LB35 05598703 DC C'R ' SPACING TYPE @Y30LB35 05598803 SPACE 1 @Y30LB35 05598903 * STATIC TEXT SUB-STRUCTURE @Y30LB35 05648903 DC X'0400' STATIC TEXT FLAG @Y30LB35 05658903 DC Y(STE71B-STE71A) TEXT LENGTH @Y30LB35 05668903 DC Y(STE71A-TXT7A) TEXT OFFSET @Y30LB35 05678903 DC H'1' PRINT COLUMN @Y30LB35 05688903 DC Y(STE71B-STE71A) PRINT FIELD LENGTH @Y30LB35 05690903 DC H'0' CONVERSION FLAGS @Y30LB35 05692903 SPACE 1 @Y30LB35 05694903 * BLOCK DATA SUB-STRUCTURE @Y30LB35 05696903 DC X'9000' @Y30LB35 05697303 DC H'44,00,29,44,00' FLG,LNG,OFST,PC, @Y30LB35 05697703 * LNG,FLG @Y30LB35 05698103 SPACE 1 @Y30LB35 05708503 * STATIC TEXT ENTRIES @Y30LB35 05725503 STE71A DC C'IDC2374I CLOSE ABEND EXIT - ' @Y30LB35 05727503 STE71B EQU * @Y30LB35 05727903 TXT7B EQU * @Y30LB35 05748803 EJECT @Y30LB35 05758803 ********************************************************** @Y30LB35 05768803 * * @Y30LB35 05778803 * IDC2375I ** I/O ERROR - (DSN) * @Y30LB35 05788803 * * @Y30LB35 05790803 ********************************************************** @Y30LB35 05792803 SPACE 3 @Y30LB35 05794803 TXT8 DC Y(TXT8B-TXT8A) ENTRY LENGTH @Y30LB35 05796803 DC X'8000' MESSAGE FLAG @Y30LB35 05797203 SPACE 1 @Y30LB35 05797603 * SPACING CONTROL SUB-STRUCTURE @Y30LB35 05798003 TXT8A DC X'4000' SPACE CONTROL FLAG @Y30LB35 05798403 DC H'1' SPACING FACTOR @Y30LB35 05798503 DC C'R ' SPACING TYPE @Y30LB35 05798603 SPACE 1 @Y30LB35 05798703 * STATIC TEXT SUB-STRUCTURE @Y30LB35 05848703 DC X'0400' STATIC TEXT FLAG @Y30LB35 05858703 DC Y(STE81B-STE81A) TEXT LENGTH @Y30LB35 05868703 DC Y(STE81A-TXT8A) TEXT OFFSET @Y30LB35 05878703 DC H'1' PRINT COLUMN @Y30LB35 05888703 DC Y(STE81B-STE81A) PRINT FIELD LENGTH @Y30LB35 05890703 DC H'0' CONVERSION FLAGS @Y30LB35 05892703 SPACE 1 @Y30LB35 05894703 * BLOCK DATA SUB-STRUCTURE @Y30LB35 05896703 DC X'9000' @Y30LB35 05897103 DC H'44,00,25,44,00' REF,OFST,PC, @Y30LB35 05897503 * LNG,FLG @Y30LB35 05897903 SPACE 1 @Y30LB35 05898003 * STATIC TEXT ENTRIES @Y30LB35 05923403 STE81A DC C'IDC2375I ** I/O ERROR -' @Y30LB35 05931803 STE81B EQU * @Y30LB35 05940203 TXT8B EQU * @Y30LB35 05948603 EJECT @Y30LB35 05998603 ********************************************************** @Y30LB35 06048603 * * @Y30LB35 06098603 * IDC2375I ** I/O ERROR - VOLUME LABEL * @Y30LB35 06148603 * * @Y30LB35 06158603 ********************************************************** @Y30LB35 06168603 SPACE 3 @Y30LB35 06178603 TXT9 DC Y(TXT9B-TXT9A) ENTRY LENGTH @Y30LB35 06188603 DC X'8000' MESSAGE FLAG @Y30LB35 06190603 SPACE 1 @Y30LB35 06192603 * SPACING CONTROL SUB-STRUCTURE @Y30LB35 06194603 TXT9A DC X'4000' SPACE CONTROL FLAG @Y30LB35 06196603 DC H'1' SPACING FACTOR @Y30LB35 06197003 DC C'R ' SPACING TYPE @Y30LB35 06197403 SPACE 1 @Y30LB35 06197803 * STATIC TEXT SUB-STRUCTURE @Y30LB35 06198203 DC X'8400' STATIC TEXT FLAG @Y30LB35 06198303 DC Y(STE91B-STE91A) TEXT LENGTH @Y30LB35 06248303 DC Y(STE91A-TXT9A) TEXT OFFSET @Y30LB35 06258303 DC H'1' PRINT COLUMN @Y30LB35 06268303 DC Y(STE91B-STE91A) PRINT FIELD LENGTH @Y30LB35 06278303 DC H'0' CONVERSION FLAGS @Y30LB35 06288303 SPACE 1 @Y30LB35 06290303 * STATIC TEXT ENTRIES @Y30LB35 06378203 STE91A DC C'IDC2375I ** I/O ERROR - VOLUME ' @Y30LB35 06388203 DC C'LABEL' @Y30LB35 06388603 STE91B EQU * @Y30LB35 06390203 TXT9B EQU * @Y30LB35 06396203 EJECT @G24LB31 06396342 ********************************************************** @G24LB31 06396642 * * @G24LB31 06397042 * IDC2376I SECURITY VIOLATION (DSN) * @G24LB31 06397442 * * @G24LB31 06397842 ********************************************************** @G24LB31 06397942 SPACE 3 @G24LB31 06398042 TXT10 DC Y(TXT10B-TXT10A) ENTRY LENGTH @G24LB31 06398142 DC X'8000' MESSAGE FLAG @G24LB31 06448142 SPACE 1 @G24LB31 06458142 * SPACING CONTROL SUB-STRUCTURE @G24LB31 06468142 TXT10A DC X'4000' SPACE CONTROL FLAG @G24LB31 06478142 DC H'2' SPACING FACTOR @G24LB31 06488142 DC C'R ' SPACING TYPE @G24LB31 06490142 SPACE 1 @G24LB31 06492142 * STATIC TEXT SUB-STRUCTURE @G24LB31 06494142 DC X'0400' STATIC TEXT FLAG @G24LB31 06496142 DC Y(STE10BB-STE10AA) TEXT LENGTH @G24LB31 06496542 DC Y(STE10AA-TXT10A) TEXT OFFSET @G24LB31 06496942 DC H'1' PRINT COLUMN @G24LB31 06497342 DC Y(STE10BB-STE10AA) PRINT FIELD LENGTH @G24LB31 06497742 DC H'0' CONVERSION FLAGS @G24LB31 06497842 SPACE 1 @G24LB31 06497942 * BLOCK DATA SUB-STRUCTURE @G24LB31 06498042 DC X'9000' @G24LB31 06548042 DC H'44,00,29,44,00' FLG,LNG,OFST,PC, @G24LB31 06558042 * LNG,FLG @G24LB31 06568042 SPACE 1 @G24LB31 06578042 * STATIC TEXT ENTRIES @G24LB31 06588042 STE10AA DC C'IDC2376I SECURITY VIOLATION' @G24LB31 06590042 STE10BB EQU * @G24LB31 06592042 TXT10B EQU * @G24LB31 06594042 END 06598042