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 ;

FIRST/FIRSTLR Sample 1

FIRST/FIRSTLR Sample 2

FIRST/FIRSTLR Sample 3

All Trademarks Acknowledged	Copyright 1987 - 2009 International Software Products