Rexx on MVS question.

[rmatthews]

Hi,

I am relatively new to REXX. I am trying to write an exec that is triggered by an AFOper trap. This exec will read a file and respond to a prompt on the OS390 console.
Currently, I am just trying to read the file, but I keep getting an error code 16.

DATASET = 'TEST.FILE'
ADDRESS ISPEXEC
"ALLOC DD(DATASET) F(ATHIN) SHR REUSE"

"EXECIO * DISKR ATHIN (STEM IN. FINIS)"

DO CNT = 1 TO IN.0
NUMBER = IN.CNT
END

Can someone please help?

Thank you,

 

[rexxhead]

ALLOC and EXECIO are 'address TSO' commands. There is nothing specifically ISPEXEC in the example to gave. I would however have expected a RC(-3) from trying to ALLOC in ISPEXEC...


Frank Clarke
Tampa Area REXX Programmers' Alliance
REXX Language Assn Listmaster

 

[rexxhead]

Oh, there's something else...

"ALLOC DD(DATASET) F(ATHIN) SHR REUSE"

"DD" and "F" (or FI or FILE) are synonyms of each other. You're trying to do an ALLOC with two DDnames and no dataset names. Try

"ALLOC FI(the-ddname) DA(the dataset-name) SHR REU"

Frank Clarke
Tampa Area REXX Programmers' Alliance
REXX Language Assn Listmaster

 

[rmatthews]

Thank you. Sometimes just can't see the forest for the trees.

 

[rmatthews]

Hello all,

I am having trouble reading a file on tso. It looks like it is allocating the dataset, but not reading it.

This is the code:
"ALLOC DD(INFILE) DSN('USER.TEST.MAIN.TESTFILE') SHR"
"EXECIO 1 DISKR INFILE (STEM RECORD. FINIS"

PULL RECORD.1
SAY RECORD.1

"FREE FILE(INFILE)"

Is there something that I am missing?

Thanks,

 

[kevinf2349]

remove the PULL. It isn't needed. The PULL will overwrite what you read in!