Read record and Strip data from column 45-55 in other datase

Phalgun · New User Joined: 18 May 2009 Posts: 16 Location: Hyd

Hi ,

I do this work manually
1) browse dataset do F '2A' 20 21 ALL to get count of number of account
2) Do F '2A' 20 21 and copy data in Column 45 to 55 from that particular record in other dataset ..

Please how this can be automated using rexx ..

dbzTHEdinosauer · Posted: Sat Nov 14, 2009 10:17 pm

read the file,
if the record contains '2A' in 20 & 21,
then parse the record collecting columns 45 to 55
and output that data to your new file.

How many records are in the dataset, on average?
what is the record length of the input file?

dbzTHEdinosauer · Posted: Sun Nov 15, 2009 2:14 am

Sorry,
read the file
Commands neccessary: Allocate, EXECIO

Process input
DO a=1 TO input-record.0 by 1

if record contains '2A' in 20 & 21,
IF SUBSTR(input-record.a,20,2) = "2A" THEN

then parse the record collecting columns 45 to 55
Commands: PARSE or SUBSTR

and output that data to your new file.
Commands neccessary: Allocate, EXECIO

FREE both files.

REXX Reference
REXX User Guide

Phalgun · New User Joined: 18 May 2009 Posts: 16 Location: Hyd

Hi Dz Thanks for your reply ..

My Output should also includue total number of unique record that qualify.. I usually find that giving command F '2A' 20 21 ALL .. How to decipher this part of code in rexx ..
Second question how to "parse the record collecting columns 45 to 55 "

I'm new to rexx languagE

:cry:
I tried to write this part of code as per your suggestion .. But still it is incomplete

/* Rexx */

"ALLOC DA('My.input') F(indd) SHR REUSE"
"ALLOC DA('my.output') F(Outdd) New"
"EXECIO * DISKR indd (STEM newip."
/* Return count of number of records in dataset */
"ISREDIT FIND ALL '2A' 20 21 "
"ISREDIT (COUNT) = FIND_COUNTS"
SAY Total number of records "=" count
DO i=1 TO newip.0 BY 1
IF SUBSTR(newip.i,20,2) = '2A' THEN
/*PAse record from Column 45 55 into array*/
/* Write it to new file */
FREE F (Indd outdd)

dz i tried but not able to complete and retest as it is incomplete.. Please help me to correct this code ..

Say input file contain 6 records
after this code run
out put :
Total number of records = 6
Accounts number qualify
xxxxxxxxxx
xxxxxxxxxx
xxxxxxxxxx
xxxxxxxxxx
xxxxxxxxxx
xxxxxxxxxx

where xxxxxxxxx --> account info in col 45 -55 ..

Thanks

dbzTHEdinosauer · Posted: Mon Nov 16, 2009 3:10 pm

dbzTHEdinosauer · Posted: Mon Nov 16, 2009 3:12 pm

your REXX script is a not a MACRO,

so, your FIND commands are useless.

by the way,
excellent first attempt!