Hello,
Second question from an obvious EntireX newbie today:
SAG support asked me to provide a stublog trace. The support ticket states:
We need a client stublog trace. A stublog trace has the text 'EntireX Broker Stub Trace' on the first line of the trace. I do not see that in any of the traces you have supplied. To produce the trace you need to use stub BKIMBTSO. If you do not have BKIMBTSO linked to your Natural batch nucleus, add the following dynamic override in the batch job RCA=(BROKER),RCALIAS=(BROKER,BKIMBTSO).In the batch job, add the following to your JCL before executing the batch job:
//SAGTOK1 EXEC PGM=SAGTOKEN,PARM=(‘SET LOCAL,STUBLOG=3’) //STEPLIB DD DSN=your.exx.load,DISP=SHR
Your EntireX load library must be APF authorized. Add the following DD card to the JCL
//TRACE1 DD SYSOUT=*
Supply the output of TRACE1.
Question: how do I do this? Are these changes in the batch Natural nuke of the job where the call to the service is made, or is this in the Natural RPC Server (though if the latter I don’t know where this is used)? If this is for the batch job, can I add the step mentioned above running SAGTOKEN in my batch Natural proc so the JCL of the job itself doesn’t need to be modified?
Current:
//NATCA02D PROC NATPGM=NATBATED, NATURAL PROGRAM NAME
// NATREG=3M, NATURAL,DDM,OS SORT
// SYSDA=SYSDA, TEMPORARY DISK ALLOCATION
// SRTLIB=‘SYS1.SORTLIB’, SORT LIBRARY NAME
// SRTSPCE=5, SORT WORK SPACE
// NINDX=‘VSTA.DEV1.NATURAL’, NATURAL
// AINDX=‘VSTA.DEV1.ADABAS’, ADABAS
// SYSOUT=‘‘, SYSOUT CLASS
// SYSUDMP=’’, SYSUDUMP DATA SET
// PRM=(‘IM=D,AUTO=ON,MT=0’) NATURAL PARMS
//CANSTEP EXEC PGM=&NATPGM,REGION=&NATREG,PARM=&PRM
//STEPLIB DD DSN=&NINDX…LOAD,DISP=SHR,DCB=BLKSIZE=32760
// DD DSN=&AINDX…LOAD,DISP=SHR
// DD DSN=SYSP.VERTEX.V401.LOADLIB.MAINT,DISP=SHR
// DD DSN=VSTA.USER.LOAD,DISP=SHR
Proposed:
//NATCA02D PROC NATPGM=NATBATED, NATURAL PROGRAM NAME
// NATREG=3M, NATURAL,DDM,OS SORT
// SYSDA=SYSDA, TEMPORARY DISK ALLOCATION
// SRTLIB=‘SYS1.SORTLIB’, SORT LIBRARY NAME
// SRTSPCE=5, SORT WORK SPACE
// NINDX=‘VSTA.DEV1.NATURAL’, NATURAL
// AINDX=‘VSTA.DEV1.ADABAS’, ADABAS
// SYSOUT=‘‘, SYSOUT CLASS
// SYSUDMP=’’, SYSUDUMP DATA SET
// PRM=(‘IM=D,AUTO=ON,MT=0,RCA=(BROKER),RCALIAS=(BROKER,BKIMBTSO)’)
//SAGTOK1 EXEC PGM=SAGTOKEN,PARM=(‘SET LOCAL,STUBLOG=3’)
//STEPLIB DD DSN=your.exx.load,DISP=SHR
//*
//CANSTEP EXEC PGM=&NATPGM,REGION=&NATREG,PARM=&PRM
//STEPLIB DD DSN=&NINDX…LOAD,DISP=SHR,DCB=BLKSIZE=32760
// DD DSN=&AINDX…LOAD,DISP=SHR
// DD DSN=SYSP.VERTEX.V401.LOADLIB.MAINT,DISP=SHR
// DD DSN=VSTA.USER.LOAD,DISP=SHR
…
//TRACE1 DD SYSOUT=*
Please advise. I know nothing about this at all.
Thanks,
Brian