FTP step if the RC is 3712 give it as 04
if it is 00 give it as 00
if it is other than anything show it as failed with the RC.
I have written JCL.. but is is giving SOC04
The system detected a protection exception (System Completion Code=0C4)
//TEST EXEC PGM=FTPRCODE,PARM='POSIX(OFF)/10.77.189.8 (EXIT
//STEPLIB DD DISP=SHR,DSN=xxx.LOADLIBB
//OUTPUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//INPUT DD *
01 FTP PIC X(8) VALUE 'FTP'.
01 CALLER-PARM PIC X(20).
PROCEDURE DIVISION USING CALLER-PARM.
CALL FTP USING CALLER-PARM.
IF RETURN-CODE IS ZERO THEN GOBACK.
IF ( RETURN-CODE NOT = 3712 ) THEN GOBACK.
MOVE 04 TO RETURN-CODE.