Rexx calling Clist

[BrembM3]

I have a Rexx calling an existing Clist that checks if a ds is migrated - I get the following error messages:-
IKJ56529I SYMBOLIC PARMS IN VALUE LIST IGNORED - ''DNCL.PROCLIB''+
IKJ79016I STMT 21 THE WHEN EXPRESSION MUST BE PARENTHESIZED
IKJ79016I STMT 22 THE WHEN EXPRESSION MUST BE PARENTHESIZED
IKJ79016I STMT 23 THE WHEN EXPRESSION MUST BE PARENTHESIZED
IKJ56529I COMMAND PROCEDURE HAS NO PROC STMT
Here's the code:-
000014 ARG DSN DIAG
000015 IF DIAG = 'DIAG' THEN TRACE I
000016 ELSE DIAG = ''
000017 ADDRESS ISPEXEC
000018
000019 LISTDSI_RC = LISTDSI(DSN 'NORECALL NODIRECTORY')
000020 SELECT
000021 WHEN LISTDSI_RC = 0 THEN RETURN 0
000022 WHEN LISTDSI_RC = 16 & SYSREASON = 5 THEN RETURN 8
000023 WHEN LISTDSI_RC = 16 & SYSREASON = 9 THEN RETURN 4
000024 OTHERWISE RETURN 16
000025 END
000026 RETURN RC


Is there anything special I need to code for the Rexx to call the Clist?

 

[rexxhead]

Add this before line #1:

/* REXX */

The code shown is located in SYSPROC. To distinguish it from CLIST the 'REXX' comment is required on the first line.

If you were to move that code into a SYSEXEC dataset, the REXX-comment would not be required since ONLY REXX may live in SYSEXEC.


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

 

[BrembM3]

Thanks Frank - confused me because it worked fine from my personal Rexxlib, but had a problem when we moved it to Sys* libs...
Thanks again...

 

[APRASAD]

I have a similar situation where I am calling a CLIST from REXX, Within the CLIST, I am interested in editing a pds member. This is the CLIST that I am calling from REXX :

PROC 2 MEMNAME LNKNAME
SET &INDSN = APRASAD.STK.JCL(&MEMNAME)

ALLOCATE DATASET('&INDSN') SHR FILE(DDIN)
SET &MEMNAME1 = &MEMNAME
SET &LNKNAME1 = &LNKNAME
EDIT DDIN
C * 9999 &MEMNAME1 &LNKNAME1
END SAVE
FREE DATASET(&INDSN)
END

The allocate statement is failing with "MISSING DATA SET TYPE".

Any help would be highly appreciated.

 

[rexxhead]

ALLOCATE  DATASET('&INDSN') SHR FILE(DDIN)

This may have to be

ALLOCATE  DATASET(&STR(')&INDSN&STR(')) SHR FILE(DDIN)

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