International Software Products - FIRST and FIRSTLR Samples

International
Software Products

FIRST Code Samples

Sample FIRST Statements for selecting IDD Data

SAMPLE #1:

The output file will contain a record for each set of selected fields.
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.

SSNAME='IDMSNWKA' ;
REUSE ;
DB IDMSNWKA WITHIN IDMSNTWK VERSION 1. ;
OUTPUT STANDARD ;
SS-026 SEQUENTIAL WITHIN DDLDML 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 ;
SELECT RSYN-NAME-079 ;
SELECT DR-LVL-042 ;
SELECT PIC-042 ;

SAMPLE #2:

The output file will be in Comma Separated Variable (ASCII delimited) format.
Extract all elements for the ELEMSYN-085.
Select only the RECORD name, ELEMENT name, COBOL LEVEL, PICTURE clause and VALUE fields.

SSNAME='IDMSNWKA' ;
REUSE ;
DB IDMSNWKA WITHIN IDMSNTWK VERSION 1. ;
OUTPUT TRANSFER ;
SS-026 SEQUENTIAL DDLDML 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 ;
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 ;

SAMPLE #3:

The output file will be in Comma Separated Variable (ASCII delimited) format.
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.

PROC ASI2 OUT=TEST ;
REUSE ;
DB IDMSNWKA WITHIN IDMSNTWK VERSION 1. ;
OUTPUT TRANSFER ;
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;