IBM Mainframe Forum

by **Fabrice Lubela** » Wed May 27, 2015 10:53 pm

As an intern, i am asked to retrieve the name and locations of VPS Printers in from a PDS named FL1T.LRS.VPSFCB.CNTL(VPSMLIS2) and to display them. I hav 2 issues. The first one, at the display, the name of the printer is coming out with a comma. How can i get rid of it? Anf my second issue is that i am having an error at the end of the result. How can i fix it? Please help. My future depends on it. Here is the error:
15 +++ FREE FILE(Z)
Error running TEST2, line 15: Routine not found
***
And below is the actual Rexx code for my task

Select all

000001 /* REXX */
000002 Parse Arg Dsplay
000003 /*********************************************************/
000004 /* Loop through the input file to get printer names. */
000005 /*********************************************************/
000006 trace o
000007 "ALLOC DA('FL1T.LRS.VPSFCB.CNTL(VPSMLIS2)') F(Z) SHR"
000008 ADDRESS MVS "EXECIO * DISKR z (FINIS STEM MYVAR"
000009 DO X = 1 TO MYVAR0
000010 LINE_IN = VALUE('MYVAR'||X)
000011 Parse var line_in Pname Da1 Da2 Da3 Da4 Da5 Da6 Da7 Da8
000012 CALL PROCESS
000013 END
000014
000015 FREE FILE(Z)
000016 Exit
000017
000018 /*********************************************************/
000019 /* */
000020 /* */
000021 /* */
000022 /* */
000023 /*********************************************************/
000024 Process :
000025 IF Pname ¬= '*' Then Do
000026 Say 'Pname = ' Pname
000027 Say 'Da2 = ' Da2
000028 end
000029 Return

by **Mickeydusaor** » Wed May 27, 2015 11:23 pm

get rid of the address MVS add address TSO

by **Fabrice Lubela** » Wed May 27, 2015 11:27 pm

I still have the same error

by **Mickeydusaor** » Wed May 27, 2015 11:29 pm

"FREE FILE(Z)"

by **Fabrice Lubela** » Wed May 27, 2015 11:35 pm

Even with that "FREE FILE" i still have the same error

by **Mickeydusaor** » Wed May 27, 2015 11:36 pm

That is not what I showed you. look at what I entered.

by **Fabrice Lubela** » Wed May 27, 2015 11:42 pm

Indeed , i changed ADDRESS MVS to ADDRESS TSO on line 8 and add doublwe quotations on line 15. The error is the same.

by **Mickeydusaor** » Thu May 28, 2015 12:32 am

alloc execio and free are all TSO commands so either add a line before 7 that is ADDRESS TSO or add that to line 7 and line 15

by **Fabrice Lubela** » Thu May 28, 2015 12:41 am

So that line 7 will look like this:
000007 "ALLOC DA('FL1T.LRS.VPSFCB.CNTL(VPSMLIS2)') F(Z) SHR" ADDRESS TSO FILE (Z)
.
.
000015 ADDRESS TSO FILE (Z) FREE FILE(Z)
?

by **Mickeydusaor** » Thu May 28, 2015 12:47 am

LINE 7 ADDRESS TSO "ALLOC DA('FL1T.LRS.VPSFCB.CNTL(VPSMLIS2)') F(Z) SHR"
LINE 8 ADDRESS TSO "EXECIO * DISKR z (FINIS STEM MYVAR"
LINE 15 ADDRESS TSO "FREE FILE(Z)"

IBM Mainframe Forum

Routine Not Found Error

Routine Not Found Error

Re: Routine Not Found Error

Re: Routine Not Found Error

Re: Routine Not Found Error

Re: Routine Not Found Error

Re: Routine Not Found Error

Re: Routine Not Found Error

Re: Routine Not Found Error

Re: Routine Not Found Error

Re: Routine Not Found Error