How can I get the PARTNO data at the beginning of the program?

CATEGORY: PROGRAMMING
TYPE: MACRO
IMS VERSION: ALL
PLATFORM: ALL

Use the macro statement CLREAD to read ahead in the APT file.
Do this in the INIT_CFG macro, to generate the part number before any other output.
Add the following lines to the INIT_CFG macro:
A = CLREAD(PARTNO/*, 1, 1, 0)
IF (A > 0)
OUTPUT(CLREADN.1, NEWLIN)
ENDIF

Back to Frequently Asked Questions