i create vsam esds like that:
- Código: Selecionar tudo
//ESNAH01 JOB A123,'IBMUSER',CLASS=A,MSGCLASS=Y,NOTIFY=IBMUSER
//STEP01 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE NAHIL.ESDS.ESDS100
SET MAXCC=0
DEFINE CLUSTER( -
NAME(NAHIL.ESDS.ESDS100) -
VOL(Z6RES1) -
NONINDEXED -
SHR(2 3) -
CYL(9 9) -
) -
DATA( -
NAME(NAHIL.ESDS.ESDSD100) -
CISZ(8192) -
RECORDSIZE(80 80) -
FREESPACE(0 0))
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
when i wanna add record to my esds by my cobol pgm
- Código: Selecionar tudo
//ESNAH00R JOB ACTINFO1,'IBMUSER',CLASS=A,MSGCLASS=H,NOTIFY=IBMUSER
// MSGLEVEL=(1,1)
//STEP1 EXEC PGM=ESNAH100
//SYSOUT DD SYSOUT=*
//FSDSI80 DD *
01 - HELLO WORLD
02 - ENJOY THE TRIP
03 - GOOD BYE WORLD
/*
//FSDSO28 DD DSN=NAHIL.ESDS.ESDS100,DISP=MOD
//*
WHEN I SUBMIT i receive this mess:
- Código: Selecionar tudo
ESNAH001 ECHEC OUVERTURE FSDSI80
ESNAH001 File Status is: 0039
ESNAH001 ECHEC PROGRAM.
this is my FD in cobol pgm
- Código: Selecionar tudo
FILE-CONTROL.
SELECT FSDSI80-FILE ASSIGN TO AS-FSDSI80
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL
FILE STATUS IS FSDSI80-STATUS.
SELECT FSDSO28-FILE ASSIGN TO AS-FSDSO28
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL
FILE STATUS IS FSDSO28-STATUS.
data division.
file section.
FD FSDSI80-FILE
* LABEL RECORD STANDARD
* BLOCK CONTAINS 0
RECORD CONTAINS 80 CHARACTERS
DATA RECORD IS FSDSI80-REC.
01 FSDSI80-REC.
05 FSDSI80-DATA-01 PIC X(80).
FD FSDSO28-FILE
* BLOCK CONTAINS 0
RECORD CONTAINS 80 CHARACTERS
DATA RECORD IS FSDSI80-REC.
01 FSDSO28-REC.
05 FSDSO28-DATA-01 PIC X(80).
can you help me pls how can solve my error.
