International Software Products - ASI2 and ASI2LR Sample Code

ISP

International Software Products

ASI2 Code

Sample ASI2 Statements for selecting IDD Data

Notes regarding the following code Sample:

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.

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 ;

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 ;

All Trademarks Acknowledged