/TRACE SET ON TRAN
/SWITCH OLDS (pour avoir juste la trace qui nous intéresse)
Jouer le scénario à tracer
/SWITCH OLDS pour fermer le fichier log
/SET TRACE OFF TRAN
Chercher dans le job généré IMS81JCL le dsname associé à DFSLOGP (attention il doit être en DISP=(NEW,CATLG) dans la procédure IMS810.PROCLIB(ARCHJCL) et je l’ai mis par défaut à DELETE pour éviter d’avoir à gérer les fichiers archives de IMS)
Et remplacer dans SYSUT1 ci dessous
Puis passer le job suivant et chercher dans son sysout
//IMSERA10 JOB ACTINFO1,'IBMUSER',CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1),
// REGION=0M,NOTIFY=&SYSUID
// EXEC PGM=DFSERA10
//STEPLIB DD DSNAME=IMS810.SDFSRESL,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSNAME=IMS810.SLDSP.IVP1.D07270.T1310344.V02,
// DISP=(OLD,KEEP)
//SYSIN DD *
OPTION PRINT
END
