International Software Products

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

FIRST Code

Sample FIRST Statements for selecting IDD Data

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.

PROC ASI2 OUT=TEST ;

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 ;

FIRST/FIRSTLR Sample 1

FIRST/FIRSTLR Sample 3

---

All Trademarks Acknowledged

Copyright 2012 International Software Products. All Rights Reserved.