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...
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,
Hello everyone, I am trying to pass in a isredit macro a parameter from a rexx to another independet rexx(not a rutine)
I would like to start the first rexx save some values into a system variable if is there any variiable for this. And then read it from another rexx. Is this possible or i am...
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...
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
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."...
Hello
Iam tryng to add some spaces in the middle of a string, is there any function to do this?
Example:
ws-var pic x.
change it for
ws-var pic x.
Thank you very much for your help.
Good bye
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.