MVSFORUMS.com

[John Corbin]

HI..

I know in REXX that I have done my input files are structured so that a record has its individual parts separated by a ','.

Thus in your REXX you can code something like this:

DO K = 1 to RECCOUNT
PARSE VAR KF1240IN.K,
GSTACNT.K','DCMTLOCNBR.K','AMOUNT.K
etc
etc

What happens when there are no commas separating the record elements ?

I do have access to the record layout via DCLGENs but am not sure how to use this info in REXX

[superk]

You can use the SUBSTR function to pull-out specific fields.

GSTACNT.K = SUBSTR(KF1240IN.K,1,10)
DCMTLOCNBR.K = SUBSTR(KF1240IN.K,30,70)
AMOUNT.K = SUBSTR(KF1240IN.K,100,30)

You can PARSE using spaces as the field delimiter, or any other character as the field delimiter.

PARSE VAR KF1240IN.K,
GSTACNT.K DCMTLOCNBR.K AMOUNT.K
PARSE VAR KF1240IN.K,
GSTACNT.K';'DCMTLOCNBR.K';'AMOUNT.K

You can PARSE using specific column locations

PARSE VAR KF1240IN.K,
1 GSTACNT.K 30 DCMTLOCNBR.K 100 AMOUNT.K

PARSE VAR 1 KF1240IN.K,
1 GSTACNT.K +30 DCMTLOCNBR.K +70 AMOUNT.K

[John Corbin]

I should have thought of that.. thanks