strip records from column 6 to 21



IBM's Command List programming language & Restructured Extended Executor

strip records from column 6 to 21

Postby xboss » 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."
******************************************************************************************************************
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,
xboss
 
Posts: 79
Joined: Mon Nov 29, 2010 10:55 am
Has thanked: 0 time
Been thanked: 0 time

Re: strip records from column 6 to 21

 

Re: strip records from column 6 to 21

Postby enrico-sorichetti » Thu Dec 23, 2010 10:37 pm

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
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico-sorichetti
Global moderator
 
Posts: 2643
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 130 times

Re: strip records from column 6 to 21

Postby xboss » Thu Dec 23, 2010 10:54 pm

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
xboss
 
Posts: 79
Joined: Mon Nov 29, 2010 10:55 am
Has thanked: 0 time
Been thanked: 0 time


Return to CLIST & REXX

 


  • Related topics
    Replies
    Views
    Last post