* %GOTO SHWPLS; /* BILINGUAL MAPPING 00050000 MACRO 00100000 &SHWNAME IGGSHWPL &DSECT=YES */ 00150000 *%SHWPLS:; 00200000 */* */ 00250000 */* IGGSHWPL - VSAM SHOW CATALOG INPUT/OUTPUT PARM LISTS */ 00300000 */* - 6/18/74 */ 00350000 */* */ 00400000 */* 00450000 AGO .SHW5 */ 00500000 * /* SHOW CATALOG INPUT PARAMETER LIST */ 00550000 * 00600000 * %IF SHWPL999 ^= ',' /* IF BLOCK NOT CONTINUED */ 00650000 * %THEN %SHWPL999 = ';'; /* THEN CLOSE DCL STMNT */ 00700000 * %IF SHWPLLVL = '' /* IF BLOCK NOT CONCATENATED*/ 00750000 * %THEN %GOTO SHWPL001; /* THEN GENERATE DCL */ 00800000 * %SHWPLDUM = SHWPLLVL||' SHWPL'; /* SET MINOR LEVEL NUMBER */ 00850000 * SHWPLDUM /* SHWPL CONCATENATED LEVEL */ 00900000 * %GOTO SHWPL002; /* SKIP DCL */ 00950000 *%SHWPL001:; /* DECLARE */ 01000000 * DCL 1 SHWPL BASED(SHWPLPTR) /* DECLARE SHWPL LEVEL ONE */ 01050000 *%SHWPL002:; /* SKIP DECLARE */ 01100000 * BDY(WORD) , /* WORD BOUNDARY */ 01150000 * 5 SHWFLGS BIT(8) , /* SHOWCAT FLAGS */ 01200000 * 10 SHWNAME BIT(1) , /* ON - NAME SPECIFIED */ 01250000 * /* OFF - CI SPECIFIED */ 01300000 * 10 * BIT(7) , /* RESERVED */ 01350000 * 5 * CHAR(3) , /* RESERVED */ 01400000 * 5 SHWENT PTR(31) , /* NAME/CI ENTRY ADDRESS */ 01450000 * 5 SHWACB PTR(31) , /* ACB ADDRESS */ 01500000 * 5 SHWAREA PTR(31) SHWPL999 /* RETURN AREA ADDRESS */ 01550000 * %SHWPLLEN = 'LENGTH(SHWPL)'; /* LENGTH OF SHWPL */ 01600000 * 01650000 * /* SHOW CATALOG OUTPUT PARAMETER LIST */ 01700000 * %IF SHWPLLVL = '' /* IF BLOCK NOT CONCATENATED*/ 01750000 * %THEN %GOTO SHWPL003; /* THEN GENERATE DCL */ 01800000 * %SHWPLDUM = SHWPLLVL||' SHWOUT'; /* SET MINOR LEVEL NUMBER */ 01850000 * SHWPLDUM /* SHWOUT CONCATENATED LEVEL*/ 01900000 * %GOTO SHWPL004; /* SKIP DCL */ 01950000 *%SHWPL003:; /* DECLARE */ 02000000 * DCL 1 SHWOUT BASED(SHWAREA) /* DECLARE SHWOUT LEVEL ONE */ 02050000 *%SHWPL004:; /* SKIP DECLARE */ 02100000 * BDY(WORD) , /* WORD BOUNDARY */ 02150000 * 5 SHWLEN1 FIXED(15) , /* WORK AREA LENGTH SUPPLIED*/ 02200000 * /* BY THE CALLER */ 02250000 * 5 SHWLEN2 FIXED(15) , /* WORK AREA LENGTH REQUIRED*/ 02300000 * /* BY VSAM SHOW CATALOG */ 02350000 * 5 SHWACBP PTR(31) , /* ACB ADDRESS OF THE VSAM */ 02400000 * /* CATALOG IN WHICH OBJECT */ 02450000 * /* WAS FOUND */ 02500000 * 5 SHWTYPE CHAR(1) , /* ENTRY TYPE - SET TO */ 02550000 * /* C, G, R, D, I, OR Y */ 02600000 * 5 SHWATTR BIT(8) , /* PATH/AIX ATTRIBUTES */ 02650000 * 10 SHWUP BIT(1) , /* UPDATE PATH/UPGRADE */ 02700000 * /* MEMBERSHIP INDICATOR */ 02750000 * 10 * BIT(7) , /* RESERVED */ 02800000 * 5 SHWASS0 BDY(HWORD) , /* IF NOT D OR I ENTRY TYPE,*/ 02850000 * /* ASSOCIATIONS BEGIN HERE */ 02900000 * 10 SHWDSB BDY(HWORD) , /* AMDSB FIELDS FOR D OR I */ 02950000 * 15 SHWRKP FIXED(15) , /* RELATIVE KEY POSITION */ 03000000 * 15 SHWKEYLN FIXED(15) , /* KEY LENGTH */ 03050000 * 15 SHWCISZ FIXED(31) /* CI SIZE */ 03100000 * BDY(HWORD) , 03150000 * 15 SHWMREC FIXED(31) /* MAX RECORD SIZE */ 03200000 * BDY(HWORD) , 03250000 * 5 SHWASS CHAR(0) SHWPL999 /* FOR D OR I ENTRY TYPE */ 03300000 * /* ASSOCIATIONS BEGIN HERE */ 03350000 * %SHWOUTLN = 'LENGTH(SHWOUT)'; /* LENGTH OF SHWOUT */ 03400000 * 03450000 * /* SHOW CATALOG ASSOCIATION MAPPING */ 03500000 * %IF SHWPLLVL = '' /* IF BLOCK NOT CONCATENATED*/ 03550000 * %THEN %GOTO SHWPL005; /* THEN GENERATE DCL */ 03600000 * %SHWPLDUM = SHWPLLVL||' SHWASSOC'; /* SET MINOR LEVEL NUMBER */ 03650000 * SHWPLDUM /* SHWASSOC LEVEL */ 03700000 * %GOTO SHWPL006; /* SKIP DCL */ 03750000 *%SHWPL005:; /* DECLARE */ 03800000 * DCL 1 SHWASSOC BASED(ADDR(SHWASS)) /* DCL SHWASSOC LEVEL ONE */ 03850000 *%SHWPL006:; /* SKIP DECLARE */ 03900000 * BDY(HWORD) , /* HWORD BOUNDARY */ 03950000 * 5 SHWACT FIXED(15) , /* ASSOCIATION COUNT */ 04000000 * 5 SHWASSN(*) , /* ASSOCIATION ARAAY */ 04050000 * 10 SHWATYPE CHAR(1) , /* ASSOCIATION TYPE */ 04100000 * 10 SHWACI PTR(24) /* ASSOCIATION CI */ 04150000 * BDY(BYTE) SHWPL999 04200000 * %SHWASSLN = 'LENGTH(SHWASSOC)'; /* LENGTH OF SHWASSOC */ 04250000 * %GOTO SHWPLS1; /* 04300000 .SHW5 ANOP 04350000 AIF ('&DSECT' NE 'YES').SHW1 04400000 SHWPL DSECT , SHOW CATALOG INPUT MAPPING 04450000 AGO .SHW2 04500000 .SHW1 ANOP 04550000 SHWPL DS 0F SHOW CAT INPUT MAPPING ALIGN 04600000 .SHW2 ANOP 04650000 AIF ('&SHWNAME' EQ '').SHW4 04700000 &SHWNAME EQU * START SHOW CAT MAPPING 04750000 .SHW4 ANOP 04950000 SHWFLGS DS XL1 FIRST SHOW CAT FLAGS 05000000 SHWNAME EQU X'80' 1 - NAME SPECIFIED 05050000 * 0 - CI SPECIFIED 05100000 DS XL3 RESERVED 05150000 SHWENT DS A NAME/CI ENTRY ADDRESS 05200000 SHWACB DS A ACB ADDRESS 05250000 SHWAREA DS A RETURN AREA ADDRESS 05300000 SHWPLLEN EQU *-SHWPL SHOW CAT INPUT MAPPING LENGTH 05350000 AIF ('&DSECT' NE 'YES').SHW6 05400000 SHWOUT DSECT , SHOW CATALOG OUTPUT MAPPING 05450000 AGO .SHW7 05500000 .SHW6 ANOP 05550000 SHWOUT DS 0F SHOW CAT INPUT MAPPING ALIGN 05600000 .SHW7 ANOP 05650000 SHWLEN1 DS H CALLER WORK AREA LENGTH 05700000 SHWLEN2 DS H WORK AREA LENGTH REQUIRED BY 05750000 * VSAM SHOW CATALOG 05800000 SHWACBP DS A VSAM CATALOG ACB ADDRESS 05850000 SHWTYPE DS XL1 ENTRY TYPE 05900000 SHWATTR DS XL1 PATH/AIX ATTRIBUTES 05950000 SHWUP EQU X'80' UPDATE PATH/UPGRADE 06000000 * MEMBERSHIP INDICATOR 06050000 SHWASS0 DS 0H ASSOCIATIONS BEGIN HERE - NOT 06100000 * D OR I 06150000 SHWDSB DS 0H AMDSB FIELDS FOR D OR I 06200000 SHWRKP DS H RELATIVE KEY POSITION 06250000 SHWKEYLN DS H KEY LENGTH 06300000 SHWCISZ DS FL4 CI SIZE 06350000 SHWMREC DS FL4 MAX RECORD SIZE 06400000 SHWASS DS 0H ASSOCIATIONS BEGIN HERE - D OR 06450000 * I 06500000 SHWOUTLN EQU *-SHWOUT SHOW CAT OUTPUT MAPPING LENGTH 06550000 AIF ('&DSECT' NE 'YES').SHW8 06600000 SHWASSOC DSECT , SHOW CATALOG OUTPUT MAPPING 06650000 AGO .SHW9 06700000 .SHW8 ANOP 06750000 SHWASSOC DS 0H SHOW CAT OUTPUT MAPPING ALIGN 06800000 .SHW9 ANOP 06850000 SHWACT DS H ASSOCIATION COUNT 06900000 SHWASSN DS 0H ASSOCIATIONS 06950000 SHWATYPE DS CL1 ASSOCIATION TYPE 07000000 SHWACI DS AL3 ASSOCIATION CI NUMBER 07050000 SHWASSLN EQU *-SHWASSOC SHOW CAT ASSOCIATION MAP LEN 07100000 MEND */ 07150000 *%SHWPLS1:; 07200000