英文:
Selected Node Not Available RC=40
问题
我是新手，对于在XPediter中运行程序时遇到的错误有疑问。在尝试运行程序后，我收到一条消息，上面写着“SELECTED NODE NOT AVAILABLE RC=40”。不确定这是什么意思，或者我在公司需要提出什么问题。
我已经回顾了我的JCL，并检查了一切是否都对齐，比如程序名称等等。从我的角度看，一切似乎都没问题，但我也是新手，所以可能有问题。
英文:
I am new to Mainframe/COBOL and have a question about an error I am receiving when attempting to run my program in XPediter. I get a message after attempting to run my program SELECTED NODE NOT AVAILABLE RC=40. Not sure what this means or what I might have to ask for in my company.
I have gone back through my JCL and checked if everything lined up like program name and what not. Seems good from my point of view but I am also new to this so It might be off.
答案1
得分: 2
Jason,
确保你要调试的COBOL程序已经使用xpediter编译。
以下是一个示例的JCL：
//***************************************************************
//* 编译程序以供Xpediter使用 *
//***************************************************************
//COMPILE EXEC PGM=CWPCMAIN,REGION=4M,COND=(8,LT),
// PARM=('APOST,MAP,XREF,LIST')
//STEPLIB DD DISP=SHR,DSN=COMPUWARE.CSS.LOADLIB
// DD DISP=SHR,DSN=Cobol.compile.library
//SYSTERM DD SYSOUT=(*)
//SYSPRINT DD SYSOUT=(*)
//SYSPUNCH DD DUMMY
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT5 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT6 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSLIN DD UNIT=SYSDA,DISP=(NEW,PASS),
// SPACE=(CYL,(1,1)),DCB=(,BLKSIZE=400)
//SYSIN DD DISP=SHR,DSN=YOUR.cobol.source(pgmname)
//XOPTIONS DD DISP=SHR,DSN=XT.XT70B1.XOPTIONS
//CWPDDIO DD DISP=SHR,DSN=FLGFGR1.COBOL.DDIO
//CWPPRMO DD *
COBOL(OUTPUT(PRINT,DDIO))
PROCESSOR(OUTPUT(NOPRINT,NODDIO),TEXT(NONE))
LANGUAGE(VSCOBOL)
DDIO(OUTPUT(NOLIST,NOXREF,FIND,NODMAP,NOOFFSET,COMPRESS))
/*
//***************************************************************
//* 链接编辑COBOL程序 *
//***************************************************************
//LINK EXEC PGM=IEWL,REGION=1M,COND=(8,LE),
// PARM=('LIST,LET')
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DSN=*.COMPILE.SYSLIN,DISP=(SHR,PASS)
//SYSLIB DD DSN=Cobol.compile.library,DISP=SHR
//SYSLMOD DD DSN=Your.pgm.LOADLIB(pgmname),DISP=SHR
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//*
希望这有助于你的需求。
英文:
Jason,
You need to ensure that COBOL program you want to DEBUG is compiled with xpediter.
Here is a sample JCL
//***************************************************************
//* Compile the program for Xpediter *
//***************************************************************
//COMPILE EXEC PGM=CWPCMAIN,REGION=4M,COND=(8,LT),
// PARM=('APOST,MAP,XREF,LIST')
//STEPLIB DD DISP=SHR,DSN=COMPUWARE.CSS.LOADLIB
// DD DISP=SHR,DSN=Cobol.compile.library
//SYSTERM DD SYSOUT=(*)
//SYSPRINT DD SYSOUT=(*)
//SYSPUNCH DD DUMMY
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT5 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT6 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSLIN DD UNIT=SYSDA,DISP=(NEW,PASS),
// SPACE=(CYL,(1,1)),DCB=(,BLKSIZE=400)
//SYSIN DD DISP=SHR,DSN=YOUR.cobol.source(pgmname)
//XOPTIONS DD DISP=SHR,DSN=XT.XT70B1.XOPTIONS
//CWPDDIO DD DISP=SHR,DSN=FLGFGR1.COBOL.DDIO
//CWPPRMO DD *
COBOL(OUTPUT(PRINT,DDIO))
PROCESSOR(OUTPUT(NOPRINT,NODDIO),TEXT(NONE))
LANGUAGE(VSCOBOL)
DDIO(OUTPUT(NOLIST,NOXREF,FIND,NODMAP,NOOFFSET,COMPRESS))
/*
//***************************************************************
//* Link edit the cobol program *
//***************************************************************
//LINK EXEC PGM=IEWL,REGION=1M,COND=(8,LE),
// PARM=('LIST,LET')
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DSN=*.COMPILE.SYSLIN,DISP=(SHR,PASS)
//SYSLIB DD DSN=Cobol.compile.library,DISP=SHR
//SYSLMOD DD DSN=Your.pgm.LOADLIB(pgmname),DISP=SHR
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//*
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论