Help with EBCDIC to ASCII format PL/1
Posted: Tue Sep 17, 2013 7:43 am
Is possible to process an EBCDIC file that has multiple and variable length record types
I am trying to bring in a EBCDIC file (PL/1) with multiple variable lengths and I can only get the first row to read. The layout looks like the following:
I am trying to bring in a EBCDIC file (PL/1) with multiple variable lengths and I can only get the first row to read. The layout looks like the following:
Code: Select all
0 DCL IMAGE_RECORD CHAR(480) VAR INIT('');
DCL 1 IMAGE_LAYOUT BASED(ADDR(IMAGE_RECORD)),
2 IMAGE_CNTL_STRLEN FIXED BIN(15),
2 IMAGE_CNTL_DATA,
3 IMAGE_SEG_CODE BIT(8),
3 IMAGE_SEG_LVL BIT(8),
3 IMAGE_SEG_NAME CHAR(8),
3 IMAGE_SEG_LENGTH FIXED BIN(15),
3 IMAGE_SEG_KEYOFFS FIXED BIN(15),
3 IMAGE_SEG_KEY_LEN FIXED BIN(15),
3 IMAGE_SEG_KFB_LEN FIXED BIN(15),
2 IMAGE_SEGMENT CHAR(460);
DCL 1 IMAGE_TBK001 UNALIGNED BASED(ADDR(IMAGE_SEGMENT)),
2 MST_TB_ACCT CHAR(08), /* 001-008 KEY*/
2 MST_TB_ACCT_FILLER CHAR(04), /* 009-012 */
2 MST_LAST_NAME CHAR(30), /* 013-042 */