Page 1 of 2

Routine Not Found Error

PostPosted: Wed May 27, 2015 10:53 pm
by Fabrice Lubela
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
 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

Re: Routine Not Found Error

PostPosted: Wed May 27, 2015 11:23 pm
by Mickeydusaor
get rid of the address MVS add address TSO

Re: Routine Not Found Error

PostPosted: Wed May 27, 2015 11:27 pm
by Fabrice Lubela
I still have the same error

Re: Routine Not Found Error

PostPosted: Wed May 27, 2015 11:29 pm
by Mickeydusaor
"FREE FILE(Z)"

Re: Routine Not Found Error

PostPosted: Wed May 27, 2015 11:35 pm
by Fabrice Lubela
Even with that "FREE FILE" i still have the same error

Re: Routine Not Found Error

PostPosted: Wed May 27, 2015 11:36 pm
by Mickeydusaor
That is not what I showed you. look at what I entered.

Re: Routine Not Found Error

PostPosted: Wed May 27, 2015 11:42 pm
by Fabrice Lubela
Indeed , i changed ADDRESS MVS to ADDRESS TSO on line 8 and add doublwe quotations on line 15. The error is the same.

Re: Routine Not Found Error

PostPosted: Thu May 28, 2015 12:32 am
by Mickeydusaor
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

Re: Routine Not Found Error

PostPosted: Thu May 28, 2015 12:41 am
by Fabrice Lubela
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)
?

Re: Routine Not Found Error

PostPosted: Thu May 28, 2015 12:47 am
by Mickeydusaor
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)"