U4038 abend in PL1

[dheena]

Hi iam new to PL1 language. while executing a simple PL1 prog iam getting U4038 abend.below is the code.
MYPROC: PROC OPTIONS(MAIN) REORDER;

DCL EMP_ID CHAR(04);
DCL EMP_NAME CHAR(06);
DCL DEPT CHAR(03);
DCL SALARY FIXED BIN(15);

GET LIST (EMP_ID,EMP_NAME,DEPT,SALARY);
PUT SKIP LIST ('EMPLOYE DETAILS');
PUT SKIP LIST ('EMP-ID :', EMP_ID);
PUT SKIP LIST ('EMP-NAME :', EMP_NAME);
PUT SKIP LIST ('DEPT :', DEPT);
PUT SKIP LIST ('SALARY :', SALARY);
END MYPROC;

Following is the JCl i used to run.

//ND6438UT JOB (PUPS,XXX),'PL1 PROG',NOTIFY=&SYSUID
//S020 EXEC PGM=PROG
//STEPLIB DD DSN=CMN.SUPS.STGO.#001918.LOD,DISP=SHR
//SYSIN DD *
DNAD
DHEENA
ATT
20000
/*
//SYSOUT DD SYSOUT=
//SYSPRINT DD SYSOUT=*

please anyone help me put with this...

[NicC]

PLease - in future enclose your code in the code tags. These preserve spacing and makes the code appear as though it is a screenshot.

You have not posted the error message.

Your salary field has been defined as FIXED BIN but your inout is Zoned Decimal (PIC). Never the twain shall meet (without some go-between code).