* /* START OF SPECIFICATIONS **** 01000037 * 02000037 *01* MODULE-NAME = IDCTSSA0 03000037 *01* MODULE-TYPE = MODULE 04000037 *02* PROCESSOR = ASSEMBLER 05000037 * 06000037 **** END OF SPECIFICATIONS ** 07000037 TITLE '***** IDCTSSA0 - SYS ADAPTER STATIC TEXT VS/2 *****' 08000024 ********************************************************************** 09000024 * * 10000024 * MODULE NAME - IDCTSSA0 - STATIC TEXT MODULE FOR SYSTEM ADAPTER * 11000024 * * 12000024 * * 13000024 * DESCRIPTIVE NAME - STATIC TEXT MODULE FOR THE SYSTEM ADAPTER * 14000024 * * 15000037 * * 16000037 * COPYRIGHT - NONE * 17000037 * * 18000037 * STATUS - RELEASE 3 LEVEL 0 * 19000037 * * 20000037 * FUNCTION - CONTAINS NO EXECUTABLE CODE, ONLY STATIC TEXT ENTRIES * 21000037 * * 22000037 * THIS MODULE IS LOADED BY IDCTP05 WHEN A STATIC TEXT * 23000037 * REQUEST IS MADE. * 24000037 * * 25000037 * NOTES - NONE * 26000037 * * 27000037 * DEPENDENCIES - NONE * 28000037 * RESTRICTIONS - NONE * 29000037 * REGISTER CONVENTIONS - NA * 30000037 * PATCH AREA - NA * 31000037 * * 32000037 * MODULE TYPE - TABLES * 33000037 * * 34000037 * PROCESSOR - ASSEMBLER * 35000037 * MODULE SIZE - 0800 * 36000024 * ATTRIBUTES - READ-ONLY * 37000037 * * 38000037 * ENTRY POINT - NA * 39000037 * * 40000037 * EXIT NORMAL - NA * 41000037 * * 42000037 * EXIT ERROR - NA * 43000037 * * 44000037 * EXTERNAL REFERENCES - NA * 45000037 * * 46000037 * TABLES - NA * 47000037 * * 48000037 * MACROS - NA * 49000037 * * 50000037 * CHANGE ACTIVITY - * 51000037 * * 52000037 * VS/2 RELEASE 3.824 ADDITIONS * 52200024 * RACHECK MESSAGES WERE ADDED. @G24LSBS* 52400024 * * 52600024 * * 53000037 ********************************************************************** 54000037 * 55000037 ********************************************************************** 56000037 * * 57000037 * THIS MODULE IS THE FIRST MODULE OF STATIC TEXT REQUIRED BY THE * 58000037 * SYSTEM SERVICE ROUTINE. * 59000024 * * 60000037 ********************************************************************** 61000037 * 62000037 IDCTSSA0 CSECT 63000037 * 64000037 ********************************************************************** 65000037 * * 66000037 * THIS SECTION CONTAINS THE INDICES TO REACH AN ENTRY. * 67000037 * * 68000037 ********************************************************************** 69000037 * 70000037 INDEX DC AL2((LASTINDX-INDEX1)/2) COUNT OF ENTRIES 71000037 INDEX1 DC Y(TXT1-INDEX) UNABLE TO SCRATCH DSN 72000024 INDEX2 DC Y(TXT2-INDEX) NO VOLUME MOUNTED 72300024 INDEX3 DC H'-1' DSN NOT ON VOLUME (DELETED) 72600024 INDEX4 DC Y(TXT4-INDEX) BAD PASSWORD 72900024 INDEX5 DC Y(TXT5-INDEX) NON-EXPIRED DSN ON VOLUME 73200024 INDEX6 DC Y(TXT6-INDEX) PERM I/O ERROR ON VOLUME 73500024 INDEX7 DC Y(TXT7-INDEX) UNABLE TO MOUNT VOLUME 73800024 INDEX8 DC Y(TXT8-INDEX) DATA SET WAS IN USE 74100024 INDEX9 DC Y(TXT9-INDEX) NO RACF PROFILE ON 'ENTITY' 74400024 INDEX10 DC Y(TXT10-INDEX) URACHECK FAILED FOR 'ENTITY' 74700024 INDEX11 DC Y(TXT11-INDEX) INVALID RACF PARM LIST 75000024 INDEX12 DC Y(TXT12-INDEX) INVALID RACF AUTHORIZATION 75300024 * * 75900024 ********************************************************************** 76200024 * INSERT ALL INDEX * 76500024 LASTINDX EQU * NUMBERS BEFORE THIS * 76800024 * BOX * 77100024 ********************************************************************** 78000037 EJECT 79000037 ********************************************************************** 80000037 * * 81000037 * THIS SECTION CONTAINS THE ENTRIES. * 82000037 * * 83000037 ********************************************************************** 84000037 EJECT 85000037 * 86000024 * DATA SET COULD NOT BE SCRATCHED MESSAGE. 86050024 * 86100024 TXT1 DC Y(TXT1B-TXT1A) ENTRY LENGTH. 86150024 DC X'8000' MESSAGE FLAG. 86200024 * DOUBLE SPACE SUB-STRUCTURE. 86250024 TXT1A DC X'4000' SPACE CONTROL FLAG. 86300024 DC H'2' SPACING FACTOR. 86350024 DC C'R ' SPACING TYPE. 86400024 * STATIC TEXT SUB-STRUCTURE. 86450024 DC X'0400' STATIC TEXT FLAG. 86500024 DC Y(STE11B-STE11A) STATIC TEXT LENGTH. 86550024 DC Y(STE11A-TXT1A) STATIC TEXT OFFSET. 86600024 DC H'1' PRINT COLUMN NO. 86650024 DC Y(STE11B-STE11A) PRINT FIELD LENGTH 86700024 DC H'0' CONVERSION FLAGS(CHAR) 86750024 * BLOCK DATA SUB-STRUCTURE. 86800024 DC X'9000' EOF & BLOCK DATA FLAGS 86850024 DC H'44' INPUT DATA LENGTH. 86900024 DC H'0' INPUT DATA OFFSET 86950024 DC H'28' PRINT COLUMN. 87000024 DC H'44' PRINT FIELD LENGTH 87050024 DC H'0' CONVERSION FLAGS(CHAR) 87100024 * STATIC ENTRY. 87150024 STE11A DC C'IDC2909I UNABLE TO SCRATCH ' 87200024 STE11B EQU * 87250024 TXT1B EQU * 87300024 EJECT 87350024 * 87400024 * NO VOLUME MOUNTED MESSAGE. 87450024 * 87500024 TXT2 DC Y(TXT2B-TXT2A) ENTRY LENGTH. 87550024 DC X'A000' MESSAGE FLAG. 87600024 * STATIC TEXT SUB-STRUCTURE. 87650024 TXT2A DC X'8400' STATIC TEXT FLAG. 87700024 DC Y(STE21B-STE21A) STATIC TEXT LENGTH. 87750024 DC Y(STE21A-TXT2A) STATIC TEXT OFFSET. 87800024 DC H'1' PRINT COLUMN. 87850024 DC Y(STE21B-STE21A) PRINT FIELD LENGTH. 87900024 DC H'0' CONVERSION FLAGS(CHAR) 87950024 * STATIC TEXT ENTRY. 88000024 STE21A DC C'IDC2910I ** NO VOLUME MOUNTED' 88050024 STE21B EQU * 88100024 TXT2B EQU * 88150024 EJECT 88200024 * 88250024 * DATA SET NOT ON VOLUME MESSAGE.NO LONGER ISSUED 88300024 * 88350024 EJECT 88400024 * 88450024 * PASSWORD VERIFICATION FAILED MESSAGE. 88500024 * 88550024 TXT4 DC Y(TXT4B-TXT4A) ENTRY LENGTH. 88600024 DC X'A000' MESSAGE FLAG. 88650024 * STATIC TEXT SUB-STRUCTURE. 88700024 TXT4A DC X'8400' STATIC TEXT FLAG. 88750024 DC Y(STE41B-STE41A) STATIC TEXT LENGTH. 88800024 DC Y(STE41A-TXT4A) STATIC TEXT OFFSET. 88850024 DC H'1' PRINT COLUMN. 88900024 DC Y(STE41B-STE41A) PRINT FIELD LENGTH. 88950024 DC H'0' CONVERSION FLAGS(CHAR) 89000024 * STATIC TEXT ENTRY. 89050024 STE41A DC C'IDC2912I ** PASSWORD VERIFICATION FAILED' 89100024 STE41B EQU * 89150024 TXT4B EQU * 89200024 EJECT 89250024 * 89300024 * NON-EXPIRED DATA SET ON VOLUME MESSAGE. 89350024 * 89400024 TXT5 DC Y(TXT5B-TXT5A) ENTRY LENGTH. 89450024 DC X'A000' MESSAGE FLAG. 89500024 * STATIC TEXT SUB-STRUCTURE. 89550024 TXT5A DC X'0400' STATIC TEXT FLAG. 89600024 DC Y(STE51B-STE51A) STATIC TEXT LENGTH. 89650024 DC Y(STE51A-TXT5A) STATIC TEXT OFFSET. 89700024 DC H'1' PRINT COLUMN NO. 89750024 DC Y(STE51B-STE51A) PRINT FIELD LENGTH 89800024 DC H'0' CONVERSION FLAGS(CHAR) 89850024 * BLOCK DATA SUB-STRUCTURE. 89900024 DC X'9000' EOF & BLOCK DATA FLAGS 89950024 DC H'6' INPUT DATA LENGTH. 90000024 DC H'0' INPUT DATA OFFSET 90050024 DC H'48' PRINT COLUMN. 90100024 DC H'6' PRINT FIELD LENGTH 90150024 DC H'0' CONVERSION FLAGS(CHAR) 90200024 * STATIC ENTRY. 90250024 STE51A DC C'IDC2913I ** DATA SET HAS NOT EXPIRED ON ' 90300024 DC C'VOLUME ' 90350024 STE51B EQU * 90400024 TXT5B EQU * 90450024 EJECT 90500024 * 90550024 * PERMANENT I/O ERROR ON VOLUME MESSAGE. 90600024 * 90650024 TXT6 DC Y(TXT6B-TXT6A) ENTRY LENGTH. 90700024 DC X'A000' MESSAGE FLAG. 90750024 * STATIC TEXT SUB-STRUCTURE. 90800024 TXT6A DC X'0400' STATIC TEXT FLAG. 90850024 DC Y(STE61B-STE61A) STATIC TEXT LENGTH. 90900024 DC Y(STE61A-TXT6A) STATIC TEXT OFFSET. 90950024 DC H'1' PRINT COLUMN NO. 91000024 DC Y(STE61B-STE61A) PRINT FIELD LENGTH 91050024 DC H'0' CONVERSION FLAGS(CHAR) 91100024 * BLOCK DATA SUB-STRUCTURE. 91150024 DC X'9000' EOF & BLOCK DATA FLAGS 91200024 DC H'6' INPUT DATA LENGTH. 91250024 DC H'0' INPUT DATA OFFSET 91300024 DC H'43' PRINT COLUMN. 91350024 DC H'6' PRINT FIELD LENGTH 91400024 DC H'0' CONVERSION FLAGS(CHAR) 91450024 * STATIC ENTRY. 91500024 STE61A DC C'IDC2914I ** PERMANENT I/O ERROR ON VOLUME ' 91550024 STE61B EQU * 91600024 TXT6B EQU * 91650024 EJECT 91700024 * 91750024 * UNABLE TO MOUNT VOLUME MESSAGE. 91800024 * 91850024 TXT7 DC Y(TXT7B-TXT7A) ENTRY LENGTH. 91900024 DC X'A000' MESSAGE FLAG. 91950024 * STATIC TEXT SUB-STRUCTURE. 92000024 TXT7A DC X'0400' STATIC TEXT FLAG. 92050024 DC Y(STE71B-STE71A) STATIC TEXT LENGTH. 92100024 DC Y(STE71A-TXT7A) STATIC TEXT OFFSET. 92150024 DC H'1' PRINT COLUMN NO. 92200024 DC Y(STE71B-STE71A) PRINT FIELD LENGTH 92250024 DC H'0' CONVERSION FLAGS(CHAR) 92300024 * BLOCK DATA SUB-STRUCTURE. 92350024 DC X'9000' EOF & BLOCK DATA FLAGS 92400024 DC H'6' INPUT DATA LENGTH. 92450024 DC H'0' INPUT DATA OFFSET 92500024 DC H'36' PRINT COLUMN. 92550024 DC H'6' PRINT FIELD LENGTH 92600024 DC H'0' CONVERSION FLAGS(CHAR) 92650024 * STATIC ENTRY. 92700024 STE71A DC C'IDC2915I ** UNABLE TO MOUNT VOLUME ' 92750024 STE71B EQU * 92800024 TXT7B EQU * 92850024 EJECT 92900024 * 92950024 * DATA SET WAS IN USE MESSAGE. 93000024 * 93050024 TXT8 DC Y(TXT8B-TXT8A) ENTRY LENGTH. 93100024 DC X'A000' MESSAGE FLAG. 93150024 * STATIC TEXT SUB-STRUCTURE. 93200024 TXT8A DC X'8400' STATIC TEXT FLAG. 93250024 DC Y(STE81B-STE81A) STATIC TEXT LENGTH. 93300024 DC Y(STE81A-TXT8A) STATIC TEXT OFFSET. 93350024 DC H'1' PRINT COLUMN NO. 93400024 DC Y(STE81B-STE81A) PRINT FIELD LENGTH 93450024 DC H'0' CONVERSION FLAGS(CHAR) 93500024 * STATIC ENTRY. 93550024 STE81A DC C'IDC2916I ** DATA SET WAS IN USE' 93600024 STE81B EQU * 93650024 TXT8B EQU * 93700024 EJECT 93750024 * @G24LSBS 93800024 * NO RACF PROFILE NO 'ENTITY' MESSAGE. @G24LSBS 93850024 * @G24LSBS 93900024 TXT9 DC Y(TXT9B-TXT9A) ENTRY LENGTH. @G24LSBS 93950024 DC X'8000' MESSAGE FLAG. @G24LSBS 94000024 * DOUBLE SPACE SUB-STRUCTURE. @G24LSBS 94050024 TXT9A DC X'4000' SPACE CONTROL FLAG. @G24LSBS 94100024 DC H'2' SPACING FACTOR. @G24LSBS 94150024 DC C'R ' SPACING TYPE. @G24LSBS 94200024 * STATIC TEXT SUB-STRUCTURE. @G24LSBS 94250024 DC X'0400' STATIC TEXT FLAG. @G24LSBS 94300024 DC Y(STE91B-STE91A) STATIC TEXT LENGTH. @G24LSBS 94350024 DC Y(STE91A-TXT9A) STATIC TEXT OFFSET. @G24LSBS 94400024 DC H'1' PRINT COLUMN NO. @G24LSBS 94450024 DC Y(STE91B-STE91A) PRINT FIELD LENGTH @G24LSBS 94500024 DC H'0' CONVERSION FLAGS(CHAR) @G24LSBS 94550024 * BLOCK DATA SUB-STRUCTURE. @G24LSBS 94600024 DC X'9000' EOF & BLOCK DATA FLAGS @G24LSBS 94650024 DC H'44' INPUT DATA LENGTH. @G24LSBS 94700024 DC H'0' INPUT DATA OFFSET @G24LSBS 94750024 DC H'29' PRINT COLUMN. @G24LSBS 94800024 DC H'44' PRINT FIELD LENGTH @G24LSBS 94850024 DC H'0' CONVERSION FLAGS(CHAR) @G24LSBS 94900024 * STATIC ENTRY. @G24LSBS 94950024 STE91A DC C'IDC2917I NO RACF PROFILE ON ' @G24LSBS 95000024 STE91B EQU * @G24LSBS 95050024 TXT9B EQU * @G24LSBS 95100024 EJECT 95150024 * @G24LSBS 95200024 * RACHECK FAILED FOR 'ENTITY' MESSAGE. @G24LSBS 95250024 * @G24LSBS 95300024 TXT10 DC Y(TXT10B-TXT10A) ENTRY LENGTH. @G24LSBS 95350024 DC X'8000' MESSAGE FLAG. @G24LSBS 95400024 * DOUBLE SPACE SUB-STRUCTURE. @G24LSBS 95450024 TXT10A DC X'4000' SPACE CONTROL FLAG. @G24LSBS 95500024 DC H'2' SPACING FACTOR. @G24LSBS 95550024 DC C'R ' SPACING TYPE. @G24LSBS 95600024 * STATIC TEXT SUB-STRUCTURE. @G24LSBS 95650024 DC X'0400' STATIC TEXT FLAG. @G24LSBS 95700024 DC Y(STE101B-STE101A) STATIC TEXT LENGTH. @G24LSBS 95750024 DC Y(STE101A-TXT10A) STATIC TEXT OFFSET. @G24LSBS 95800024 DC H'1' PRINT COLUMN NO. @G24LSBS 95850024 DC Y(STE101B-STE101A) PRINT FIELD LENGTH @G24LSBS 95900024 DC H'0' CONVERSION FLAGS(CHAR) @G24LSBS 95950024 * BLOCK DATA SUB-STRUCTURE. @G24LSBS 96000024 DC X'9000' EOF & BLOCK DATA FLAGS @G24LSBS 96050024 DC H'44' INPUT DATA LENGTH. @G24LSBS 96100024 DC H'0' INPUT DATA OFFSET @G24LSBS 96150024 DC H'29' PRINT COLUMN. @G24LSBS 96200024 DC H'44' PRINT FIELD LENGTH @G24LSBS 96250024 DC H'0' CONVERSION FLAGS(CHAR) @G24LSBS 96300024 * STATIC ENTRY. @G24LSBS 96350024 STE101A DC C'IDC2918I RACHECK FAILED FOR ' @G24LSBS 96400024 STE101B EQU * @G24LSBS 96450024 TXT10B EQU * @G24LSBS 96500024 EJECT 96550024 * @G24LSBS 96600024 * INVALID URACHECK PARAMETER LIST MESSAGE. @G24LSBS 96650024 * @G24LSBS 96700024 TXT11 DC Y(TXT11B-TXT11A) ENTRY LENGTH. @G24LSBS 96750024 DC X'A000' MESSAGE FLAG. @G24LSBS 96800024 * STATIC TEXT SUB-STRUCTURE. @G24LSBS 96850024 TXT11A DC X'8400' STATIC TEXT FLAG. @G24LSBS 96900024 DC Y(STE111B-STE111A) STATIC TEXT LENGTH. @G24LSBS 96950024 DC Y(STE111A-TXT11A) STATIC TEXT OFFSET. @G24LSBS 97000024 DC H'1' PRINT COLUMN. @G24LSBS 97050024 DC Y(STE111B-STE111A) PRINT FIELD LENGTH. @G24LSBS 97100024 DC H'0' CONVERSION FLAGS(CHAR) @G24LSBS 97150024 * STATIC TEXT ENTRY. @G24LSBS 97200024 STE111A DC C'IDC2919I INVALID URACHECK PARAMETER LIST' @G24LSBS 97250024 STE111B EQU * @G24LSBS 97300024 TXT11B EQU * @G24LSBS 97350024 EJECT 97400024 * @G24LSBS 97450024 * INVALID RACF AUTHORIZATION MESSAGE. @G24LSBS 97500024 * @G24LSBS 97550024 TXT12 DC Y(TXT12B-TXT12A) ENTRY LENGTH. @G24LSBS 97600024 DC X'A000' MESSAGE FLAG. @G24LSBS 97650024 * STATIC TEXT SUB-STRUCTURE. @G24LSBS 97700024 TXT12A DC X'8400' STATIC TEXT FLAG. @G24LSBS 97750024 DC Y(STE121B-STE121A) STATIC TEXT LENGTH. @G24LSBS 97800024 DC Y(STE121A-TXT12A) STATIC TEXT OFFSET. @G24LSBS 97850024 DC H'1' PRINT COLUMN. @G24LSBS 97900024 DC Y(STE121B-STE121A) PRINT FIELD LENGTH. @G24LSBS 97950024 DC H'0' CONVERSION FLAGS(CHAR) @G24LSBS 98000024 * STATIC TEXT ENTRY. @G24LSBS 98050024 STE121A DC C'IDC2930I ** INVALID RACF AUTHORIZATION' @G24LSBS 98100024 STE121B EQU * @G24LSBS 98150024 TXT12B EQU * @G24LSBS 98200024 EJECT 98250024 END 98300024