U4038 abend in PL1

Post your questions on PL/I.

Moderator: Moderator Group

Post Reply
dheena
Member
Posts: 1
Joined: Fri Jan 04, 2013 9:59 am

U4038 abend in PL1

Post by dheena » Fri Jan 04, 2013 10:02 am

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
Active Member
Posts: 650
Joined: Sun Jul 24, 2011 5:27 pm
Location: Down on the pig farm

Post by NicC » Fri Jan 04, 2013 3:00 pm

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).
Regards
Nic

Post Reply

FREE TUTORIALS

Tutorials
Free tutorials from mainframegurukul
  • JCL Tutorial
    Covers all important JCL concepts.
  • Cobol Tutorial
    This tutorials covers all Cobol Topics from STRING to COMP-3.
  • DB2 Tutorial
    DB2 Tutorial focuses on DB2 COBOL Programming.
  • SORT Tutorial
    This Tutorial covers all important aspects of DFSORT with examples
  • CICS Tutorial
    This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions



Other References
Mainframe Tools and others