*********************************************************************** 00100000 * * 00150000 * MODULE NAME - ICKTSDV0 * 00200000 * * 00250000 * DESCRIPTIVE NAME - STATIC TEXT MODULE FOR THE DEVICE ADAPTER * 00300000 * * 00340000 * FUNCTION - CONTAINS NO EXECUTABLE CODE, ONLY STATIC TEXT ENTRIES * 00380000 * FOR THE DEVICE ADAPTERS * 00420000 * THIS MODULE IS LOADED BY ICKTP05 WHEN A STATIC REPORT * 00500000 * REQUEST IS MADE. * 00550000 * * 00600000 * RELEASE STATUS - RELEASE-1 VERSION-0 * 00650000 * * 00700000 * NOTES - NONE * 00750000 * * 00800000 * DEPENDENCIES - NONE * 00850000 * RESTRICTIONS - NONE * 00900000 * REGISTER CONVENTIONS - NONE * 00950000 * PATCH AREA - NONE * 01000000 * * 01050000 * MODULE TYPE - TABLES * 01100000 * * 01150000 * PROCESSOR - ASSEMBLER * 01200000 * MODULE SIZE - 52 BYTES * 01250000 * ATTRIBUTES - READ ONLY * 01300000 * * 01350000 * ENTRY POINT - NA * 01400000 * * 01450000 * EXIT NORMAL - NA * 01500000 * * 01550000 * EXIT ERROR - NA * 01600000 * * 01650000 * EXTERNAL REFERENCES - NA * 01700000 * * 01750000 * TABLES - NA * 01800000 * * 01850000 * MACROS - NA * 01900000 * * 01950000 * CHANGE ACTIVITY - NONE @G840B00* 02000000 * * 02050000 *********************************************************************** 02200000 * * 02250000 ICKTSDV0 CSECT 02300000 *********************************************************************** 02350000 * * 02400000 * THIS SECTION CONTAINS THE INDICES TO REACH AN ENTRY * 02450000 * * 02500000 *********************************************************************** 02550000 * * 02600000 *********************************************************************** 02650000 INDEX DC Y((INDEXEND-INDEX1)/2) COUNT OF ENTRIES 02700000 INDEX1 DC Y(TXT1-INDEX) EQUIPMENT CHECK 02750000 INDEX2 DC Y(TXT2-INDEX) OPERATOR DID NOT READY DEVICE 02800000 INDEX3 DC Y(TXT3-INDEX) DEVICE ALREADY IN USE 02820000 INDEX4 DC Y(TXT4-INDEX) INVALID DEVICE TYPE FOR FUNCTION 02840000 INDEX5 DC Y(TXT5-INDEX) OPERATOR DID NOT SET WRITE MODE 02850000 INDEX6 DC Y(TXT6-INDEX) DEVICTEYPE MISSING OR ERRONEOUS 02855000 SPACE 02860000 INDEXEND EQU * PLACE ALL ENTRIES BEFORE THIS POINT 02880000 EJECT 02900000 * * 02950000 *********************************************************************** 03000000 * * 03050000 * THIS SECTION CONTAINS THE TEXT ENTRIES * 03100000 * * 03150000 *********************************************************************** 03200000 SPACE 03250000 *********************************************************************** 03300000 * * 03350000 * EQUIPMENT CHECK * 03400000 * * 03450000 *********************************************************************** 03500000 * * 03550000 TXT1 DC Y(TXT1B-TXT1A) ENTRY LENGTH 03600000 DC X'9000' MESSAGE FLAG 03650000 * SPACING CONTROL STRUCTURE 03700000 * 03750000 TXT1A DC X'4000' SPACE CONTROL 03800000 DC H'2' SPACING FACTOR 03850000 DC C'R ' SPACING TYPE 03900000 * STATIC TEXT SUBSTRUCTURE 03950000 DC X'8400' STATIC FLAG END OF LIST 04000000 DC Y(STE11B-STE11A) STATIC TEXT LENGTH 04050000 DC Y(STE11A-TXT1A) STATIC TEXT OFFSET 04100000 DC H'1' PRINT COLUMN 04150000 DC Y(STE11B-STE11A) PRINT FIELD LENGTH 04200000 DC H'0' CONVERSION FLAG (CHAR) 04250000 * 04300000 * STATIC TEXT ENTRIES 04350000 * 04400000 STE11A DC C'ICK30701I EQUIPMENT CHECK ' 04450000 STE11B EQU * 04500000 TXT1B EQU * 04550000 EJECT 04600000 *********************************************************************** 04650000 * * 04700000 * OPERATOR DID NOT READY DEVICE * 04750000 * * 04790000 *********************************************************************** 04830000 * * 04870000 TXT2 DC Y(TXT2B-TXT2A) ENTRY LENGTH 04910000 DC X'9000' MESSAGE FLAG 04950000 * SPACING CONTROL STRUCTURE 04990000 * 05030000 TXT2A DC X'4000' SPACE CONTROL 05070000 DC H'2' SPACING FACTOR 05200000 DC C'R ' SPACING TYPE 05250000 * STATIC TEXT SUBSTRUCTURE 05300000 DC X'8400' STATIC FLAG END OF LIST 05350000 DC Y(STE21B-STE21A) STATIC TEXT LENGTH 05400000 DC Y(STE21A-TXT2A) STATIC TEXT OFFSET 05440000 DC H'1' PRINT COLUMN 05480000 DC Y(STE21B-STE21A) PRINT FIELD LENGTH 05520000 DC H'0' CONVERSION FLAG (CHAR) 05600000 * 05650000 * STATIC TEXT ENTRIES 05700000 * 05750000 STE21A DC C'ICK30702I OPERATOR DID NOT READY DEVICE' 05800000 STE21B EQU * 05840000 TXT2B EQU * 05880000 EJECT 05920000 *********************************************************************** 05960000 * * 06000000 * DEVICE ALREADY IN USE * 06040000 * * 06080000 *********************************************************************** 06120000 * * 06160000 TXT3 DC Y(TXT3B-TXT3A) ENTRY LENGTH 06200000 DC X'9000' MESSAGE FLAG 06240000 * SPACING CONTROL STRUCTURE 06280000 * 06320000 TXT3A DC X'4000' SPACE CONTROL 06360000 DC H'2' SPACING FACTOR 06550000 DC C'R ' SPACING TYPE 06600000 * STATIC TEXT SUBSTRUCTURE 06650000 DC X'8400' STATIC FLAG END OF LIST 06700000 DC Y(STE31B-STE31A) STATIC TEXT LENGTH 06750000 DC Y(STE31A-TXT3A) STATIC TEXT OFFSET 06790000 DC H'1' PRINT COLUMN 06830000 DC Y(STE31B-STE31A) PRINT FIELD LENGTH 06870000 DC H'0' CONVERSION FLAG (CHAR) 06950000 * 07000000 * STATIC TEXT ENTRIES 07050000 * 07100000 STE31A DC C'ICK30703I DEVICE ALREADY IN USE' 07150000 STE31B EQU * 07190000 TXT3B EQU * 07230000 EJECT 07270000 *********************************************************************** 07310000 * * 07350000 * INVALID DEVICE TYPE FOR FUNCTION * 07390000 * * 07430000 *********************************************************************** 07470000 * * 07510000 TXT4 DC Y(TXT4B-TXT4A) ENTRY LENGTH 07550000 DC X'9000' MESSAGE FLAG 07590000 * SPACING CONTROL STRUCTURE 07630000 * 07670000 TXT4A DC X'4000' SPACE CONTROL 07710000 DC H'2' SPACING FACTOR 07900000 DC C'R ' SPACING TYPE 07950000 * STATIC TEXT SUBSTRUCTURE 08000000 DC X'8400' STATIC FLAG END OF LIST 08050000 DC Y(STE41B-STE41A) STATIC TEXT LENGTH 08100000 DC Y(STE41A-TXT4A) STATIC TEXT OFFSET 08140000 DC H'1' PRINT COLUMN 08180000 DC Y(STE41B-STE41A) PRINT FIELD LENGTH 08220000 DC H'0' CONVERSION FLAG (CHAR) 08300000 * 08350000 * STATIC TEXT ENTRIES 08400000 * 08450000 STE41A DC C'ICK30704I INVALID DEVICE-TYPE FOR FUNCTION' 08500000 STE41B EQU * 08550000 TXT4B EQU * 08600000 EJECT 08650000 *********************************************************************** 08700000 * * 08750000 * OPERATOR DID NOT SET WRITE MODE * 08800000 * * 08850000 *********************************************************************** 08900000 * * 08950000 TXT5 DC Y(TXT5B-TXT5A) ENTRY LENGTH 09000000 DC X'9000' MESSAGE FLAG 09050000 * SPACING CONTROL STRUCTURE 09100000 * 09150000 TXT5A DC X'4000' SPACE CONTROL 09200000 DC H'2' SPACING FACTOR 09250000 DC C'R ' SPACING TYPE 09300000 * STATIC TEXT SUBSTRUCTURE 09350000 DC X'8400' STATIC FLAG END OF LIST 09400000 DC Y(STE51B-STE51A) STATIC TEXT LENGTH 09450000 DC Y(STE51A-TXT5A) STATIC TEXT OFFSET 09500000 DC H'1' PRINT COLUMN 09550000 DC Y(STE51B-STE51A) PRINT FIELD LENGTH 09600000 DC H'0' CONVERSION FLAG (CHAR) 09650000 * 09700000 * STATIC TEXT ENTRIES 09750000 * 09800000 STE51A DC C'ICK30705I OPERATOR DID NOT SET DEVICE TO WRITE-MODE' 09850000 STE51B EQU * 09900000 TXT5B EQU * 09950000 EJECT 10000000 *********************************************************************** 10050000 * * 10100000 * DEVICETYPE PARAMETER MISSING OR ERRONEOUS * 10150000 * * 10200000 *********************************************************************** 10250000 * * 10300000 TXT6 DC Y(TXT6B-TXT6A) ENTRY LENGTH 10350000 DC X'9000' MESSAGE FLAG 10400000 * SPACING CONTROL STRUCTURE 10450000 * 10500000 TXT6A DC X'4000' SPACE CONTROL 10550000 DC H'2' SPACING FACTOR 10600000 DC C'R ' SPACING TYPE 10650000 * STATIC TEXT SUBSTRUCTURE 10700000 DC X'8400' STATIC FLAG END OF LIST 10750000 DC Y(STE61B-STE61A) STATIC TEXT LENGTH 10800000 DC Y(STE61A-TXT6A) STATIC TEXT OFFSET 10850000 DC H'1' PRINT COLUMN 10900000 DC Y(STE61B-STE61A) PRINT FIELD LENGTH 10950000 DC H'0' CONVERSION FLAG (CHAR) 11000000 * 11050000 * STATIC TEXT ENTRIES 11100000 * 11150000 STE61A DC C'ICK30706I DEVICETYPE PARAMETER MISSING OR ERRONEOUS' 11200000 STE61B EQU * 11250000 TXT6B EQU * 11300000 SPACE 11350000 END 11400000