ABEND U4088 IN cobol
By VINEETH.SG
REASONS
The job ran to completion , in both releases, with EXTSORT=OFF The Systems group had installed an old version of TAPESORT
Case: 70951035 Product: MF Release: 709 Primary OS: MVS Date: 02/04/09
Case information refers to the Product, Release, and OS for which this question was asked. The solution may apply to other Products, Releases, and Operating Systems.
Symptom:
Abend 4088 after upgrading SYNCSORT
PROGRAM
***************************** Top of Data ******************************
IDENTIFICATION DIVISION.
PROGRAM-ID. FILEA.
AUTHOR. SMRITHY.M.S.
INSTALLATION. ABC SCHOOL.
DATE-WRITTEN. 7-JUN-2011.
DATE-COMPILED. 7-JUN-2011.
SECURITY. HIGH.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT FILEIN ASSIGN TO FILEIN.
SELECT FILEOUT ASSIGN TO FILEOUT.
SELECT FILESORT ASSIGN TO FILESORT.
DATA DIVISION.
FILE SECTION.
FD FILEIN.
01 RECIN.
05 SLNO PIC X(2).
05 FILLER PIC X(1).
05 NAME PIC 9(10).
05 FILLER PIC X(1).
05 TMRK PIC 9(3).
05 FILLER PIC X(63).
FD FILEOUT.
01 RECOUT.
05 SLN PIC X(2).
05 FILLER PIC X(1).
05 NAM PIC 9(10).
05 FILLER PIC X(1).
05 TMR PIC 9(3).
05 FILLER PIC X(63).
SD FILESORT.
01 RECSORT.
05 SNO PIC X(2).
05 FILLER PIC X(1).
05 NME PIC 9(10).
05 FILLER PIC X(1).
05 MRK PIC 9(3).
05 FILLER PIC X(63).
WORKING-STORAGE SECTION.
PROCEDURE DIVISION.
SORT FILESORT ON ASCENDING KEY NME
USING FILEIN
GIVING FILEOUT.
STOP RUN.
************************* Bottom of Data **************************
execution JCL
//XXXXXXB1 JOB NOTIFY=&SYSUID,REGION=1M
//JOBLIB DD DSN=OZA030.BATCH11.LOADLIB1,DISP=SHR
//STEP1 EXEC PGM=SORT1
//FILEIN DD DSN=XXXXXX.BATCH.FILEIN,DISP=SHR
//FILEOUT DD DSN=XXXXXX.BATCH.FILEOUT3,DISP=SHR
//FILESORT DD DSN=&&SORT
//SYSOUT DD SYSOUT=*
//
**************************** Bottom of Data ********
ABENDED S000 U4088
u4088 abend in cobol sort
No Amazon products found
VINEETH.SG 11 months ago
when calling SORT from COBOL we'll need additional memory above and beyond your COBOL need.so add region in job card region=1M/2M