Write dataset

[tatoriver]

Hello, I am trying to write into a dataset with a rexx program.

/* REXX */
"ALLOC SHR FILE(OUT) DATASET('P1IXF2.PRIVADA.LIBRERIA(PROYEC3)')"
SAY 'ALLOC RC ' RC
OUT.1 = "   01 WS-GRUPO-VARIABLES. "
OUT.2 = "05 WS-TEXTVAR P    A BLA'."
OUT.3 = " 05 WS-NUMVAR-PACKUE 5."
OUT.4 = "05 WS-SUBGRUPO."
OUT.5 = " 10 WS-NUMVAR-ZONE   PIC      9(8)."
OUT.6 = " 10 WS-NUMVAR-ZONE     PIC      9(8)."
SAY 'VARS  RC ' RC
"EXECIO * DISKW OUT (STEM OUT."
SAY 'DISKW RC ' RC
"FREE FILE(OUT)"
SAY 'FREE  RC ' RC

And i am having the following error

ALLOC RC  0,
VARS  RC  0,
DISKW RC  0,
IKJ56861I  FILE OUT NOT FREED, DATA SET IS OPEN,
FREE  RC  12,
***,

What could be the problem? thanks in advanced Ignacio

 

[rexxhead]

Many problems... I made my changes in lower-case:

"ALLOC SHR FILE(OUT) DATASET('P1IXF2.PRIVADA.LIBRERIA(PROYEC3)')  reuse"

The second time you run this, File(OUT) will still be allocated and this ALLOC will fail unless you specify "REUSE".

"EXECIO 6 DISKW OUT (STEM OUT. finis"

The program has no idea what "*" means in this context because of the way you loaded stem OUT. It is always better, in any case, to specify how many lines are to be written. You should never "EXECIO * DISKW". To close the file after writing, specify "FINIS"


Frank Clarke
--America's source for adverse opinions since 1943.

 

[tatoriver]

That solve the problem but i would like to write append into the dataset any time i call that routine, doing like that it only write into the dataset the first time.

thanks

 

[rexxhead]

"ALLOC mod FILE(OUT) DATASET('P1IXF2.PRIVADA.LIBRERIA(PROYEC3)')  REU"

Frank Clarke
--America's source for adverse opinions since 1943.

 

[tatoriver]

still not work, here i leave you the code so you could udnerstand better me issue.

program

/* REXX */
pull line_in
COUNT=1
DO WHILE COUNT <= 3
CALL TST3 line_in
COUNT=COUNT+1
END

routine tst3

/* REXX */
PARSE ARG line_in
PARSE VALUE LINE_IN WITH NUMERO VARNAME
out.0=2
out.1=numero
out.2=varname
"ALLOC MOD SHR FI(OUT) DA('P1IXF2.PRIVADA.LIBRERIA(PROYEC3)') REUSE"
"EXECIO" OUT.0 "DISKW OUT (STEM OUT. FINIS"
"FREE FILE(OUT)"

The issue is that when the routine is call for the second time dont write into the file.

 

[rexxhead]

You have it allocated "MOD SHR".

Did you get a non-zero return code from the ALLOC ?

Frank Clarke
--America's source for adverse opinions since 1943.

 

[tatoriver]

i get rc= 0 on alloc execio and free

 

[tatoriver]

i continue trying and i realise that if i took out the statement finis,
the program write all append but i receve this 2 errors

IKJ56861I  FILE OUT NOT UNALLOCATED, DATA SET IS OPEN
IKJ56861I  FILE OUT NOT FREED, DATA SET IS OPEN,

 

[tatoriver]

i made it work.

Here is the code working,

/* REXX */
COUNT=1
"ALLOC MOD SHR FI(OUT) DA('P1IXF2.PRIVADA.LIBRERIA(PROYEC3)') REUSE"
DO WHILE COUNT <= 3
pull line_in
CALL TST3 line_in
COUNT=COUNT+1
END

/* REXX */
PARSE ARG line_in
PARSE VALUE LINE_IN WITH NUMERO VARNAME
out.0=2
out.1=numero
out.2=varname
"EXECIO" OUT.0 "DISKW OUT (STEM OUT. FINIS"

I just put the allocate statement out from the cicle and i dont put the free statement.

Could this generate another problem?(to dont put the free)

Many thanks!!!