024600 EXEC CICS STARTBR 02460099
024700 FILE('CARSDD') 02470099
024800 RIDFLD(CARNO) 02480099
024810 RBA 02481099
024900 END-EXEC. 02490099
Problem COBOL - CICS Program gives ABEND AEIP - INVREQ
Re: Problem COBOL - CICS Program gives ABEND AEIP - INVREQ
by Robert Sample » Tue Jul 31, 2018 11:48 pm
Was this code generated on an EXEC CICS READ? EXEC CICS WRITE? EXEC CICS REWRITE? EXEC CICS DELETE? And what are the other EIB fields -- such as EISRESP2?
In other words, you have not provided nearly enough information for us to be able to help you.
In other words, you have not provided nearly enough information for us to be able to help you.
- Robert Sample
- Global moderator
- Posts: 3720
- Joined: Sat Dec 19, 2009 8:32 pm
- Location: Dubuque, Iowa, USA
- Has thanked: 1 time
- Been thanked: 279 times
Re: Problem COBOL - CICS Program gives ABEND AEIP - INVREQ
by rogerb » Wed Aug 01, 2018 12:30 am
Good afternoon.
First of all, I don't know if this is the right place for this topic or the COBOL is the more adequate place, so I apologize in advance if this is not the right place.
I've been offered the possibility of having access to a mainframe, only for learning purposes.
In the past I've created several COBOL - CICS programs.
Now, I'm creating the first program to read/write a ESDS VSAM dataset.
I created a ESDS VSAM data set.
I compiled the map with success (MAXCC=0).
After that I compiled the COBOL program with success (MAXCC=0).
When I go to the CICS region, I define the mapset, program, file and transaction.
Then I install the mapset, program, file and transaction.
When I write the transaction ('ECAR') the program executes.
Currently I'm testing the program by reading the ESDS empty, to see what is the file status code, to do something like this.
IF FS-VSAM-IS-EMPTY-ON-READ 02450399
024504 MOVE 'FILE IS EMPTY' TO WS-MESSAGE 02450499
024505 ELSE 02450599
024506 MOVE 'FILE NOT EMPTY' TO WS-MESSAGE (1:21) 02450699
024509 END-IF. 02450999
When I go to the option show all, it reaches the part of the STARTBR, startbrowse:
After the program shows, response INVREQ, and after that the program has ABEND AEIP.
I've seen and that abend corresponds to INVREQ.
But the strange thing is that when I look at when INVREQ happens, i read the following:
"Rewrite withou prior READ with UPDATE."
I was just reading, so my questions are why I have INVREQ in a read operation, and how to solve this problem ?
Thank you,
Roger
First of all, I don't know if this is the right place for this topic or the COBOL is the more adequate place, so I apologize in advance if this is not the right place.
I've been offered the possibility of having access to a mainframe, only for learning purposes.
In the past I've created several COBOL - CICS programs.
Now, I'm creating the first program to read/write a ESDS VSAM dataset.
I created a ESDS VSAM data set.
I compiled the map with success (MAXCC=0).
After that I compiled the COBOL program with success (MAXCC=0).
When I go to the CICS region, I define the mapset, program, file and transaction.
Then I install the mapset, program, file and transaction.
When I write the transaction ('ECAR') the program executes.
Currently I'm testing the program by reading the ESDS empty, to see what is the file status code, to do something like this.
IF FS-VSAM-IS-EMPTY-ON-READ 02450399
024504 MOVE 'FILE IS EMPTY' TO WS-MESSAGE 02450499
024505 ELSE 02450599
024506 MOVE 'FILE NOT EMPTY' TO WS-MESSAGE (1:21) 02450699
024509 END-IF. 02450999
When I go to the option show all, it reaches the part of the STARTBR, startbrowse:
After the program shows, response INVREQ, and after that the program has ABEND AEIP.
I've seen and that abend corresponds to INVREQ.
But the strange thing is that when I look at when INVREQ happens, i read the following:
"Rewrite withou prior READ with UPDATE."
I was just reading, so my questions are why I have INVREQ in a read operation, and how to solve this problem ?
Thank you,
Roger
Last edited by rogerb on Wed Aug 01, 2018 12:37 am, edited 1 time in total.
Re: Problem COBOL - CICS Program gives ABEND AEIP - INVREQ
by rogerb » Wed Aug 01, 2018 12:32 am
Good afternoon.
Below there is the MAP/Mapset and COBOL program
Map/Mapset
COBOL program
Below there is the MAP/Mapset and COBOL program
Map/Mapset
CARMAP DFHMSD TYPE=&SYSPARM,LANG=COBOL,TERM=3270,MODE=INOUT, X
TIOAPFX=YES,CTRL=FREEKB,STORAGE=AUTO,EXTATT=YES
CARMA DFHMDI SIZE=(24,80),LINE=1,COLUMN=1
DFHMDF POS=(3,1), X
ATTRB=PROT, X
INITIAL='OPTION:', X
LENGTH=7
DFHMDF POS=(5,1), X
ATTRB=PROT, X
INITIAL='DATA:', X
LENGTH=5
DFHMDF POS=(7,1), X
ATTRB=PROT, X
INITIAL='MESSAGE:', X
LENGTH=8
DFHMDF POS=(9,1), X
ATTRB=PROT, X
INITIAL='SALE DATE:', X
LENGTH=10
DFHMDF POS=(11,1), X
ATTRB=PROT, X
INITIAL='BRAND:', X
LENGTH=6
DFHMDF POS=(13,1), X
ATTRB=PROT, X
INITIAL='MODEL:', X
LENGTH=6
DFHMDF POS=(15,1), X
ATTRB=PROT, X
INITIAL='CAR PLATE:', X
LENGTH=10
DFHMDF POS=(17,1), X
ATTRB=PROT, X
INITIAL='CLIENT:', X
LENGTH=7
DFHMDF POS=(19,1), X
ATTRB=PROT, X
INITIAL='PHONE:', X
LENGTH=6
DFHMDF POS=(20,1), X
ATTRB=PROT, X
INITIAL='MADE IN:', X
LENGTH=8
DFHMDF POS=(21,1), X
ATTRB=PROT, X
INITIAL='MILEAGE:', X
LENGTH=8
DFHMDF POS=(22,1), X
ATTRB=PROT, X
INITIAL='PRICE:', X
LENGTH=6
CDAY DFHMDF POS=(1,20),INITIAL=' ', X
LENGTH=24,ATTRB=PROT
OPT DFHMDF POS=(3,10),INITIAL=' ', X
LENGTH=18,ATTRB=(UNPROT,IC),HILIGHT=UNDERLINE
DFHMDF POS=(3,29),INITIAL=' ', X
LENGTH=1,ATTRB=ASKIP
INFO DFHMDF POS=(5,10),INITIAL=' ',LENGTH=18, X
ATTRB=UNPROT,HILIGHT=UNDERLINE
DFHMDF POS=(5,29),INITIAL=' ', X
LENGTH=1,ATTRB=ASKIP
MSG DFHMDF POS=(7,10),INITIAL=' ', X
LENGTH=70,ATTRB=UNPROT,HILIGHT=UNDERLINE
DFHMDF POS=(7,81),INITIAL=' ', X
LENGTH=1,ATTRB=ASKIP
SALE DFHMDF POS=(9,12),INITIAL=' ',LENGTH=18, X
ATTRB=UNPROT,HILIGHT=UNDERLINE
DFHMDF POS=(9,31),INITIAL=' ', X
LENGTH=1,ATTRB=ASKIP
BRAND DFHMDF POS=(11,12),INITIAL=' ',LENGTH=18, X
ATTRB=UNPROT,HILIGHT=UNDERLINE
DFHMDF POS=(11,31),INITIAL=' ', X
LENGTH=1,ATTRB=ASKIP
MODEL DFHMDF POS=(13,12),INITIAL=' ',LENGTH=18, X
ATTRB=UNPROT,HILIGHT=UNDERLINE
DFHMDF POS=(13,31),INITIAL=' ', X
LENGTH=1,ATTRB=ASKIP
PLATE DFHMDF POS=(15,12),INITIAL=' ',LENGTH=18, X
ATTRB=UNPROT,HILIGHT=UNDERLINE
DFHMDF POS=(15,31),INITIAL=' ', X
LENGTH=1,ATTRB=ASKIP
CLIENT DFHMDF POS=(17,12),INITIAL=' ',LENGTH=18, X
ATTRB=UNPROT,HILIGHT=UNDERLINE
DFHMDF POS=(17,31),INITIAL=' ', X
LENGTH=1,ATTRB=ASKIP
PHONE DFHMDF POS=(19,12),INITIAL=' ',LENGTH=18, X
ATTRB=UNPROT,HILIGHT=UNDERLINE
DFHMDF POS=(19,31),INITIAL=' ', X
LENGTH=1,ATTRB=ASKIP
CREAT DFHMDF POS=(20,12),INITIAL=' ',LENGTH=18, X
ATTRB=UNPROT,HILIGHT=UNDERLINE
DFHMDF POS=(20,31),INITIAL=' ', X
LENGTH=1,ATTRB=ASKIP
MILES DFHMDF POS=(21,12),INITIAL=' ',LENGTH=18, X
ATTRB=UNPROT,HILIGHT=UNDERLINE
DFHMDF POS=(21,31),INITIAL=' ', X
LENGTH=1,ATTRB=ASKIP
PRICE DFHMDF POS=(22,12),INITIAL=' ',LENGTH=18, X
ATTRB=UNPROT,HILIGHT=UNDERLINE
DFHMDF POS=(22,31),INITIAL=' ', X
LENGTH=1,ATTRB=ASKIP
DFHMSD TYPE=FINAL
END
TIOAPFX=YES,CTRL=FREEKB,STORAGE=AUTO,EXTATT=YES
CARMA DFHMDI SIZE=(24,80),LINE=1,COLUMN=1
DFHMDF POS=(3,1), X
ATTRB=PROT, X
INITIAL='OPTION:', X
LENGTH=7
DFHMDF POS=(5,1), X
ATTRB=PROT, X
INITIAL='DATA:', X
LENGTH=5
DFHMDF POS=(7,1), X
ATTRB=PROT, X
INITIAL='MESSAGE:', X
LENGTH=8
DFHMDF POS=(9,1), X
ATTRB=PROT, X
INITIAL='SALE DATE:', X
LENGTH=10
DFHMDF POS=(11,1), X
ATTRB=PROT, X
INITIAL='BRAND:', X
LENGTH=6
DFHMDF POS=(13,1), X
ATTRB=PROT, X
INITIAL='MODEL:', X
LENGTH=6
DFHMDF POS=(15,1), X
ATTRB=PROT, X
INITIAL='CAR PLATE:', X
LENGTH=10
DFHMDF POS=(17,1), X
ATTRB=PROT, X
INITIAL='CLIENT:', X
LENGTH=7
DFHMDF POS=(19,1), X
ATTRB=PROT, X
INITIAL='PHONE:', X
LENGTH=6
DFHMDF POS=(20,1), X
ATTRB=PROT, X
INITIAL='MADE IN:', X
LENGTH=8
DFHMDF POS=(21,1), X
ATTRB=PROT, X
INITIAL='MILEAGE:', X
LENGTH=8
DFHMDF POS=(22,1), X
ATTRB=PROT, X
INITIAL='PRICE:', X
LENGTH=6
CDAY DFHMDF POS=(1,20),INITIAL=' ', X
LENGTH=24,ATTRB=PROT
OPT DFHMDF POS=(3,10),INITIAL=' ', X
LENGTH=18,ATTRB=(UNPROT,IC),HILIGHT=UNDERLINE
DFHMDF POS=(3,29),INITIAL=' ', X
LENGTH=1,ATTRB=ASKIP
INFO DFHMDF POS=(5,10),INITIAL=' ',LENGTH=18, X
ATTRB=UNPROT,HILIGHT=UNDERLINE
DFHMDF POS=(5,29),INITIAL=' ', X
LENGTH=1,ATTRB=ASKIP
MSG DFHMDF POS=(7,10),INITIAL=' ', X
LENGTH=70,ATTRB=UNPROT,HILIGHT=UNDERLINE
DFHMDF POS=(7,81),INITIAL=' ', X
LENGTH=1,ATTRB=ASKIP
SALE DFHMDF POS=(9,12),INITIAL=' ',LENGTH=18, X
ATTRB=UNPROT,HILIGHT=UNDERLINE
DFHMDF POS=(9,31),INITIAL=' ', X
LENGTH=1,ATTRB=ASKIP
BRAND DFHMDF POS=(11,12),INITIAL=' ',LENGTH=18, X
ATTRB=UNPROT,HILIGHT=UNDERLINE
DFHMDF POS=(11,31),INITIAL=' ', X
LENGTH=1,ATTRB=ASKIP
MODEL DFHMDF POS=(13,12),INITIAL=' ',LENGTH=18, X
ATTRB=UNPROT,HILIGHT=UNDERLINE
DFHMDF POS=(13,31),INITIAL=' ', X
LENGTH=1,ATTRB=ASKIP
PLATE DFHMDF POS=(15,12),INITIAL=' ',LENGTH=18, X
ATTRB=UNPROT,HILIGHT=UNDERLINE
DFHMDF POS=(15,31),INITIAL=' ', X
LENGTH=1,ATTRB=ASKIP
CLIENT DFHMDF POS=(17,12),INITIAL=' ',LENGTH=18, X
ATTRB=UNPROT,HILIGHT=UNDERLINE
DFHMDF POS=(17,31),INITIAL=' ', X
LENGTH=1,ATTRB=ASKIP
PHONE DFHMDF POS=(19,12),INITIAL=' ',LENGTH=18, X
ATTRB=UNPROT,HILIGHT=UNDERLINE
DFHMDF POS=(19,31),INITIAL=' ', X
LENGTH=1,ATTRB=ASKIP
CREAT DFHMDF POS=(20,12),INITIAL=' ',LENGTH=18, X
ATTRB=UNPROT,HILIGHT=UNDERLINE
DFHMDF POS=(20,31),INITIAL=' ', X
LENGTH=1,ATTRB=ASKIP
MILES DFHMDF POS=(21,12),INITIAL=' ',LENGTH=18, X
ATTRB=UNPROT,HILIGHT=UNDERLINE
DFHMDF POS=(21,31),INITIAL=' ', X
LENGTH=1,ATTRB=ASKIP
PRICE DFHMDF POS=(22,12),INITIAL=' ',LENGTH=18, X
ATTRB=UNPROT,HILIGHT=UNDERLINE
DFHMDF POS=(22,31),INITIAL=' ', X
LENGTH=1,ATTRB=ASKIP
DFHMSD TYPE=FINAL
END
COBOL program
000100 IDENTIFICATION DIVISION. 00010001
000200 PROGRAM-ID. CARPRG. 00020099
000300 AUTHOR. RMQB. 00030002
000400* --------------------------------------------- 00040002
000500* OBJECTIVE: WRITE AND READ - SEQUENTIAL FILE 00050099
000600* CARS INFORMATION 00060099
000700* --------------------------------------------- 00070002
001700 DATA DIVISION. 00170002
003400 WORKING-STORAGE SECTION. 00340002
003410 01 REGISTO. 00341099
003420 05 CARNO PIC 9(3). 00342099
003430 05 DATESOLD PIC X(10). 00343099
003440 05 FILLER PIC X(01). 00344099
003450 05 CARBRAND PIC X(10). 00345099
003460 05 CARMODEL PIC X(10). 00346099
003470 05 REGISTRATION PIC X(09). 00347099
003480 05 CLIENTNAME PIC X(10). 00348099
003490 05 CONTACT PIC 9(09). 00349099
003491 05 FILLER PIC X(01). 00349199
003492 05 PRODUCTIONYEAR PIC 9(04). 00349299
003493 05 FILLER PIC X(01). 00349399
003494 05 MILEAGE PIC 9(06). 00349499
003495 05 FILLER PIC X(01). 00349599
003496 05 CARPRICE PIC 9(05). 00349699
003500 01 FS-CAR PIC X(02) VALUE SPACES. 00350099
003600 88 FS-CAR-OK VALUE '00'. 00360099
003700 88 FS-CAR-EOF VALUE '10'. 00370099
003800 01 WS-MESSAGE PIC X(70). 00380099
003900 01 WS-COMMAREA PIC X(10) VALUE SPACES. 00390094
004000 01 OPTION-IN. 00400099
004100 05 OPTION PIC X(18). 00410099
004200 01 FILEDATA. 00420099
004300 05 DATA-WRITE PIC X(18). 00430099
004400 05 DATA-READ PIC X(18). 00440099
004500 01 WS-ABSTIME PIC S9(15) COMP-3. 00450099
004600 01 WS-DATE PIC X(10). 00460099
004700 01 WS-DAYWEEK PIC S9(8) USAGE BINARY. 00470099
004800 01 WS-NAMEDAY PIC X(09). 00480099
005700 01 COUNTERS. 00570099
005800 05 READ-COUNT PIC 9(2). 00580099
005810 05 CAR-COUNT PIC 9(3). 00581099
005900 01 WS-LEN PIC S9(4) COMP. 00590099
005901 01 WS-KEY-LEN PIC S9(4) COMP. 00590199
005910 01 WS-STD-REC-KEY PIC 9(3). 00591099
005920 01 CH1 PIC X(01) VALUE 'S'. 00592099
005930 01 CH2 PIC X(01) VALUE 'S'. 00593099
005940 01 CH3 PIC X(01) VALUE 'S'. 00594099
006000 COPY CARMAP. 00600099
006100 LINKAGE SECTION. 00610036
006200 01 DFHCOMMAREA PIC X(10). 00620036
006300* TRANS(ECAR) MAPSET(CARMAP) GROUP(CARPRG) 00630099
006400*MAP FIELDS OPT INFO MSG SALE BRAND MODEL PLATE CLIENT 00640099
006410*CONTINUED PHONE CREAT (CREATION DATE) MILES PRICE 00641099
006500 PROCEDURE DIVISION. 00650002
006600 000-MAIN. 00660099
006700* MOVE DFHCOMMAREA TO WS-COMMAREA. 00670099
006800 IF EIBCALEN = 0 THEN 00680099
006810 MOVE DFHCOMMAREA TO WS-COMMAREA 00681099
006900 PERFORM 010-PREPARE 00690099
007000 MOVE 'FIRST' TO WS-COMMAREA 00700099
007010 MOVE SPACES TO REGISTO 00701099
007020 INITIALIZE REGISTO 00702099
007100 INITIALIZE FS-CAR READ-COUNT 00710099
007200 INITIALIZE WS-LEN WS-STD-REC-KEY 00720099
007300 MOVE 1 TO CAR-COUNT 00730099
007600 END-IF. 00760099
007700* FILLER/SEPARATOR 00770099
007800 IF EIBCALEN > 0 THEN 00780099
007900 PERFORM 010-PREPARE 00790099
008000 END-IF. 00800099
009000 PERFORM 020-CHOICE. 00900099
009200 EXEC CICS 00920099
009300 RETURN 00930099
009400 END-EXEC. 00940099
009500 GOBACK. 00950099
009600 010-PREPARE. 00960099
009700 MOVE LOW-VALUES TO CARMAI, CARMAO. 00970099
009800 MOVE "PLAYER 1: INSERT NAMES IN THE NAME FIELD" TO MSGO. 00980099
009900 EXEC CICS 00990099
010000 ASKTIME 01000099
010100 ABSTIME(WS-ABSTIME) 01010099
010200 END-EXEC. 01020099
010300 EXEC CICS 01030099
010400 FORMATTIME 01040099
010500 ABSTIME(WS-ABSTIME) 01050099
010600 DDMMYYYY(WS-DATE) 01060099
010700 DATESEP('/') 01070099
010800 END-EXEC. 01080099
010900 EXEC CICS 01090099
011000 FORMATTIME 01100099
011100 ABSTIME(WS-ABSTIME) 01110099
011200 DAYOFWEEK(WS-DAYWEEK) 01120099
011300 END-EXEC. 01130099
011400 EVALUATE WS-DAYWEEK 01140099
011500 WHEN 0 01150099
011600 MOVE "SUNDAY" TO WS-NAMEDAY 01160099
011700 WHEN 1 01170099
011800 MOVE "MONDAY" TO WS-NAMEDAY 01180099
011900 WHEN 2 01190099
012000 MOVE "TUESDAY" TO WS-NAMEDAY 01200099
012100 WHEN 3 01210099
012200 MOVE "WEDNESDAY" TO WS-NAMEDAY 01220099
012300 WHEN 4 01230099
012400 MOVE "THURSDAY" TO WS-NAMEDAY 01240099
012500 WHEN 5 01250099
012600 MOVE "FRIDAY" TO WS-NAMEDAY 01260099
012700 WHEN 6 01270099
012800 MOVE "SATURDAY" TO WS-NAMEDAY 01280099
012900 END-EVALUATE. 01290099
013000 MOVE WS-NAMEDAY TO WS-MESSAGE (1:10). 01300099
013100 MOVE ', ' TO WS-MESSAGE (11:3). 01310099
013200 MOVE WS-DATE TO WS-MESSAGE (14:10). 01320099
013300 MOVE WS-MESSAGE TO CDAYO. 01330099
013500* END-IF. 01350099
013600 020-CHOICE. 01360099
013700* MOVE YI TO YOUT. 01370099
013701 MOVE LOW-VALUES TO WS-MESSAGE. 01370199
013702 MOVE LOW-VALUES TO CARMAI, CARMAO. 01370299
013710 IF FS-CAR-OK 01371099
013720 MOVE 'FILE OPENED OK' TO WS-MESSAGE 01372099
013730 ELSE 01373099
013740 MOVE 'FILE NOT OPENED ERROR' TO WS-MESSAGE (1:21) 01374099
013741 MOVE ': ' TO WS-MESSAGE (22:2) 01374199
013742 MOVE FS-CAR TO WS-MESSAGE (24:2) 01374299
013750 END-IF. 01375099
013751 MOVE WS-MESSAGE TO MSGO. 01375199
013760 PERFORM 030-SEND-MAP. 01376099
013800 PERFORM UNTIL CH1 = 'N' 01380099
013900 MOVE LOW-VALUES TO CARMAI, CARMAO 01390099
014000 MOVE SPACES TO CDAYI 01400099
014100 MOVE SPACES TO CDAYO 01410099
014200* MOVE 0 TO WCOUNTDUPL. 01420099
014300 MOVE "OPTIONS| 0: EXIT/1: NEW RECORD/2: SHOW ALL" TO MSGO 01430099
014400 MOVE WS-NAMEDAY TO WS-MESSAGE (1:10) 01440099
014500 MOVE ', ' TO WS-MESSAGE (11:3) 01450099
014600 MOVE WS-DATE TO WS-MESSAGE (14:10) 01460099
014700 MOVE WS-MESSAGE TO CDAYO 01470099
014800 PERFORM 030-SEND-MAP 01480099
014900* EXEC CICS 01490099
015000* SEND MAP('NAMEMA') MAPSET('NAMEMAP') 01500099
015100* ERASE 01510099
015200* END-EXEC 01520099
015300 PERFORM 040-RECEIVE-MAP 01530099
015400* EXEC CICS 01540099
015500* RECEIVE MAP('NAMEMA') MAPSET('NAMEMAP') 01550099
015600* ASIS 01560099
015700* END-EXEC 01570099
015800 MOVE OPTI TO OPTION 01580099
015900 EVALUATE OPTION 01590099
016000 WHEN 1 01600099
016100 PERFORM 050-ADD-RECORD 01610099
016200 WHEN 2 01620099
016300 PERFORM 060-SHOW-RECORDS 01630099
016400 WHEN 0 01640099
016500 MOVE 'N' TO CH1 01650099
016600 END-EVALUATE 01660099
016610 END-PERFORM. 01661099
016700 030-SEND-MAP. 01670099
016800 EXEC CICS 01680099
016900 SEND MAP('CARMA') MAPSET('CARMAP') 01690099
017000 ERASE 01700099
017100 END-EXEC. 01710099
017200 040-RECEIVE-MAP. 01720099
017300 EXEC CICS 01730099
017400 RECEIVE MAP('CARMA') MAPSET('CARMAP') 01740099
017500 ASIS 01750099
017600 END-EXEC. 01760099
017700 050-ADD-RECORD. 01770099
017800 MOVE LOW-VALUES TO CARMAI, CARMAO. 01780099
017900 MOVE WS-NAMEDAY TO WS-MESSAGE (1:10). 01790099
018000 MOVE ', ' TO WS-MESSAGE (11:3). 01800099
018100 MOVE WS-DATE TO WS-MESSAGE (14:10). 01810099
018200 MOVE WS-MESSAGE TO CDAYO. 01820099
018210 MOVE CAR-COUNT TO CARNO. 01821099
019600 MOVE LOW-VALUES TO CARMAI, CARMAO. 01960099
019610 MOVE -1 TO INFOL. 01961099
019700 MOVE "WRITE THE DATE OF SALE (DD-MM-YYYY) IN DATA" TO MSGO. 01970099
019800 PERFORM 030-SEND-MAP. 01980099
019900 PERFORM 040-RECEIVE-MAP. 01990099
020000 MOVE INFOI TO DATESOLD. 02000099
020100 MOVE LOW-VALUES TO CARMAI, CARMAO. 02010099
020200 MOVE "WRITE THE CAR BRAND IN THE DATA FIELD" TO MSGO. 02020099
020300 PERFORM 030-SEND-MAP. 02030099
020400 PERFORM 040-RECEIVE-MAP. 02040099
020500 MOVE INFOI TO CARBRAND. 02050099
020600 MOVE LOW-VALUES TO CARMAI, CARMAO. 02060099
020700 MOVE "WRITE THE CAR MODEL IN THE DATA FIELD" TO MSGO. 02070099
020800 PERFORM 030-SEND-MAP. 02080099
020900 PERFORM 040-RECEIVE-MAP. 02090099
021000 MOVE INFOI TO CARMODEL. 02100099
021100 MOVE LOW-VALUES TO CARMAI, CARMAO. 02110099
021200 MOVE "WRITE THE LICENSE PLATE IN DATA FIELD" TO MSGO. 02120099
021300 PERFORM 030-SEND-MAP. 02130099
021400 PERFORM 040-RECEIVE-MAP. 02140099
021500 MOVE INFOI TO REGISTRATION. 02150099
021600 MOVE LOW-VALUES TO CARMAI, CARMAO. 02160099
021700 MOVE "WRITE THE NAME OF THE CLIENT IN DATA FIELD" TO MSGO. 02170099
021800 PERFORM 030-SEND-MAP. 02180099
021900 PERFORM 040-RECEIVE-MAP. 02190099
022000 MOVE INFOI TO CLIENTNAME. 02200099
022010 MOVE LOW-VALUES TO CARMAI, CARMAO. 02201099
022100 MOVE "WRITE THE PHONE OF CLIENT IN THE DATA FIELD" TO MSGO. 02210099
022200 PERFORM 030-SEND-MAP. 02220099
022300 PERFORM 040-RECEIVE-MAP. 02230099
022400 MOVE INFOI TO CONTACT. 02240099
022410 MOVE LOW-VALUES TO CARMAI, CARMAO. 02241099
022500 MOVE "WRITE WHICH YEAR THE CAR WAS MADE DATA FIELD" TO MSGO. 02250099
022600 PERFORM 030-SEND-MAP. 02260099
022700 PERFORM 040-RECEIVE-MAP. 02270099
022800 MOVE INFOI TO PRODUCTIONYEAR. 02280099
022810 MOVE LOW-VALUES TO CARMAI, CARMAO. 02281099
022900 MOVE "WRITE THE MILEAGE IN THE DATA FIELD" TO MSGO. 02290099
023000 PERFORM 030-SEND-MAP. 02300099
023100 PERFORM 040-RECEIVE-MAP. 02310099
023200 MOVE INFOI TO MILEAGE. 02320099
023210 MOVE LOW-VALUES TO CARMAI, CARMAO. 02321099
023300 MOVE "WRITE THE PRICE OF THE CAR IN DATA FIELD" TO MSGO. 02330099
023400 PERFORM 030-SEND-MAP. 02340099
023500 PERFORM 040-RECEIVE-MAP. 02350099
023600 MOVE INFOI TO CARPRICE. 02360099
023700 EXEC CICS WRITE 02370099
023800 FILE('CARSDD') 02380099
023900 FROM(REGISTO) 02390099
024000 LENGTH(WS-LEN) 02400099
024010 RIDFLD(CARNO) 02401099
024100 RBA 02410099
024200 END-EXEC. 02420099
024210 ADD 1 TO CAR-COUNT. 02421099
024300* CLOSE CAR. 02430099
024400 060-SHOW-RECORDS. 02440099
024500* OPEN INPUT CAR 02450099
024501 MOVE LOW-VALUES TO WS-MESSAGE. 02450199
024502 MOVE LOW-VALUES TO CARMAI, CARMAO. 02450299
024503 IF FS-CAR-OK 02450399
024504 MOVE 'FILE OPENED OK' TO WS-MESSAGE 02450499
024505 ELSE 02450599
024506 MOVE 'FILE NOT OPENED ERROR' TO WS-MESSAGE (1:21) 02450699
024507 MOVE ': ' TO WS-MESSAGE (22:2) 02450799
024508 MOVE FS-CAR TO WS-MESSAGE (24:2) 02450899
024509 END-IF. 02450999
024510 MOVE WS-MESSAGE TO MSGO. 02451099
024511 PERFORM 030-SEND-MAP. 02451199
024512 MOVE WS-LEN TO WS-KEY-LEN. 02451299
024520 MOVE 0 TO CARNO. 02452099
024600 EXEC CICS STARTBR 02460099
024700 FILE('CARSDD') 02470099
024800 RIDFLD(CARNO) 02480099
024810 RBA 02481099
024900 END-EXEC. 02490099
024910 MOVE LOW-VALUES TO WS-MESSAGE. 02491099
024920 MOVE LOW-VALUES TO CARMAI, CARMAO. 02492099
024930 IF FS-CAR-OK 02493099
024940 MOVE 'FILE OPENED OK' TO WS-MESSAGE 02494099
024950 ELSE 02495099
024960 MOVE 'FILE NOT OPENED ERROR' TO WS-MESSAGE (1:21) 02496099
024970 MOVE ': ' TO WS-MESSAGE (22:2) 02497099
024980 MOVE FS-CAR TO WS-MESSAGE (24:2) 02498099
024990 END-IF. 02499099
024991 MOVE WS-MESSAGE TO MSGO. 02499199
024992 PERFORM 030-SEND-MAP. 02499299
025000 PERFORM UNTIL FS-CAR-EOF 02500099
025100 EXEC CICS READNEXT 02510099
025200 FILE('CARSDD') 02520099
025300 INTO(REGISTO) 02530099
025310 LENGTH(WS-LEN) 02531099
025320 RIDFLD(CARNO) 02532099
025330 RBA 02533099
025400 END-EXEC 02540099
026000 ADD 1 TO READ-COUNT 02600099
026001 MOVE LOW-VALUES TO CARMAI, CARMAO 02600199
026002 MOVE WS-NAMEDAY TO WS-MESSAGE (1:10) 02600299
026003 MOVE ', ' TO WS-MESSAGE (11:3) 02600399
026004 MOVE WS-DATE TO WS-MESSAGE (14:10) 02600499
026005 MOVE WS-MESSAGE TO CDAYO 02600599
026010 MOVE 'READING RECORDS IN FILE' TO MSGO 02601099
026100 MOVE DATESOLD TO SALEO 02610099
026200 MOVE CARBRAND TO BRANDO 02620099
026500 MOVE CARMODEL TO MODELO 02650099
026600 MOVE REGISTRATION TO PLATEO 02660099
026900 MOVE CLIENTNAME TO CLIENTO 02690099
027000 MOVE CONTACT TO PHONEO 02700099
027300 MOVE PRODUCTIONYEAR TO CREATO 02730099
027400 MOVE MILEAGE TO MILESO 02740099
027700 MOVE CARPRICE TO PRICEO 02770099
027800 PERFORM 030-SEND-MAP 02780099
027900 END-PERFORM. 02790099
028000* CLOSE CAR. 02800099
000200 PROGRAM-ID. CARPRG. 00020099
000300 AUTHOR. RMQB. 00030002
000400* --------------------------------------------- 00040002
000500* OBJECTIVE: WRITE AND READ - SEQUENTIAL FILE 00050099
000600* CARS INFORMATION 00060099
000700* --------------------------------------------- 00070002
001700 DATA DIVISION. 00170002
003400 WORKING-STORAGE SECTION. 00340002
003410 01 REGISTO. 00341099
003420 05 CARNO PIC 9(3). 00342099
003430 05 DATESOLD PIC X(10). 00343099
003440 05 FILLER PIC X(01). 00344099
003450 05 CARBRAND PIC X(10). 00345099
003460 05 CARMODEL PIC X(10). 00346099
003470 05 REGISTRATION PIC X(09). 00347099
003480 05 CLIENTNAME PIC X(10). 00348099
003490 05 CONTACT PIC 9(09). 00349099
003491 05 FILLER PIC X(01). 00349199
003492 05 PRODUCTIONYEAR PIC 9(04). 00349299
003493 05 FILLER PIC X(01). 00349399
003494 05 MILEAGE PIC 9(06). 00349499
003495 05 FILLER PIC X(01). 00349599
003496 05 CARPRICE PIC 9(05). 00349699
003500 01 FS-CAR PIC X(02) VALUE SPACES. 00350099
003600 88 FS-CAR-OK VALUE '00'. 00360099
003700 88 FS-CAR-EOF VALUE '10'. 00370099
003800 01 WS-MESSAGE PIC X(70). 00380099
003900 01 WS-COMMAREA PIC X(10) VALUE SPACES. 00390094
004000 01 OPTION-IN. 00400099
004100 05 OPTION PIC X(18). 00410099
004200 01 FILEDATA. 00420099
004300 05 DATA-WRITE PIC X(18). 00430099
004400 05 DATA-READ PIC X(18). 00440099
004500 01 WS-ABSTIME PIC S9(15) COMP-3. 00450099
004600 01 WS-DATE PIC X(10). 00460099
004700 01 WS-DAYWEEK PIC S9(8) USAGE BINARY. 00470099
004800 01 WS-NAMEDAY PIC X(09). 00480099
005700 01 COUNTERS. 00570099
005800 05 READ-COUNT PIC 9(2). 00580099
005810 05 CAR-COUNT PIC 9(3). 00581099
005900 01 WS-LEN PIC S9(4) COMP. 00590099
005901 01 WS-KEY-LEN PIC S9(4) COMP. 00590199
005910 01 WS-STD-REC-KEY PIC 9(3). 00591099
005920 01 CH1 PIC X(01) VALUE 'S'. 00592099
005930 01 CH2 PIC X(01) VALUE 'S'. 00593099
005940 01 CH3 PIC X(01) VALUE 'S'. 00594099
006000 COPY CARMAP. 00600099
006100 LINKAGE SECTION. 00610036
006200 01 DFHCOMMAREA PIC X(10). 00620036
006300* TRANS(ECAR) MAPSET(CARMAP) GROUP(CARPRG) 00630099
006400*MAP FIELDS OPT INFO MSG SALE BRAND MODEL PLATE CLIENT 00640099
006410*CONTINUED PHONE CREAT (CREATION DATE) MILES PRICE 00641099
006500 PROCEDURE DIVISION. 00650002
006600 000-MAIN. 00660099
006700* MOVE DFHCOMMAREA TO WS-COMMAREA. 00670099
006800 IF EIBCALEN = 0 THEN 00680099
006810 MOVE DFHCOMMAREA TO WS-COMMAREA 00681099
006900 PERFORM 010-PREPARE 00690099
007000 MOVE 'FIRST' TO WS-COMMAREA 00700099
007010 MOVE SPACES TO REGISTO 00701099
007020 INITIALIZE REGISTO 00702099
007100 INITIALIZE FS-CAR READ-COUNT 00710099
007200 INITIALIZE WS-LEN WS-STD-REC-KEY 00720099
007300 MOVE 1 TO CAR-COUNT 00730099
007600 END-IF. 00760099
007700* FILLER/SEPARATOR 00770099
007800 IF EIBCALEN > 0 THEN 00780099
007900 PERFORM 010-PREPARE 00790099
008000 END-IF. 00800099
009000 PERFORM 020-CHOICE. 00900099
009200 EXEC CICS 00920099
009300 RETURN 00930099
009400 END-EXEC. 00940099
009500 GOBACK. 00950099
009600 010-PREPARE. 00960099
009700 MOVE LOW-VALUES TO CARMAI, CARMAO. 00970099
009800 MOVE "PLAYER 1: INSERT NAMES IN THE NAME FIELD" TO MSGO. 00980099
009900 EXEC CICS 00990099
010000 ASKTIME 01000099
010100 ABSTIME(WS-ABSTIME) 01010099
010200 END-EXEC. 01020099
010300 EXEC CICS 01030099
010400 FORMATTIME 01040099
010500 ABSTIME(WS-ABSTIME) 01050099
010600 DDMMYYYY(WS-DATE) 01060099
010700 DATESEP('/') 01070099
010800 END-EXEC. 01080099
010900 EXEC CICS 01090099
011000 FORMATTIME 01100099
011100 ABSTIME(WS-ABSTIME) 01110099
011200 DAYOFWEEK(WS-DAYWEEK) 01120099
011300 END-EXEC. 01130099
011400 EVALUATE WS-DAYWEEK 01140099
011500 WHEN 0 01150099
011600 MOVE "SUNDAY" TO WS-NAMEDAY 01160099
011700 WHEN 1 01170099
011800 MOVE "MONDAY" TO WS-NAMEDAY 01180099
011900 WHEN 2 01190099
012000 MOVE "TUESDAY" TO WS-NAMEDAY 01200099
012100 WHEN 3 01210099
012200 MOVE "WEDNESDAY" TO WS-NAMEDAY 01220099
012300 WHEN 4 01230099
012400 MOVE "THURSDAY" TO WS-NAMEDAY 01240099
012500 WHEN 5 01250099
012600 MOVE "FRIDAY" TO WS-NAMEDAY 01260099
012700 WHEN 6 01270099
012800 MOVE "SATURDAY" TO WS-NAMEDAY 01280099
012900 END-EVALUATE. 01290099
013000 MOVE WS-NAMEDAY TO WS-MESSAGE (1:10). 01300099
013100 MOVE ', ' TO WS-MESSAGE (11:3). 01310099
013200 MOVE WS-DATE TO WS-MESSAGE (14:10). 01320099
013300 MOVE WS-MESSAGE TO CDAYO. 01330099
013500* END-IF. 01350099
013600 020-CHOICE. 01360099
013700* MOVE YI TO YOUT. 01370099
013701 MOVE LOW-VALUES TO WS-MESSAGE. 01370199
013702 MOVE LOW-VALUES TO CARMAI, CARMAO. 01370299
013710 IF FS-CAR-OK 01371099
013720 MOVE 'FILE OPENED OK' TO WS-MESSAGE 01372099
013730 ELSE 01373099
013740 MOVE 'FILE NOT OPENED ERROR' TO WS-MESSAGE (1:21) 01374099
013741 MOVE ': ' TO WS-MESSAGE (22:2) 01374199
013742 MOVE FS-CAR TO WS-MESSAGE (24:2) 01374299
013750 END-IF. 01375099
013751 MOVE WS-MESSAGE TO MSGO. 01375199
013760 PERFORM 030-SEND-MAP. 01376099
013800 PERFORM UNTIL CH1 = 'N' 01380099
013900 MOVE LOW-VALUES TO CARMAI, CARMAO 01390099
014000 MOVE SPACES TO CDAYI 01400099
014100 MOVE SPACES TO CDAYO 01410099
014200* MOVE 0 TO WCOUNTDUPL. 01420099
014300 MOVE "OPTIONS| 0: EXIT/1: NEW RECORD/2: SHOW ALL" TO MSGO 01430099
014400 MOVE WS-NAMEDAY TO WS-MESSAGE (1:10) 01440099
014500 MOVE ', ' TO WS-MESSAGE (11:3) 01450099
014600 MOVE WS-DATE TO WS-MESSAGE (14:10) 01460099
014700 MOVE WS-MESSAGE TO CDAYO 01470099
014800 PERFORM 030-SEND-MAP 01480099
014900* EXEC CICS 01490099
015000* SEND MAP('NAMEMA') MAPSET('NAMEMAP') 01500099
015100* ERASE 01510099
015200* END-EXEC 01520099
015300 PERFORM 040-RECEIVE-MAP 01530099
015400* EXEC CICS 01540099
015500* RECEIVE MAP('NAMEMA') MAPSET('NAMEMAP') 01550099
015600* ASIS 01560099
015700* END-EXEC 01570099
015800 MOVE OPTI TO OPTION 01580099
015900 EVALUATE OPTION 01590099
016000 WHEN 1 01600099
016100 PERFORM 050-ADD-RECORD 01610099
016200 WHEN 2 01620099
016300 PERFORM 060-SHOW-RECORDS 01630099
016400 WHEN 0 01640099
016500 MOVE 'N' TO CH1 01650099
016600 END-EVALUATE 01660099
016610 END-PERFORM. 01661099
016700 030-SEND-MAP. 01670099
016800 EXEC CICS 01680099
016900 SEND MAP('CARMA') MAPSET('CARMAP') 01690099
017000 ERASE 01700099
017100 END-EXEC. 01710099
017200 040-RECEIVE-MAP. 01720099
017300 EXEC CICS 01730099
017400 RECEIVE MAP('CARMA') MAPSET('CARMAP') 01740099
017500 ASIS 01750099
017600 END-EXEC. 01760099
017700 050-ADD-RECORD. 01770099
017800 MOVE LOW-VALUES TO CARMAI, CARMAO. 01780099
017900 MOVE WS-NAMEDAY TO WS-MESSAGE (1:10). 01790099
018000 MOVE ', ' TO WS-MESSAGE (11:3). 01800099
018100 MOVE WS-DATE TO WS-MESSAGE (14:10). 01810099
018200 MOVE WS-MESSAGE TO CDAYO. 01820099
018210 MOVE CAR-COUNT TO CARNO. 01821099
019600 MOVE LOW-VALUES TO CARMAI, CARMAO. 01960099
019610 MOVE -1 TO INFOL. 01961099
019700 MOVE "WRITE THE DATE OF SALE (DD-MM-YYYY) IN DATA" TO MSGO. 01970099
019800 PERFORM 030-SEND-MAP. 01980099
019900 PERFORM 040-RECEIVE-MAP. 01990099
020000 MOVE INFOI TO DATESOLD. 02000099
020100 MOVE LOW-VALUES TO CARMAI, CARMAO. 02010099
020200 MOVE "WRITE THE CAR BRAND IN THE DATA FIELD" TO MSGO. 02020099
020300 PERFORM 030-SEND-MAP. 02030099
020400 PERFORM 040-RECEIVE-MAP. 02040099
020500 MOVE INFOI TO CARBRAND. 02050099
020600 MOVE LOW-VALUES TO CARMAI, CARMAO. 02060099
020700 MOVE "WRITE THE CAR MODEL IN THE DATA FIELD" TO MSGO. 02070099
020800 PERFORM 030-SEND-MAP. 02080099
020900 PERFORM 040-RECEIVE-MAP. 02090099
021000 MOVE INFOI TO CARMODEL. 02100099
021100 MOVE LOW-VALUES TO CARMAI, CARMAO. 02110099
021200 MOVE "WRITE THE LICENSE PLATE IN DATA FIELD" TO MSGO. 02120099
021300 PERFORM 030-SEND-MAP. 02130099
021400 PERFORM 040-RECEIVE-MAP. 02140099
021500 MOVE INFOI TO REGISTRATION. 02150099
021600 MOVE LOW-VALUES TO CARMAI, CARMAO. 02160099
021700 MOVE "WRITE THE NAME OF THE CLIENT IN DATA FIELD" TO MSGO. 02170099
021800 PERFORM 030-SEND-MAP. 02180099
021900 PERFORM 040-RECEIVE-MAP. 02190099
022000 MOVE INFOI TO CLIENTNAME. 02200099
022010 MOVE LOW-VALUES TO CARMAI, CARMAO. 02201099
022100 MOVE "WRITE THE PHONE OF CLIENT IN THE DATA FIELD" TO MSGO. 02210099
022200 PERFORM 030-SEND-MAP. 02220099
022300 PERFORM 040-RECEIVE-MAP. 02230099
022400 MOVE INFOI TO CONTACT. 02240099
022410 MOVE LOW-VALUES TO CARMAI, CARMAO. 02241099
022500 MOVE "WRITE WHICH YEAR THE CAR WAS MADE DATA FIELD" TO MSGO. 02250099
022600 PERFORM 030-SEND-MAP. 02260099
022700 PERFORM 040-RECEIVE-MAP. 02270099
022800 MOVE INFOI TO PRODUCTIONYEAR. 02280099
022810 MOVE LOW-VALUES TO CARMAI, CARMAO. 02281099
022900 MOVE "WRITE THE MILEAGE IN THE DATA FIELD" TO MSGO. 02290099
023000 PERFORM 030-SEND-MAP. 02300099
023100 PERFORM 040-RECEIVE-MAP. 02310099
023200 MOVE INFOI TO MILEAGE. 02320099
023210 MOVE LOW-VALUES TO CARMAI, CARMAO. 02321099
023300 MOVE "WRITE THE PRICE OF THE CAR IN DATA FIELD" TO MSGO. 02330099
023400 PERFORM 030-SEND-MAP. 02340099
023500 PERFORM 040-RECEIVE-MAP. 02350099
023600 MOVE INFOI TO CARPRICE. 02360099
023700 EXEC CICS WRITE 02370099
023800 FILE('CARSDD') 02380099
023900 FROM(REGISTO) 02390099
024000 LENGTH(WS-LEN) 02400099
024010 RIDFLD(CARNO) 02401099
024100 RBA 02410099
024200 END-EXEC. 02420099
024210 ADD 1 TO CAR-COUNT. 02421099
024300* CLOSE CAR. 02430099
024400 060-SHOW-RECORDS. 02440099
024500* OPEN INPUT CAR 02450099
024501 MOVE LOW-VALUES TO WS-MESSAGE. 02450199
024502 MOVE LOW-VALUES TO CARMAI, CARMAO. 02450299
024503 IF FS-CAR-OK 02450399
024504 MOVE 'FILE OPENED OK' TO WS-MESSAGE 02450499
024505 ELSE 02450599
024506 MOVE 'FILE NOT OPENED ERROR' TO WS-MESSAGE (1:21) 02450699
024507 MOVE ': ' TO WS-MESSAGE (22:2) 02450799
024508 MOVE FS-CAR TO WS-MESSAGE (24:2) 02450899
024509 END-IF. 02450999
024510 MOVE WS-MESSAGE TO MSGO. 02451099
024511 PERFORM 030-SEND-MAP. 02451199
024512 MOVE WS-LEN TO WS-KEY-LEN. 02451299
024520 MOVE 0 TO CARNO. 02452099
024600 EXEC CICS STARTBR 02460099
024700 FILE('CARSDD') 02470099
024800 RIDFLD(CARNO) 02480099
024810 RBA 02481099
024900 END-EXEC. 02490099
024910 MOVE LOW-VALUES TO WS-MESSAGE. 02491099
024920 MOVE LOW-VALUES TO CARMAI, CARMAO. 02492099
024930 IF FS-CAR-OK 02493099
024940 MOVE 'FILE OPENED OK' TO WS-MESSAGE 02494099
024950 ELSE 02495099
024960 MOVE 'FILE NOT OPENED ERROR' TO WS-MESSAGE (1:21) 02496099
024970 MOVE ': ' TO WS-MESSAGE (22:2) 02497099
024980 MOVE FS-CAR TO WS-MESSAGE (24:2) 02498099
024990 END-IF. 02499099
024991 MOVE WS-MESSAGE TO MSGO. 02499199
024992 PERFORM 030-SEND-MAP. 02499299
025000 PERFORM UNTIL FS-CAR-EOF 02500099
025100 EXEC CICS READNEXT 02510099
025200 FILE('CARSDD') 02520099
025300 INTO(REGISTO) 02530099
025310 LENGTH(WS-LEN) 02531099
025320 RIDFLD(CARNO) 02532099
025330 RBA 02533099
025400 END-EXEC 02540099
026000 ADD 1 TO READ-COUNT 02600099
026001 MOVE LOW-VALUES TO CARMAI, CARMAO 02600199
026002 MOVE WS-NAMEDAY TO WS-MESSAGE (1:10) 02600299
026003 MOVE ', ' TO WS-MESSAGE (11:3) 02600399
026004 MOVE WS-DATE TO WS-MESSAGE (14:10) 02600499
026005 MOVE WS-MESSAGE TO CDAYO 02600599
026010 MOVE 'READING RECORDS IN FILE' TO MSGO 02601099
026100 MOVE DATESOLD TO SALEO 02610099
026200 MOVE CARBRAND TO BRANDO 02620099
026500 MOVE CARMODEL TO MODELO 02650099
026600 MOVE REGISTRATION TO PLATEO 02660099
026900 MOVE CLIENTNAME TO CLIENTO 02690099
027000 MOVE CONTACT TO PHONEO 02700099
027300 MOVE PRODUCTIONYEAR TO CREATO 02730099
027400 MOVE MILEAGE TO MILESO 02740099
027700 MOVE CARPRICE TO PRICEO 02770099
027800 PERFORM 030-SEND-MAP 02780099
027900 END-PERFORM. 02790099
028000* CLOSE CAR. 02800099
Re: Problem COBOL - CICS Program gives ABEND AEIP - INVREQ
by Robert Sample » Wed Aug 01, 2018 12:53 am
In case you don't know this, a VSAM data set (ESDS or KSDS) that has never had a record written to it will generate an error should someone attempt to read from it. Writing to the data set and then deleting the record is okay for then reading it, but never writing anything to the data set means that any read attempt will get an error -- INVREQ for CICS.
You need to look at the individual command in the Application Programming Reference manual to see the specific error meaning. For STARTBR in https://www.ibm.com/support/knowledgece ... artbr.html the manual says
You need to look at the individual command in the Application Programming Reference manual to see the specific error meaning. For STARTBR in https://www.ibm.com/support/knowledgece ... artbr.html the manual says
You obviously are not looking at the right reference material. Learn to use the IBM manuals in their Knowledge Center as these manuals will be your single BEST source of information.16 INVREQ
RESP2 values:
20 Browse operations are not allowed according to the resource definition.
25 The KEYLENGTH and GENERIC options are specified, and the length defined for the data set to which this file refers in the KEYLENGTH option is greater than or equal to the length of a full key.
26 The KEYLENGTH option is specified (but the GENERIC option is not specified), and the specified length does not equal the length defined for the data set to which this file refers.
33 An attempt is made to start a browse with a REQID already in use for another browse.
42 The KEYLENGTH and GENERIC options are specified, and the length specified in the KEYLENGTH option is less than zero.
44 The specified file is a user-maintained or coupling facility data table and the command does not conform to the format of STARTBR for such a data table (for example, RBA is specified).
51 A STARTBR command to a KSDS file that is being accessed in RLS mode specifies the RBA keyword. RLS mode does not support RBA access to KSDS files.
59 XRBA was specified, but the data set is not an extended ESDS.
Default action: terminate the task abnormally.
You don't have INVREQ in a read operation, you have INVREQ in a start browse operation -- read and start browse are NOT the same thing. And the way to fix it is either to write a record to the VSAM data set before attempting to read it, or don't attempt to read it in your code.I was just reading, so my questions are why I have INVREQ in a read operation, and how to solve this problem ?
- Robert Sample
- Global moderator
- Posts: 3720
- Joined: Sat Dec 19, 2009 8:32 pm
- Location: Dubuque, Iowa, USA
- Has thanked: 1 time
- Been thanked: 279 times
Re: Problem COBOL - CICS Program gives ABEND AEIP - INVREQ
by rogerb » Wed Aug 01, 2018 1:18 am
Good afternoon Mr. Robert Sample.
I've been watching the CEDF of the program.
EIBRESP = 16 INVREQ
EIBRESP2 = 20
In your previous answer you say:
"20 Browse operations are not allowed according to the resource definition."
So, in this case you maintain you previous advice to write a record in the ESDS before read ?
If yes, what do you suggest I use, as utility, DITTO or REPRO ?
Thank you,
Roger
I've been watching the CEDF of the program.
EIBRESP = 16 INVREQ
EIBRESP2 = 20
In your previous answer you say:
"20 Browse operations are not allowed according to the resource definition."
So, in this case you maintain you previous advice to write a record in the ESDS before read ?
If yes, what do you suggest I use, as utility, DITTO or REPRO ?
Thank you,
Roger
Re: Problem COBOL - CICS Program gives ABEND AEIP - INVREQ
by Robert Sample » Wed Aug 01, 2018 1:22 am
The system is telling you that your resource is not allowing a STARTBR. Sometimes that will be due to the CEDA definition not including the browse operation, and sometimes it will be because VSAM does not allow any read of an empty, uninitialized data set. You can write to it with your program, or with a system utility, or with DITTO -- what you use to write to it does not matter, what matters is writing SOMETHING to it before you attempt to do a read of it.
- Robert Sample
- Global moderator
- Posts: 3720
- Joined: Sat Dec 19, 2009 8:32 pm
- Location: Dubuque, Iowa, USA
- Has thanked: 1 time
- Been thanked: 279 times
Re: Problem COBOL - CICS Program gives ABEND AEIP - INVREQ
by rogerb » Wed Aug 01, 2018 1:38 am
Good afternoon.
I know this may sound as a stupid question, but I need to ask it.
In the COBOL program I'm using the file name 'CARSDD'.
To be coherent, I'm using CEDA DEF FILE(CARSDD) GROUP(-----)
But the name of the ESDS is ESDS.
When I did the CEDA DEF FILE, I wrote in the DSNAME the fully qualified name of the dataset, that is:
SYSOPR.STUDY.TEST.VSAM.ESDS
So, I have to ask.
May this be the cause of the current problem ?
Thank you,
Roger
I know this may sound as a stupid question, but I need to ask it.
In the COBOL program I'm using the file name 'CARSDD'.
To be coherent, I'm using CEDA DEF FILE(CARSDD) GROUP(-----)
But the name of the ESDS is ESDS.
When I did the CEDA DEF FILE, I wrote in the DSNAME the fully qualified name of the dataset, that is:
SYSOPR.STUDY.TEST.VSAM.ESDS
So, I have to ask.
May this be the cause of the current problem ?
Thank you,
Roger
Re: Problem COBOL - CICS Program gives ABEND AEIP - INVREQ
by Robert Sample » Wed Aug 01, 2018 2:20 am
This makes no sense at all -- are you trying to say that the low-level qualifier of the data set is ESDS? If so, be aware that the data set name can be ANYTHING you want and as long as the CEDA DEFINE has the right name in it, the CICS commands in your program will work. The CICS name is the DEF FILE(????????) -- CARSDD in your case; there is no ESDS involved here. The data set name is placed in the DSNAME field on the CEDA DEFINE. The actual physical name does not matter to your program -- you could call it A.B.C if you wanted to, and as long as the definitions are correct there will be no problems in CICS with using the data set.But the name of the ESDS is ESDS.
Your current problem is real simple -- you have not written a record to the ESDS and you are attempting to read from it. This is not allowed, period. If you keep trying to throw red herrings up, I'll lock the topic. Write a record to the dataset then try your STARTBR.
- Robert Sample
- Global moderator
- Posts: 3720
- Joined: Sat Dec 19, 2009 8:32 pm
- Location: Dubuque, Iowa, USA
- Has thanked: 1 time
- Been thanked: 279 times
-
- Related topics
- Replies
- Views
- Last post
-
- Getting Error INVREQ while reading records from VSAM-RRDS
by RaviTejaG » Fri May 21, 2010 3:43 pm - 2 Replies
- 5504 Views
- Last post by Robert Sample
Fri May 21, 2010 5:06 pm
- Getting Error INVREQ while reading records from VSAM-RRDS
-
- VSAM in cobol program
by Lina » Sun Dec 02, 2007 9:23 pm - 1 Replies
- 3352 Views
- Last post by arunprasad.k
Thu Dec 27, 2007 5:34 pm
- VSAM in cobol program
-
- Inserting only one row in a VSAM file using COBOL PROGRAM
by RAGHAVENDRA » Mon Dec 24, 2007 11:49 pm - 5 Replies
- 7259 Views
- Last post by dick scherrer
Thu Aug 28, 2008 3:10 am
- Inserting only one row in a VSAM file using COBOL PROGRAM
-
- Restore Problem with ADRDSSU
by johnmauro » Tue May 13, 2008 12:51 am - 3 Replies
- 6380 Views
- Last post by dick scherrer
Thu May 15, 2008 1:17 am
- Restore Problem with ADRDSSU
-
- a problem with creating new catalog
by junkster » Mon Nov 16, 2009 6:12 pm - 3 Replies
- 5003 Views
- Last post by dick scherrer
Wed Nov 18, 2009 1:17 am
- a problem with creating new catalog