strip records from column 6 to 21
Posted: Thu Dec 23, 2010 10:25 pm
This is the format of my input record file, RECFM=FB, LRECL=80. I want to strip records from column 6 to 21 from line 2(000002) to end of record, perform validation on stripped records( I have a function to perform validation). If record comes out valid write the whole record(for e.g. #F0008809394404944079Daniel Akaka #1105#?0069.60#10001#10277120112) to DD report1 "EXECIO * DISKW REPORT1 (FINIS VALID.". If invalid write whole record to DD report2 "EXECIO * DISKW REPORT2 (FINIS INVALID."
******************************************************************************************************************
*******************************************************************************************************************
Please help me stripping these records on REXX?
Thanks in Advance,
******************************************************************************************************************
000001xxxxxxx Records
000002#F0008809394404944079Daniel Akaka #1105#?0069.60#10001#10277120112
000003#F0008809789449044480Lamar Alexander #1410#?0037.87#10002#10277192723
000004#F0008805203476367222John Barrasso #1404#?0074.01#10003#10277211618
000005#FB0008800567139045069Baucus Baucus #1408#?0061.59#10004#10277112142
000002#F0008809394404944079Daniel Akaka #1105#?0069.60#10001#10277120112
000003#F0008809789449044480Lamar Alexander #1410#?0037.87#10002#10277192723
000004#F0008805203476367222John Barrasso #1404#?0074.01#10003#10277211618
000005#FB0008800567139045069Baucus Baucus #1408#?0061.59#10004#10277112142
*******************************************************************************************************************
Please help me stripping these records on REXX?
Thanks in Advance,