Routine Not Found Error



IBM's Command List programming language & Restructured Extended Executor

Routine Not Found Error

Postby 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
 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
Fabrice Lubela
 
Posts: 8
Joined: Wed May 27, 2015 9:30 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Routine Not Found Error

Postby Mickeydusaor » Wed May 27, 2015 11:23 pm

get rid of the address MVS add address TSO
User avatar
Mickeydusaor
 
Posts: 29
Joined: Fri Feb 24, 2012 11:24 pm
Has thanked: 1 time
Been thanked: 0 time

Re: Routine Not Found Error

Postby Fabrice Lubela » Wed May 27, 2015 11:27 pm

I still have the same error
Fabrice Lubela
 
Posts: 8
Joined: Wed May 27, 2015 9:30 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Routine Not Found Error

Postby Mickeydusaor » Wed May 27, 2015 11:29 pm

"FREE FILE(Z)"
User avatar
Mickeydusaor
 
Posts: 29
Joined: Fri Feb 24, 2012 11:24 pm
Has thanked: 1 time
Been thanked: 0 time

Re: Routine Not Found Error

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

Even with that "FREE FILE" i still have the same error
Fabrice Lubela
 
Posts: 8
Joined: Wed May 27, 2015 9:30 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Routine Not Found Error

Postby Mickeydusaor » Wed May 27, 2015 11:36 pm

That is not what I showed you. look at what I entered.
User avatar
Mickeydusaor
 
Posts: 29
Joined: Fri Feb 24, 2012 11:24 pm
Has thanked: 1 time
Been thanked: 0 time

Re: Routine Not Found Error

Postby 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.
Fabrice Lubela
 
Posts: 8
Joined: Wed May 27, 2015 9:30 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Routine Not Found Error

Postby 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
User avatar
Mickeydusaor
 
Posts: 29
Joined: Fri Feb 24, 2012 11:24 pm
Has thanked: 1 time
Been thanked: 0 time

Re: Routine Not Found Error

Postby 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)
?
Fabrice Lubela
 
Posts: 8
Joined: Wed May 27, 2015 9:30 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Routine Not Found Error

Postby 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)"
User avatar
Mickeydusaor
 
Posts: 29
Joined: Fri Feb 24, 2012 11:24 pm
Has thanked: 1 time
Been thanked: 0 time

Next

Return to CLIST & REXX

 


  • Related topics
    Replies
    Views
    Last post