CLIST & REXX :: RE: Calling CLIST through job and REXX

July 31, 2017, 10:45 pm

≫ Next: CLIST & REXX :: RE: Calling CLIST through job and REXX

≪ Previous: CLIST & REXX :: RE: Calling CLIST through job and REXX

Author: Sahasra K
Subject: Reply to: Calling CLIST through job and REXX
Posted: Tue Aug 01, 2017 11:15 am (GMT 5.5)

This is my entire code

Code:

ADDRESS ISPEXEC
/* ASM FILES */
/****************************************************************/
DSNLEV = '&HLQ..AS&RSS..F*.&HLQ..A&RSS..*'
"LMDINIT LISTID("LSTASMF") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTASMF") OPTION(SAVE) GROUP(ASMFFB) STATS(YES)"
"LMDLIST LISTID("LSTASMF") OPTION(FREE) GROUP(ASMFFB) STATS(YES)"
DSNLEV = '&HLQ..AS&RSS..O*.&HLQ..A&RSS..*'
"LMDINIT LISTID("LSTASMO") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTASMO") OPTION(SAVE) GROUP(ASMONS) STATS(YES)"
"LMDLIST LISTID("LSTASMO") OPTION(FREE) GROUP(ASMONS) STATS(YES)"
DSNLEV = '&HLQ..AS&RSS..V*.&HLQ..A&RSS..*'
"LMDINIT LISTID("LSTASMV") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTASMV") OPTION(SAVE) GROUP(ASMVS) STATS(YES)"
"LMDLIST LISTID("LSTASMV") OPTION(FREE) GROUP(ASMVS) STATS(YES)"
/****************************************************************/
/* CMS FILES */
DSNLEV = '&HLQ..AR&RSS..F*.&HLQ..A&RSS..*'
"LMDINIT LISTID("LSTCMSF") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTCMSF") OPTION(SAVE) GROUP(CMSFFB) STATS(YES)"
"LMDLIST LISTID("LSTCMSF") OPTION(FREE) GROUP(CMSFFB) STATS(YES)"
DSNLEV = '&HLQ..AR&RSS..O*.&HLQ..A&RSS..*'
"LMDINIT LISTID("LSTCMSO") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTCMSO") OPTION(SAVE) GROUP(CMSONS) STATS(YES)"
"LMDLIST LISTID("LSTCMSO") OPTION(FREE) GROUP(CMSONS) STATS(YES)"
DSNLEV = '&HLQ..AR&RSS..CD*.&HLQ..A&RSS..*'
"LMDINIT LISTID("LSTCMSC") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTCMSC") OPTION(SAVE) GROUP(CMSCD) STATS(YES)"
"LMDLIST LISTID("LSTCMSC") OPTION(FREE) GROUP(CMSCD) STATS(YES)"
DSNLEV = '&HLQ..AR&RSS..V*.&HLQ..A&RSS..*'
"LMDINIT LISTID("LSTCMSV") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTCMSV") OPTION(SAVE) GROUP(CMSVS) STATS(YES)"
"LMDLIST LISTID("LSTCMSV") OPTION(FREE) GROUP(CMSVS) STATS(YES)"
DSNLEV = '&HLQ..ARLK.**.&HLQ..A&RSS..*'
"LMDINIT LISTID("LSTCMSB") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTCMSB") OPTION(SAVE) GROUP(CMSLK) STATS(YES)"
"LMDLIST LISTID("LSTCMSB") OPTION(FREE) GROUP(CMSLK) STATS(YES)"
/****************************************************************/
/* MBS FILES */
/****************************************************************/
DSNLEV = '&HLQ..MB&RSS..F*.&HLQ..A&RSS..*'
"LMDINIT LISTID("LSTMBSF") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTMBSF") OPTION(SAVE) GROUP(MBSFFB) STATS(YES)"
"LMDLIST LISTID("LSTMBSF") OPTION(FREE) GROUP(MBSFFB) STATS(YES)"
DSNLEV = '&HLQ..MB&RSS..O*.&HLQ..A&RSS..*'
"LMDINIT LISTID("LSTMBSO") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTMBSO") OPTION(SAVE) GROUP(MBSONS) STATS(YES)"
"LMDLIST LISTID("LSTMBSO") OPTION(FREE) GROUP(MBSONS) STATS(YES)"
DSNLEV = '&HLQ..MB&RSS..V*.&HLQ..A&RSS..*'
"LMDINIT LISTID("LSTMBSV") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTMBSV") OPTION(SAVE) GROUP(MBSVS) STATS(YES)"
"LMDLIST LISTID("LSTMBSV") OPTION(FREE) GROUP(MBSVS) STATS(YES)"
DSNLEV = '&HLQ..OC&RSS..F*.&HLQ..A&RSS..*'
"LMDINIT LISTID("LSTCTAF") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTCTAF") OPTION(SAVE) GROUP(CTAFFB) STATS(YES)"
"LMDLIST LISTID("LSTCTAF") OPTION(FREE) GROUP(CTAFFB) STATS(YES)"
DSNLEV = '&HLQ..OC&RSS..O*.&HLQ..A&RSS..*'
"LMDINIT LISTID("LSTCTAO") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTCTAO") OPTION(SAVE) GROUP(CTAONS) STATS(YES)"
"LMDLIST LISTID("LSTCTAO") OPTION(FREE) GROUP(CTAONS) STATS(YES)"
DSNLEV = '&HLQ..OC&RSS..CD*.&HLQ..A&RSS..*'
"LMDINIT LISTID("LSTCTAC") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTCTAC") OPTION(SAVE) GROUP(CTACD) STATS(YES)"
"LMDLIST LISTID("LSTCTAC") OPTION(FREE) GROUP(CTACD) STATS(YES)"
DSNLEV = '&HLQ..OC&RSS..V*.&HLQ..A&RSS..*'
"LMDINIT LISTID("LSTCTAV") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTCTAV") OPTION(SAVE) GROUP(CTAVS) STATS(YES)"
"LMDLIST LISTID("LSTCTAV") OPTION(FREE) GROUP(CTAVS) STATS(YES)"
DSNLEV = '&HLQ..OCLK.*'
"LMDINIT LISTID("LSTCTAB") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTCTAB") OPTION(SAVE) GROUP(CTALK) STATS(YES)"
"LMDLIST LISTID("LSTCTAB") OPTION(FREE) GROUP(CTALK) STATS(YES)"
DSNLEV = '&HLQ..OF&RSS..F*.&HLQ..A&RSS..*'
"LMDINIT LISTID("LSTFASF") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTFASF") OPTION(SAVE) GROUP(FASFFB) STATS(YES)"
"LMDLIST LISTID("LSTFASF") OPTION(FREE) GROUP(FASFFB) STATS(YES)"
DSNLEV = '&HLQ..OF&RSS..O*.&HLQ..A&RSS..*'
"LMDINIT LISTID("LSTFASO") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTFASO") OPTION(SAVE) GROUP(FASONS) STATS(YES)"
"LMDLIST LISTID("LSTFASO") OPTION(FREE) GROUP(FASONS) STATS(YES)"
DSNLEV = '&HLQ..OF&RSS..V*.&HLQ..A&RSS..*'
"LMDINIT LISTID("LSTFASV") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTFASV") OPTION(SAVE) GROUP(FASVS) STATS(YES)"
"LMDLIST LISTID("LSTFASV") OPTION(FREE) GROUP(FASVS) STATS(YES)"
DSNLEV = '&HLQ..OF&RSS..CD*.&HLQ..A&RSS..*'
"LMDINIT LISTID("LSTFASC") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTFASC") OPTION(SAVE) GROUP(FASCD) STATS(YES)"
"LMDLIST LISTID("LSTCTAC") OPTION(FREE) GROUP(FASCD) STATS(YES)"
DSNLEV = '&HLQ..IT&RSS..F*.&HLQ..A&RSS..*'
"LMDINIT LISTID("LSTITSF") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTITSF") OPTION(SAVE) GROUP(ITSFFB) STATS(YES)"
"LMDLIST LISTID("LSTITSF") OPTION(FREE) GROUP(ITSFFB) STATS(YES)"
DSNLEV = '&HLQ..IT&RSS..O*.&HLQ..A&RSS..*'
"LMDINIT LISTID("LSTITSO") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTITSO") OPTION(SAVE) GROUP(ITSONS) STATS(YES)"
"LMDLIST LISTID("LSTITSO") OPTION(FREE) GROUP(ITSONS) STATS(YES)"
DSNLEV = '&HLQ..IT&RSS..V*.&HLQ..A&RSS..*'
"LMDINIT LISTID("LSTITSV") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTITSV") OPTION(SAVE) GROUP(ITSVS) STATS(YES)"
"LMDLIST LISTID("LSTITSV") OPTION(FREE) GROUP(ITSVS) STATS(YES)"
DSNLEV = '&HLQ..QP&RSS..F*.&HLQ..A&RSS..*'
"LMDINIT LISTID("LSTLMSF") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTLMSF") OPTION(SAVE) GROUP(LMSFFB) STATS(YES)"
"LMDLIST LISTID("LSTLMSF") OPTION(FREE) GROUP(LMSFFB) STATS(YES)"
DSNLEV = '&HLQ..QP&RSS..O*.&HLQ..A&RSS..*'
"LMDINIT LISTID("LSTLMSO") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTLMSO") OPTION(SAVE) GROUP(LMSONS) STATS(YES)"
"LMDLIST LISTID("LSTLMSO") OPTION(FREE) GROUP(LMSONS) STATS(YES)"
DSNLEV = '&HLQ..QP&RSS..V*.&HLQ..A&RSS..*'
"LMDINIT LISTID("LSTLMSV") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTLMSV") OPTION(SAVE) GROUP(LMSVS) STATS(YES)"
"LMDLIST LISTID("LSTLMSV") OPTION(FREE) GROUP(LMSVS) STATS(YES)"
DSNLEV = '&HLQ..QP&RSS..CD*.&HLQ..A&RSS..*'
"LMDINIT LISTID("LSTLMSC") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTLMSC") OPTION(SAVE) GROUP(LMSCD) STATS(YES)"
"LMDLIST LISTID("LSTLMSC") OPTION(FREE) GROUP(LMSCD) STATS(YES)"
DSNLEV = '&HLQ..LT&RSS..F*.&HLQ..A&RSS..*'
"LMDINIT LISTID("LSTLTSF") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTLTSF") OPTION(SAVE) GROUP(LTSFFB) STATS(YES)"
"LMDLIST LISTID("LSTLTSF") OPTION(FREE) GROUP(LTSFFB) STATS(YES)"
DSNLEV = '&HLQ..LT&RSS..O*.&HLQ..A&RSS..*'
"LMDINIT LISTID("LSTLTSO") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTLTSO") OPTION(SAVE) GROUP(LTSONS) STATS(YES)"
"LMDLIST LISTID("LSTLTSO") OPTION(FREE) GROUP(LTSONS) STATS(YES)"
DSNLEV = '&HLQ..LT&RSS..V*.&HLQ..A&RSS..*'
"LMDINIT LISTID("LSTLTSV") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTLTSV") OPTION(SAVE) GROUP(LTSVS) STATS(YES)"
"LMDLIST LISTID("LSTLTSV") OPTION(FREE) GROUP(LTSVS) STATS(YES)"
DSNLEV = '&HLQ..LT&RSS..CD*.&HLQ..A&RSS..*'
"LMDINIT LISTID("LSTLTSC") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTLTSC") OPTION(SAVE) GROUP(LTSCD) STATS(YES)"
"LMDLIST LISTID("LSTLTSC") OPTION(FREE) GROUP(LTSCD) STATS(YES)"
DSNLEV = '&HLQ..LTLK.**.&HLQ..A&RSS..*'
"LMDINIT LISTID("LSTLTSB") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTLTSB") OPTION(SAVE) GROUP(LTSLK) STATS(YES)"
"LMDLIST LISTID("LSTLTSB") OPTION(FREE) GROUP(LTSLK) STATS(YES)"
"LMDINIT LISTID("LSTTRMF") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTTRMF") OPTION(SAVE) GROUP(TRMFFB) STATS(YES)"
"LMDLIST LISTID("LSTTRMF") OPTION(FREE) GROUP(TRMFFB) STATS(YES)"
DSNLEV = '&HLQ..TM&RSS..O*.&HLQ..A&RSS..*'
"LMDINIT LISTID("LSTTRMO") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTTRMO") OPTION(SAVE) GROUP(TRMONS) STATS(YES)"
"LMDLIST LISTID("LSTTRMO") OPTION(FREE) GROUP(TRMONS) STATS(YES)"
DSNLEV = '&HLQ..TM&RSS..CD*.&HLQ..A&RSS..*'
"LMDINIT LISTID("LSTTRMC") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTTRMC") OPTION(SAVE) GROUP(TRMCD) STATS(YES)"
"LMDLIST LISTID("LSTTRMC") OPTION(FREE) GROUP(TRMCD) STATS(YES)"
DSNLEV = '&HLQ..TM&RSS..VS*.&HLQ..A&RSS..*'
"LMDINIT LISTID("LSTTRMV") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTTRMV") OPTION(SAVE) GROUP(TRMVS) STATS(YES)"
"LMDLIST LISTID("LSTTRMV") OPTION(FREE) GROUP(TRMVS) STATS(YES)"
DSNLEV = '&HLQ..TMLK.*'
"LMDINIT LISTID("LSTTRMB") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTTRMB") OPTION(SAVE) GROUP(TRMLK) STATS(YES)"
"LMDLIST LISTID("LSTTRMB") OPTION(FREE) GROUP(TRMLK) STATS(YES)"

JCL

Code:

//PS050 EXEC PGM=IKJEFT01,PARM='ISPSTART CMD(SVLSTHKR'
//* COND=(00,NE,PS040)
//*
//SYSEXEC DD DSN=P31511.PDS.TOOLS.REXX,
// DISP=SHR
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//**********************************************************************
//*********** ASM FFB, ONS, VSO, VSB SAVELIST **************************
//**********************************************************************
//ASMI01 DD DSN=&USER..ASMFFB.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//ASMI02 DD DSN=&USER..ASMONS.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//ASMI03 DD DSN=&USER..ASMVS.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//**********************************************************************
//*********** CMS FFB,ONS,CD,VSO,VSB,BN,PH,SG SAVELIST *****************
//**********************************************************************
//CMSI01 DD DSN=&USER..CMSFFB.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//CMSI02 DD DSN=&USER..CMSONS.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//CMSI03 DD DSN=&USER..CMSCD.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//CMSI04 DD DSN=&USER..CMSVS.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//CMSI05 DD DSN=&USER..CMSBN.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//CMSI06 DD DSN=&USER..CMSPH.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//CMSI07 DD DSN=&USER..CMSSG.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//CMSI08 DD DSN=&USER..CMSTH.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//*****************************************
//*********** MBS FFB, ONS, VSO, VSB SAVELI
//*****************************************
//MBSI01 DD DSN=&USER..MBSFFB.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//MBSI02 DD DSN=&USER..MBSONS.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//MBSI03 DD DSN=&USER..MBSVS.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//*******************************************************************
//*********** CTA FFB,ONS,CD,VSO,VSB,BN,PH,SG SAVELIST **************
//*******************************************************************
//CTAI01 DD DSN=&USER..CTAFFB.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//CTAI02 DD DSN=&USER..CTAONS.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//*CTAI03 DD DSN=&USER..CTACD.DATASETS,
//CTAI04 DD DSN=&USER..CTAVS.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//CTAI05 DD DSN=&USER..CTABN.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//CTAI06 DD DSN=&USER..CTAPH.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//CTAI07 DD DSN=&USER..CTASG.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//CTAI08 DD DSN=&USER..CTATH.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//FASI01 DD DSN=&USER..FASFFB.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//FASI02 DD DSN=&USER..FASONS.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//FASI03 DD DSN=&USER..FASCD.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//FASI04 DD DSN=&USER..FASVS.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//ITSI01 DD DSN=&USER..ITSFFB.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//ITSI02 DD DSN=&USER..ITSONS.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//ITSI03 DD DSN=&USER..ITSVS.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//LMSI01 DD DSN=&USER..LMSFFB.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//LMSI02 DD DSN=&USER..LMSONS.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//LMSI03 DD DSN=&USER..LMSCD.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//LMSI04 DD DSN=&USER..LMSVS.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//LTSI01 DD DSN=&USER..LTSFFB.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//LTSI02 DD DSN=&USER..LTSONS.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//LTSI03 DD DSN=&USER..LTSCD.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//LTSI04 DD DSN=&USER..LTSVS.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//TRMI01 DD DSN=&USER..TRMFFB.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//TRMI02 DD DSN=&USER..TRMONS.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//TRMI03 DD DSN=&USER..TRMCD.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//TRMI04 DD DSN=&USER..TRMVS.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//TRMI05 DD DSN=&USER..TRMBN.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
//TRMI06 DD DSN=&USER..TRMPH.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//TRMI07 DD DSN=&USER..TRMSG.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)
//TRMI08 DD DSN=&USER..TRMTH.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=140)

↧

CLIST & REXX :: RE: Calling CLIST through job and REXX

August 1, 2017, 2:40 am

≫ Next: CLIST & REXX :: RE: Calling CLIST through job and REXX

≪ Previous: CLIST & REXX :: RE: Calling CLIST through job and REXX

Author: Nic Clouston
Posted: Tue Aug 01, 2017 3:10 pm (GMT 5.5)

Refer to Steve's first point: you have not specified the required ISPF libraries to run ISPF in batch. There are examples in the forum of what you need.

Also, I have corrected your use of the code tags in 2 of your posts above. Before your post use the "Preview" button to review your post and make any corrections. If you spot a mistake within 10 minutes of submitting your post then use the "Edit" button to edit and correct the mistakes.
_________________
Regards
Nic

↧

CLIST & REXX :: RE: Calling CLIST through job and REXX

August 1, 2017, 3:29 am

≫ Next: CLIST & REXX :: RE: Calling CLIST through job and REXX

≪ Previous: CLIST & REXX :: RE: Calling CLIST through job and REXX

Author: Sahasra K
Posted: Tue Aug 01, 2017 3:59 pm (GMT 5.5)

Thansk alot Nic...

Actually i perfrming this activity through PANEL..

Code:

-------------------- DATASETS RECALL ACTIVITY TOOL --------------------

======================================================================
PLEASE VALIDATE THE BELOW VALUES CAREFULLY AGAIN
======================================================================

REGENV ====> REGSYS ====>
REGSUB ====> REGQUAL ====>

======================================================================
======================================================================

SUBMIT ====> .

As part of this i need to perform the below..

1. Take savelist
2. HRECALL for the datasets present in the above savelist(which will be input) for HRECALL Job

But my savelist it self is failing ..

If i take save list through command line and give the input to the HRECALL job its wroking..

Hence my major issue is to excute the REXX to take savelist when user give "Y" in submit.Save list need to created..

For this i have created .

1. XYZ main REXX program where i need to invoke the SVLSTHKR (above mentioned code) present MY.REXX.PDS

2. SAVELST ( job to call REXX an create the saelist) present in MYSKELL.PDS

↧

CLIST & REXX :: RE: Calling CLIST through job and REXX

August 1, 2017, 9:05 am

≫ Next: CLIST & REXX :: RE: Calling CLIST through job and REXX

≪ Previous: CLIST & REXX :: RE: Calling CLIST through job and REXX

Author: Pedro
Subject: Reply to: Calling CLIST through job and REXX
Posted: Tue Aug 01, 2017 9:35 pm (GMT 5.5)

For PGM=IKJEFT01, you need to provide SYSTSPRT and SYSTSIN.

You should use a simple 'hello world' program first to make sure your JCL is correct. After your hello world is working, then try your complex program.

Oh, and you called it a 'clist' but it is actually a rexx program.
_________________
Pedro Vera

↧

CLIST & REXX :: RE: Calling CLIST through job and REXX

August 1, 2017, 9:41 am

≫ Next: CLIST & REXX :: Default Message in Rexx

≪ Previous: CLIST & REXX :: RE: Calling CLIST through job and REXX

Author: cvnlynn
Posted: Tue Aug 01, 2017 10:11 pm (GMT 5.5)

Quote:

//PS050 EXEC PGM=IKJEFT01,PARM='ISPSTART CMD(SVLSTHKR'

I noticed there's no closing parenthese

↧

CLIST & REXX :: Default Message in Rexx

August 1, 2017, 12:08 pm

≫ Next: CLIST & REXX :: RE: Default Message in Rexx

≪ Previous: CLIST & REXX :: RE: Calling CLIST through job and REXX

Author: cvnlynn
Subject: Default Message in Rexx
Posted: Wed Aug 02, 2017 12:38 am (GMT 5.5)

I got this msg Invalid DSN - length; I don't know where it came from, I found several of the same msgs from SYS1.ISPF.ISPMLIB; how they related to my Rexx program. Thanks.

↧

CLIST & REXX :: RE: Default Message in Rexx

August 1, 2017, 12:43 pm

≫ Next: CLIST & REXX :: RE: Default Message in Rexx

≪ Previous: CLIST & REXX :: Default Message in Rexx

Author: Akatsukami
Posted: Wed Aug 02, 2017 1:13 am (GMT 5.5)

As you have not shown us your script nor, if you are running it in batch, your JCL, we can only guess. I will not try.
_________________
Data is not information.
Information is not knowledge.
Knowledge is not wisdom.

↧

CLIST & REXX :: RE: Default Message in Rexx

August 1, 2017, 1:02 pm

≫ Next: CLIST & REXX :: RE: Default Message in Rexx

≪ Previous: CLIST & REXX :: RE: Default Message in Rexx

Author: cvnlynn
Posted: Wed Aug 02, 2017 1:32 am (GMT 5.5)

the highlighted msg is caused by the length of the highlighted dataset name

(CSA1530)--------------- CSA1500 TESTING DIALOGS --- Invalid DSN - length

COMMAND ==> USERID - MWCXN3
VR/FR DAILY TRACKING, RAW ITT TIME - 12:51
SY2
CEN YR MO DA
ENTER WORK DATE ==> 20 17 08 01
ENTER HOURGLASS CONTROL ==> DC117213
SELECT ONE OR BOTH INPUT DATASETS (OVERTYPE TO CHANGE NAMES)
1=> _ FR3OUT FILE FROM RM1716
MW.SYSTEM.VFR.RM1716.ST.FR3OUT.D17213.T1251 FILE NOT FOUND

↧

CLIST & REXX :: RE: Default Message in Rexx

August 1, 2017, 3:32 pm

≫ Next: CLIST & REXX :: RE: Default Message in Rexx

≪ Previous: CLIST & REXX :: RE: Default Message in Rexx

Author: Nic Clouston
Posted: Wed Aug 02, 2017 4:02 am (GMT 5.5)

Please use the code tags when posting code and do not use highlighting but some indicator e,g, <=== on the line(s) in question.

Is the data set name correct? The message says it is not found. It is legal but at 43 bytes long only just - the max length allowed being 44 bytes.
_________________
Regards
Nic

↧

CLIST & REXX :: RE: Default Message in Rexx

August 1, 2017, 5:34 pm

≫ Next: CLIST & REXX :: RE: Calling CLIST through job and REXX

≪ Previous: CLIST & REXX :: RE: Default Message in Rexx

Author: cvnlynn
Posted: Wed Aug 02, 2017 6:04 am (GMT 5.5)

for testing purpose, the file name is not correct; but I would like to know is where the msg 'invalid DSN - length' came from, how it's triggered in my program. Thanks.

↧

CLIST & REXX :: RE: Calling CLIST through job and REXX

August 1, 2017, 9:18 pm

≫ Next: CLIST & REXX :: RE: Calling CLIST through job and REXX

≪ Previous: CLIST & REXX :: RE: Default Message in Rexx

Author: Sahasra K
Subject: Reply to: Calling CLIST through job and REXX
Posted: Wed Aug 02, 2017 9:48 am (GMT 5.5)

i have done the changes like below in the JCL and submitted again . now getting ABEND=S000 U0999 REASON=00000000 989

Code:

08 //PS010 EXEC PGM=IKJEFT01,PARM='ISPSTART CMD(%SVLSTHKR)'
09 //* COND=(00,NE,PS040)
10 //*
11 //SYSEXEC DD DSN=P31511.PDS.TOOLS.REXX,
12 // DISP=SHR
13 //SYSOUT DD SYSOUT=*
14 //SYSPRINT DD SYSOUT=*
15 //SYSUDUMP DD SYSOUT=*
16 //SYSDBOUT DD SYSOUT=*
17 //SYSTSIN DD DUMMY
18 //SYSTSPRT DD SYSOUT=*

Error:

Code:

STEPNAME PROCSTEP RC EXCP CPU SRB CLOCK SERV PG PAGE SWAP
V EQQDELDS 00 531 .00 .00 .07 36533 0 0 0
P31511SV.EQQDELDS.EQQDELDS RC= 0000
V PS010 998 16 .00 .00 .07 1241 0 0 0
P31511SV.PS010 .PS010 RC= 0998
P31511SV PS010SF - ABEND=S000 U0999 REASON=00000000 989
TIME=12.11.38

↧

CLIST & REXX :: RE: Calling CLIST through job and REXX

August 1, 2017, 11:36 pm

≫ Next: CLIST & REXX :: RE: Default Message in Rexx

≪ Previous: CLIST & REXX :: RE: Calling CLIST through job and REXX

Author: Sahasra K
Subject: Reply to: Calling CLIST through job and REXX
Posted: Wed Aug 02, 2017 12:06 pm (GMT 5.5)

finally a minor progress on the job

I have done the changes in the job as below

Code:

//EQQDELDS EXEC PGM=EQQDELDS,COND=(00,NE)
//*
//PS010 EXEC PGM=IKJEFT01,PARM='SVLSTHKR'
//* COND=(00,NE,PS040)
//*
//SYSEXEC DD DSN=P31511.PDS.TOOLS.REXX,
// DISP=SHR
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*

Issue i am getting below issue

Code:

// DCB=(RECFM=FB,LRECL=140,BLKSIZE=0)
//CMSO05 DD DSN=&HLQ.AR&OWN1..FFB.&HLQ.A&RSS..LIST.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(1,1),RLSE),
// DCB=(RECFM=FB,LRECL=140,BLKSIZE=0)
//CMSO06 DD DSN=&HLQ.AR&OWN2..FFB.&HLQ.A&RSS..LIST.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(1,1),RLSE),
// DCB=(RECFM=FB,LRECL=140,BLKSIZE=0)
//CMSO07 DD DSN=&HLQ.AR&OWN3..FFB.&HLQ.A&RSS..LIST.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(1,1),RLSE),
// DCB=(RECFM=FB,LRECL=140,BLKSIZE=0)
//CMSO08 DD DSN=&HLQ.AR&OWN4..FFB.&HLQ.A&RSS..LIST.DATASETS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(1,1),RLSE),
// DCB=(RECFM=FB,LRECL=140,BLKSIZE=0)

OWNI is not getting passed to JCL from REXX

REXX code as below

Code:

DO
OWN1 = 'LK'
SKEL = 'SAVELST'
CALL RUNJOB OWN1
END
ELSE
DO
OWN1 = 'BN'
OWN2 = 'PH'
OWN3 = 'SG'
OWN4 = 'TH'
SKEL = 'SAVELST'
CALL RUNJOB
END

↧

CLIST & REXX :: RE: Default Message in Rexx

August 2, 2017, 2:34 am

≫ Next: CLIST & REXX :: RE: Calling CLIST through job and REXX

≪ Previous: CLIST & REXX :: RE: Calling CLIST through job and REXX

Author: Nic Clouston
Posted: Wed Aug 02, 2017 3:04 pm (GMT 5.5)

What message do you get when you press F1 when you get the invalid DSN message?
On the mainframe the maximum length of a data set name is 44 bytes. It is possible that the application wants a shorter name but only the documentation can tell you.
_________________
Regards
Nic

↧

CLIST & REXX :: RE: Calling CLIST through job and REXX

August 2, 2017, 2:36 am

≫ Next: CLIST & REXX :: RE: Calling CLIST through job and REXX

≪ Previous: CLIST & REXX :: RE: Default Message in Rexx

Author: Nic Clouston
Posted: Wed Aug 02, 2017 3:06 pm (GMT 5.5)

Well of course it isn't. The JCL is fixed in stone once it is submitted. Nothing can be changed once it has been read onto the machine.
You can only pass parms from the JCL to the programs being executed - not the other way around.
_________________
Regards
Nic

↧

CLIST & REXX :: RE: Calling CLIST through job and REXX

August 2, 2017, 3:56 am

≫ Next: CLIST & REXX :: RE: Default Message in Rexx

≪ Previous: CLIST & REXX :: RE: Calling CLIST through job and REXX

Author: steve-myers
Posted: Wed Aug 02, 2017 4:26 pm (GMT 5.5)

Nic Clouston wrote:

Well of course it isn't. The JCL is fixed in stone once it is submitted. Nothing can be changed once it has been read onto the machine.
You can only pass parms from the JCL to the programs being executed - not the other way around.

Mr. Clousten's statement is both correct and incorrect. The JCL card images themselves cannot be altered in any way. However, the effect of the statements can be altered through a variety of mechanisms by the programs that are run by the JCL. For example

Dynamic allocation
- The TSO ALLOCATE and FREE commands.
- The BPXWDYN program, which can be called from Rexx EXECs (it is not really proper to call a Rexx EXEC a âprogram,â though many of us do this, and the effect is the same) as well as other programming languages such as C, PL/I or even Cobol.
- MVS dynamic allocation services directly called from (usually) Assembler programs, which is in effect what the TSO ALLOCATE and FREE commands are as well as something like BPXWDYN.
Altering a data area known as a JFCB, which is only readily exposed to Assembler programs, followed by the use of the Assembler OPEN xxx,TYPE=J macro can achieve effects similar to the direct effect of using MVS dynamic allocation. In fact, there are things that can be done with this mechanism that cannot be directly done using dynamic allocation.

↧

CLIST & REXX :: RE: Default Message in Rexx

August 2, 2017, 4:05 am

≫ Next: CLIST & REXX :: RE: Calling CLIST through job and REXX

≪ Previous: CLIST & REXX :: RE: Calling CLIST through job and REXX

Author: steve-myers
Posted: Wed Aug 02, 2017 4:35 pm (GMT 5.5)

cvnlynn wrote:

for testing purpose, the file name is not correct; but I would like to know is where the msg 'invalid DSN - length' came from, how it's triggered in my program. Thanks.

ISPF dialog services provide many details that are not available in Rexx, such as performing a syntax check of a data set name. Most likely the message was actually triggered by this service,

↧

CLIST & REXX :: RE: Calling CLIST through job and REXX

August 2, 2017, 7:07 am

≫ Next: CLIST & REXX :: RE: Default Message in Rexx

≪ Previous: CLIST & REXX :: RE: Default Message in Rexx

Author: Nic Clouston
Posted: Wed Aug 02, 2017 7:37 pm (GMT 5.5)

Not incorrect - dynamic allocation does not go through the RI. I was referring solely to SUBMITTED JCL.
OP posted JCL with the data sets that s/he was referring to and the comments were based on that.
_________________
Regards
Nic

↧

CLIST & REXX :: RE: Default Message in Rexx

August 2, 2017, 8:31 am

≫ Next: CLIST & REXX :: RE: Default Message in Rexx

≪ Previous: CLIST & REXX :: RE: Calling CLIST through job and REXX

Author: cvnlynn
Posted: Wed Aug 02, 2017 9:01 pm (GMT 5.5)

when I press PF1, I got this msg

Code:

Dsname must be 1-44 chars in length, including prefix. Reenter dsname.

↧

CLIST & REXX :: RE: Default Message in Rexx

August 2, 2017, 9:02 am

≫ Next: CLIST & REXX :: RE: Calling CLIST through job and REXX

≪ Previous: CLIST & REXX :: RE: Default Message in Rexx

Author: Pedro
Subject: Reply to: Default Message in Rexx
Posted: Wed Aug 02, 2017 9:32 pm (GMT 5.5)

Since you are getting help when you press F1... the panel is using the VER function to verify the data provided.

Issue MSGID ON to see the message number associated with the message.
_________________
Pedro Vera

↧

CLIST & REXX :: RE: Calling CLIST through job and REXX

August 2, 2017, 9:06 am

≫ Next: CLIST & REXX :: RE: Default Message in Rexx

≪ Previous: CLIST & REXX :: RE: Default Message in Rexx

Author: Pedro
Subject: Reply to: Calling CLIST through job and REXX
Posted: Wed Aug 02, 2017 9:36 pm (GMT 5.5)

When your exec finishes, be sure to provide a return code 0.
_________________
Pedro Vera

↧