Way to remove the quotes from the records

scorp_rahul22 · New User Joined: 06 Aug 2007 Posts: 42 Location: chennai

Is there anf way to way to remove unwanted charcters from file.

EXAMPLE

INPUT

'DW3P.LKP.KBMA'
'DW4P.LKP.KBMAA'
'DW5P.LKP.KBMAAA'
'DW6P.LKP.KBMAAAA'
'DW7P.LKP.KBMAAAAA'

OUTPUT

DW3P.LKP.KBMA
DW4P.LKP.KBMAA
DW5P.LKP.KBMAAA
DW6P.LKP.KBMAAAA
DW7P.LKP.KBMAAAAA

ACTUALLY STARTING POSITION IS NOT FIXED FOR THESE ENTERIES :- What i mean to say it not necessary that DW will start from 1 column only and any number of useless symbols can be there before actual name.

Srihari Gonugunta · Posted: Fri Dec 28, 2007 5:02 pm

read the file into the stem inrec.

and process each record in the following manner

expat · Posted: Fri Dec 28, 2007 5:22 pm

Or you could look at the TRANSLATE function in REXX

Ganesh.Deokar · Posted: Fri Dec 28, 2007 9:46 pm

1)You can Edit the file in ISPF editor and type command

Code:

c all "'" ""

.
2)You can use TRANSLATE or OVERLAY function of REXX.
But if it's a big file then you'll face problem while allocating it in the program.
3) Write a COBOL program and use INSPECT and REPLACING function.

expat · Posted: Fri Dec 28, 2007 10:17 pm

enrico-sorichetti · Posted: Fri Dec 28, 2007 10:37 pm

is there any reason to have two thread with the same question ??

Ganesh.Deokar · Posted: Fri Dec 28, 2007 11:24 pm

Expat,

enrico-sorichetti · Posted: Fri Dec 28, 2007 11:31 pm

"EXECIO * DISKR" will read from the current position to the end of file

"EXECIO" number "DISKR" will read from the current position for the requested number of records

as usual stem.0 will be set to the number of record read

Ganesh.Deokar · Posted: Fri Dec 28, 2007 11:35 pm

Thanks enrico-sorichetti

scorp_rahul22 · New User Joined: 06 Aug 2007 Posts: 42 Location: chennai

/* REXX */
DROP INREC. ;
/* "ALLOC F(INDSN) DA('NBK3EYB.FILE.INPUT(QOTES)') SHR" */
"ALLOC F(INDSN) DA('NBK3EYB.TEMP.REXX') SHR"
SAY RC ;
"EXECIO * DISKR INDSN (STEM INREC. FINIS" ;
"FREE F(INDSN)";
SAY RC ;
EXIT ;
"FREE F(INDSN)" ;
D = 1 ;
O = 1 ;
I = 1 ;
DROP OUTPUT. ;
SAY INREC.0
DO INREC.0
INPREC = STRIP(INREC.I,'L',"'");
J = LENGTH(INPREC) - 2 ;
INPREC = SUBSTR(INPREC,2,J) ;
OUT.I = INPREC
I = I + 1
END
CALL WRITE_LOAD
SAY "END OF THE PROGRAM";
EXIT ;
WRITE_LOAD
"ALLOC F(INDSN2) DA('NBK3EYB.FILE.OUTPUT1') SHR";
"EXECIO * DISKW INDSN2 (STEM OUTPUT. FINIS" ;
RETURN;

i am writting this but its not generating any output
its generating
empty file

Srihari Gonugunta · Posted: Mon Dec 31, 2007 12:38 pm

Your EXIT statements in the code are not allowing it to go to the main loop. Try the following Snippet

/*REXX*/
"ALLOC F(INDSN) DA('NBK3EYB.TEMP.REXX') SHR"
"EXECIO * DISKR INDSN (STEM INREC. FINIS" ;
"FREE F(INDSN)";

do i=1 to inrec.0
inprec=strip(inrec.i,'L',' ');
inprec=strip(inrec.i,'T',' ');
j=length(inprec)-2;
inprec=substr(inprec,2,j);
out.i=inprec
end

"ALLOC F(INDSN2) DA('NBK3EYB.FILE.OUTPUT1') SHR";
"EXECIO * DISKW INDSN2 (STEM OUT. FINIS" ;
EXIT;

scorp_rahul22 · New User Joined: 06 Aug 2007 Posts: 42 Location: chennai

DATA SET NBK3EYB.TEMP.REXX NOT ALLOCATED, FILE IN USE
EXECIO error. Unable to obtain storage.
FILE INDSN NOT FREED, DATA SET IS OPEN
6 +++ INPREC=STRIP(INREC.I,'L',' ')
***

Error running REXXTEST, line 6: Machine storage exhausted
***

IT IS SHOWING THIS OUTPUT AND HAVE TO WORK ON 50 CRORES RECORD. SO CAN U TELL WHAT MODIFICATION WE HAVE TO DO IN THIS

Srihari Gonugunta · Posted: Mon Dec 31, 2007 1:14 pm

As somebody already pointed out.....REXX stem variables can't handle so many records. Please check the following topic for help regarding this topic.

www.ibmmainframes.com/viewtopic.php?p=100518&highlight=#100518

scorp_rahul22 · New User Joined: 06 Aug 2007 Posts: 42 Location: chennai

/*REXX*/
DSN1=NBK3EYB.DSN.OUTPUT2 /*FILE CONTAINS 64716 RECORDS*/
"ALLOC FI(IPFILE) DA('"DSN1"') SHR"
CURRENT=1
HEAP=40000
RCODE=0;
DO UNTIL RCODE <> 0
"EXECIO "HEAP" DISKR IPFILE "CURRENT" (STEM INREC. FINIS"
RCODE=RC
DO I=1 TO INREC.0
INPREC=STRIP(INREC.I,'L',' ');
INPREC=STRIP(INREC.I,'T',' ');
J=LENGTH(INPREC)-2;
INPREC=SUBSTR(INPREC,2,J);
OUT.I=INPREC
END
CURRENT=CURRENT+HEAP;
END
"ALLOC F(INDSN2) DA('NBK3EYB.FILE.OUTPUT1') SHR";
"EXECIO * DISKW INDSN2 (STEM OUT. FINIS" ;
EXIT;

its not working properly, its not quote at the end.
and when i run next time it is saying
that input file is in use

Srihari Gonugunta · Posted: Mon Dec 31, 2007 3:03 pm

Rahul,
Please try this out.

Please empty the output file 'NBK3EYB.FILE.OUTPUT1' before running the following exec.

/*REXX*/
DSN1=NBK3EYB.DSN.OUTPUT2 /*FILE CONTAINS 64716 RECORDS*/
"ALLOC FI(IPFILE) DA('"DSN1"') SHR"
"ALLOC F(INDSN2) DA('NBK3EYB.FILE.OUTPUT1') MOD";
CURRENT=1
HEAP=40000
RCODE=0;
DO UNTIL RCODE <> 0
"EXECIO "HEAP" DISKR IPFILE "CURRENT" (STEM INREC. FINIS"
RCODE=RC
DO I=1 TO INREC.0
INPREC=STRIP(INREC.I,'L',' ');
INPREC=STRIP(INPREC,'T',' ');
J=LENGTH(INPREC)-2;
INPREC=SUBSTR(INPREC,2,J);
OUT.I=INPREC
END
CURRENT=CURRENT+HEAP;
"EXECIO * DISKW INDSN2 (STEM OUT. FINIS" ;
END
"FREE F(INDSN)";
"FREE F(INDSN2)";

EXIT;

Srihari Gonugunta · Posted: Mon Dec 31, 2007 3:04 pm

Please change "FREE F(INDSN)"; to "FREE F(IPFILE)";

scorp_rahul22 · New User Joined: 06 Aug 2007 Posts: 42 Location: chennai

/*REXX*/
"FREE F(INDSN)";
SAY RC;
DSN1=NBK3EYB.DSN.OUTPUT2 /*FILE CONTAINS 64716 RECORDS*/
"ALLOC FI(INDSN) DA('"DSN1"') SHR"
"ALLOC F(INDSN2) DA('NBK3EYB.FILE.OUTPUT.REXX') MOD";
CURRENT=1
HEAP=40000
RCODE=0;
DO UNTIL RCODE <> 0
"EXECIO "HEAP" DISKR IPFILE "CURRENT" (STEM INREC. FINIS"
RCODE=RC
DO I=1 TO INREC.0
INPREC=STRIP(INREC.I,'L',' ');
INPREC=STRIP(INPREC,'T',' ');
J=LENGTH(INPREC)-2;
INPREC=SUBSTR(INPREC,2,J);
OUT.I=INPREC
END
CURRENT=CURRENT+HEAP;
"EXECIO * DISKW INDSN2 (STEM OUT. FINIS" ;
END
"FREE F(INDSN)";
"FREE F(INDSN2)";
EXIT;

ITS SHOWING

FILE INDSN NOT FREED, IS NOT ALLOCATED
12
***

Srihari Gonugunta · Posted: Mon Dec 31, 2007 3:29 pm

ok...change INDSN to some INDSN5 make sure you use INDSN5 everywhere. In your code, I can see that you are using INDSN at one place and IPFILE at other. Please you allocate, read and close the same file. Otherwise you will end up with these errors.

Marso · Posted: Mon Dec 31, 2007 3:49 pm

Marso · Posted: Mon Dec 31, 2007 3:58 pm

Yes, of course, you alloc INDSN but read IPFILE, that can be a problem too...

Use TRACE R (or TRACE I) and TRACE O to start/stop the trace function.
Place TRACE R right after the /* REXX */
Place TRACE O right before the DO UNTIL (no need to trace 40000 times that part).
Resume tracing after the END of the loop.

Then run and verify TSO return code for you ALLOC, EXECIO and FREE commands.

scorp_rahul22 · New User Joined: 06 Aug 2007 Posts: 42 Location: chennai

000000010 'EWP.SQ.MB.DERVTN.TABLE.ALS' RDWDDWIS
000000011 'EWP.SQ.MB.DERVTN.TABLE.HIER' RDWDDWIS
000000013 'EWP.SQ.MB.DERVTN.TABLE.ST' RDWDDWIS
000000014 'NSP.EDW.LOADLIB' EWWM31CU
000000015 'NSP.EDW.LOADLIB' EWWM31IU
000000016 'NSP.EDW.LOADLIB' EWWM31PU
000000017 'NSP.EDW.LOADLIB' EWWM310U
000000018 'NSP.EDW.LOADLIB' EWWM312U
000000019 'NSP.EDW.LOADLIB' EWWM316U

Its not removing quotes
in the case
INPREC=STRIP(INREC.I,'L',' ');
INPREC=STRIP(INPREC,'T',' ');
J=LENGTH(INPREC)-2;
INPREC=SUBSTR(INPREC,2,J);
OUT.I=INPREC

and when i m writting
DO I=1 TO INREC.0
PARSE VAR INREC.I GARB1 "'" DATA "'" GARB2
OUT.I = DATA

it is generating empty file

Marso · Posted: Mon Dec 31, 2007 6:57 pm

scorp_rahul22 · New User Joined: 06 Aug 2007 Posts: 42 Location: chennai

I AM TRYING BUT THAT IS NOT WORKING IN THIS CASE ALSO

IT IS SHOWING

FILE INDSN5 NOT FREED, DATA SET IS OPEN
***

/*REXX*/
DSN1="NBK3EYB.TEMP.REXX"
"ALLOC FI(INDSN5) DA('"DSN1"') SHR"
"ALLOC F(INDSN6) DA('NBK3EYB.FILE.OUTPUT.REXX') SHR";
HEAP=40000
RCODE=0;
DO UNTIL RCODE <> 0
"EXECIO "HEAP" DISKR INDSN5 (STEM INREC."
RCODE=RC
OUT. = ""
DO I=1 TO INREC.0
PARSE VAR INREC.I . "'" DATA "'" .
OUT.I = DATA
END
"EXECIO * DISKW INDSN6 (STEM OUT."
END
"EXECIO 0 DISKW INDSN6 (FINIS"
"FREE F(INDSN5)";
"FREE F(INDSN6)";
EXIT;

Marso · Posted: Tue Jan 01, 2008 2:45 pm

Forgot to close the input file before the FREE:

scorp_rahul22 · New User Joined: 06 Aug 2007 Posts: 42 Location: chennai

/*REXX*/
DSN1="K3EYB.DSN.OUTPUT2"
"ALLOC FI(INDSN5) DA('"DSN1"') SHR"
"ALLOC F(INDSN6) DA('K3EYB.FILE.OUTPUT.REXX') SHR";
CURRENT=1
HEAP=40000
RCODE=0;
DO UNTIL RCODE <> 0
"EXECIO "HEAP" DISKR INDSN5 (STEM INREC."
RCODE=RC
DO I=1 TO INREC.0
INPREC=STRIP(INREC.I,'L',' ');
INPREC=STRIP(INPREC,'T',' ');
J=LENGTH(INPREC)-2;
INPREC=SUBSTR(INPREC,2,J);
OUT.I=INPREC
END
CURRENT=CURRENT+HEAP;
"EXECIO * DISKW INDSN6 (STEM OUT."
END
"EXECIO 0 DISKR INDSN5 (FINIS"
"EXECIO 0 DISKW INDSN6 (FINIS"
"FREE F(INDSN5)";
"FREE F(INDSN6)";
EXIT;

this is not working . its not removing the quotes