//A540769Y JOB (CP00,KE50) 00010000
//*MAIN CLASS=CMNA 00020000
// SET V0=0 00030000
// SET V1=1 00040000
// SET VQ=0 00050000
// SET U=ABC 00060000
// SET U=&U.EF&U&U 00070000
//NULL EXEC PGM=IEFBR14,PARM=&U 00080000
// IF NULL.RC = &V0 THEN 00090000
//V0EQ0 EXEC PGM=IEFBR14 00100000
// SET VX=0 00110000
// ELSE 00120000
//V0NE0 EXEC PGM=IEFBR14 00130000
// SET VX=1 00140000
// ENDIF 00150000
// IF NULL.RC = &V1 THEN 00160000
//V1EQ0 EXEC PGM=IEFBR14 00170000
// ELSE 00180000
//V1NE0 EXEC PGM=IEFBR14 00190000
// ENDIF 00200000
// IF NULL.RC = &VQ THEN 00210000
//VQEQ0 EXEC PGM=IEFBR14 00220000
// SET VX=0 00230000
// ELSE 00240000
//VQNE0 EXEC PGM=IEFBR14 00250000
// SET VX=1 00260000
// ENDIF 00270000
// IF NULL.RC = &VX THEN 00280000
//VXEQ0 EXEC PGM=IEFBR14 00290000
// ELSE 00300000
//VXNE0 EXEC PGM=IEFBR14 00310000
// ENDIF 00320000
// SET VX=0 00330000
// IF NULL.RC = &VX THEN 00340000
//VYEQ0 EXEC PGM=IEFBR14 00350000
// ELSE 00360000
//VYNE0 EXEC PGM=IEFBR14 00370000
// ENDIF 00380000
// EXEC PGM=SY7060, 00390000
// PARM='TEST REPLAY FÜR A540769, DANKE' 00400000
//STEPLIB DD DISP=SHR,DSN=PCL.U0000.P0.RZ1AKT.PERM.@008.LLB 00410000