International Software Products - ASI2 and ASI2LR Sample Code

International
Software Products

ASI2 Code Samples

Sample ASI2 Statements for selecting IDD Data

Notes regarding the following code Samples:

The samples use the 'REUSE ;' statement. An initial run using the 'DBNAME ;' statement would be used to catalog the SYSPCH dataset and/or member.
For ASI2LR, the 'CONTROL' statement and related 'FROM' and 'PARTIAL' or 'COMPLETE statements would be replaced by a standard CA-IDMS LRF DML statement.
The REUSE statement may be replaced by a 'DBNAME ;' statement (depending on the usage).

SAMPLE #1:

Extract all elements for the ELEMSYN-085 record excluding FILLER fields and those, such as 88 levels, that have VALUE clauses.
The PARTIAL-ONLY option and the PARTIAL statement are used to eliminate elements with VALUE clauses. i.e. SDES-044 records.
Select only the RECORD name, ELEMENT name, COBOL LEVEL, and PICTURE clause.

DATA SUBSCHEM ;
SSNAME='IDMSNWKA' ;
PROC ASI2 OUT=TEST DATA=SUBSCHEM LABEL=SAS ;
REUSE ;
DB IDMSNWKA WITHIN IDMSNTWK VERSION 1. ;
CONTROL SS-026 RANDOM SS-NAM-026 PARTIAL-ONLY ;
FROM SS-026 TO SSR-032 BY SS-SSR NEXT ;
FROM SSR-032 TO RCDSYN-079 BY RCDSYN-SSR OWNER
WHEN RSYN-NAME-079 EQ ELEMSYN-085 ;
FROM RCDSYN-079 TO NAMESYN-083 BY RCDSYN-NAMESYN NEXT
WHEN SYN-NAME-083 NE FILLER ;
FROM NAMESYN-083 TO SDR-042 BY SDR-NAMESYN OWNER ;
PARTIAL ;
FROM SDR-042 TO SDES-044 BY SDR-SDES NEXT ;
KEYVARS SSNAME ;
SELECT RSYN-NAME-079 RECORD ;
SELECT SYN-NAME-083 ELEMENT ;
SELECT DR-LVL-042 LEVEL ;
SELECT PIC-042 PICTURE ;
PROC PRINT ;
BY RECORD ;

SAMPLE #2:

Extract all elements for the ELEMSYN-085.
Select only the RECORD name, ELEMENT name, COBOL LEVEL, PICTURE clause and VALUE fields.

DATA SUBSCHEM ;
SSNAME='IDMSNWKA' ;
PROC ASI2 OUT=TEST DATA=SUBSCHEM;
REUSE ;
DB IDMSNWKA WITHIN IDMSNTWK VERSION 1. ;
CONTROL SS-026 RANDOM SS-NAM-026 PARTIAL ;
FROM SS-026 TO SSR-032 BY SS-SSR NEXT ;
FROM SSR-032 TO RCDSYN-079 BY RCDSYN-SSR OWNER
WHEN RSYN-NAME-079 EQ ELEMSYN-085 ;
FROM RCDSYN-079 TO NAMESYN-083 BY RCDSYN-NAMESYN NEXT ;
FROM NAMESYN-083 TO SDR-042 BY SDR-NAMESYN OWNER ;
PARTIAL ;
FROM SDR-042 TO SDES-044 BY SDR-SDES NEXT ;
KEYVARS SSNAME ;
SELECT RSYN-NAME-079 RECORD ;
SELECT SYN-NAME-083 ELEMENT ;
SELECT DR-LVL-042 LEVEL ;
SELECT PIC-042 PICTURE ;
SELECT VAL1-044 VALUE1 ;
SELECT VAL2-044 VALUE2 ;
PROC PRINT ;
BY RECORD ;

SAMPLE #3:

Retrieve all LOADHDR-156 records from the LOAD area with names beginning with KC and OC.
Select only the LOAD module name, VERSION, DATE and TIME fields.
Sort by NAME, VERSION, DATE and TIME before printing.

PROC ASI2 OUT=TEST ;
REUSE ;
DB IDMSNWKA WITHIN IDMSNTWK VERSION 1. ;
CONTROL LOADHDR-156 SEQUENTIAL DDLDCLOD COMPLETE
WHEN LOADHDR-MODNAME-156 EQ KC*
OR LOADHDR-MODNAME-156 EQ OC*;
SELECT LOADHDR-MODNAME-156 LOADMOD ;
SELECT LOADHDR-VERS-156 LOADVER C ;
SELECT LOADHDR-DATE-156 LOADDATE;
SELECT LOADHDR-TIME-156 LOADTIME;
PROC SORT ; BY LOADMOD LOADVER LOADDATE LOADTIME ;
PROC PRINT ;