Troubleshooting
Problem
A way to identify in the CP the predecessors of any operation 001 and successors of any operation 255 by using WAPL
Resolving The Problem
This is an example of WAPL JCL to get predecessors of any operation 001 and successors of any operation 255 present in the CP
-------------------------------------------
//RUNSOE EXEC EQQYXJPX,
// VER=V950,
// SUBSYS=TW5H
//OUTBL DD SYSOUT=*
//OUTDATA DD SYSOUT=*,LRECL=4096
// VER=V950,
// SUBSYS=TW5H
//OUTBL DD SYSOUT=*
//OUTDATA DD SYSOUT=*,LRECL=4096
//SYSIN DD DATA,DLM=ZZ
OPTIONS FIELDSEP(,)
OUTPUT CPPRE DATA(OUTDATA)
FIELDS(CPOPCOM.CPOPADI,CPOPCOM.CPOPIA,CPOPCOM.CPOPNO,
CPPREADI,CPPREIA,CPPRENO)
LIST CPOPCOM OPNO(001) SELECT(Y)
OUTPUT CPPRE DATA(-)
OUTPUT CPSUC DATA(OUTDATA)
FIELDS(CPOPCOM.CPOPADI,CPOPCOM.CPOPIA,CPOPCOM.CPOPNO,
CPSUCADI,CPSUCIA,CPSUCNO)
LIST CPOPCOM OPNO(255) SELECT(Y)
OUTPUT CPSUC DATA(-)
/*
ZZ
OPTIONS FIELDSEP(,)
OUTPUT CPPRE DATA(OUTDATA)
FIELDS(CPOPCOM.CPOPADI,CPOPCOM.CPOPIA,CPOPCOM.CPOPNO,
CPPREADI,CPPREIA,CPPRENO)
LIST CPOPCOM OPNO(001) SELECT(Y)
OUTPUT CPPRE DATA(-)
OUTPUT CPSUC DATA(OUTDATA)
FIELDS(CPOPCOM.CPOPADI,CPOPCOM.CPOPIA,CPOPCOM.CPOPNO,
CPSUCADI,CPSUCIA,CPSUCNO)
LIST CPOPCOM OPNO(255) SELECT(Y)
OUTPUT CPSUC DATA(-)
/*
ZZ
-------------------------------------------
Document Location
Worldwide
[{"Type":"MASTER","Line of Business":{"code":"LOB35","label":"Mainframe SW"},"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSRULV","label":"IBM Workload Scheduler for z\/OS"},"ARM Category":[{"code":"a8m0z0000001epqAAA","label":"ZOS-\u003EIZWS-\u003ETechnote"}],"ARM Case Number":"","Platform":[{"code":"PF035","label":"z\/OS"}],"Version":"All Versions"}]
Was this topic helpful?
Document Information
Modified date:
09 April 2024
UID
ibm17009541