/* rexx */
/*                                                                  */
/*                   Welcome to LC                                  */
/*                                                                  */
/*  Description :  Allows LC to be typed on 3.4 panels for listcat  */
/*                                                                  */
/*  Created : 04/17/02 by Kevin Ferguson                            */
/*          : using ABBYDALE.PROD.REXX(LC)                          */
/*                                                                  */
/*  Called by :                                                     */
/*                                                                  */
/*  Calls : IDCAMS LISTCAT                                          */
/*                                                                  */
/*  Change Activity :                                               */
/*                                                                  */
/*                                                                  */
parse upper arg dsn act
dsn = strip(dsn,b,"'")
"LISTCAT ENT('"dsn"') " act
ZEDSMSG = 'LC successful'
ZEDLMSG = dsn 'catalog entry listed'
ZDLMSG = "LC Complete"
ZDLREF = 'Y'
Address ISPEXEC "VPUT (ZDLMSG ZDLMSG) SHARED"
address ISPEXEC "SETMSG MSG(ISRZ001)"
exit
/*-------------------------------------------------------------------*/
/*                        End of LC                                  */
/*-------------------------------------------------------------------*/