Page 1 of 1

strip records from column 6 to 21

PostPosted: Thu Dec 23, 2010 10:25 pm
by xboss
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."
******************************************************************************************************************
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

*******************************************************************************************************************
Please help me stripping these records on REXX?

Thanks in Advance,

Re: strip records from column 6 to 21

PostPosted: Thu Dec 23, 2010 10:37 pm
by enrico-sorichetti
what happened when You tried to read the rexx manuals about SUBSTR/LEFT/RIGHT/VERIFY/DATATYPE ???
http://publibz.boulder.ibm.com/cgi-bin/ ... s/IKJ4BK90

Re: strip records from column 6 to 21

PostPosted: Thu Dec 23, 2010 10:54 pm
by xboss
Well, SUBSTR/LEFT/RIGHT/VERIFY/DATATYPE these are the hint function I was looking for. Thanks Enrico. Let me read the manual and try to code. If anything comes up, I know you are there for me. :D