International Software Products

Home  |   Products & Services  |   Support  |   Offices  |   Partners  |   Contact Us

---

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