IBM Mainframe Forum

by **xboss** » Wed Jun 26, 2013 2:24 am

I have a program that I am trying to feed-in a data from copybook but I am not able to load the address of the copybook correctly,
any help/way would be highly appreciated.

Note:
The program works if I have so called copybook coded directly in the program (All I have to
do is replace USING GOOGLE,R4 by LA R4,GOOGLE).

COPYBOOK

Select all

GOOGLE DS 0F
DC CL8'AAAAAAAA'
GOOGLEL EQU *-GOOGLE
DC CL8'BBBBBBBB'
DC CL8'CCCCCCCC'
DC CL8'DDDDDDDD'
DC CL8'EEEEEEEE'
GOOGLETL EQU (*-GOOGLE)/GOOGLEL

PROGRAM

Select all

* EJECT
DFHREGS
DSECT
COPY COPYBOOK
EJECT
DSECT
DFHEISTG
DESCRPTN DS CL70
PROGRAMS DS CL8
DS F
DFHEJECT
*******************************************************************
ICTIPD1P DFHEIENT CODEREG=3,DATAREG=13,EIBREG=11
ICTIPD1P AMODE 31
ICTIPD1P RMODE ANY

USING GOOGLE,R4
LA R5,GOOGLETL LOOP TIMES
B BEGIN
BEGIN EQU *
MVC PROGRAMS,0(R4)
EXEC CICS LINK PROGRAM(PROGRAMS) C
COMMAREA(DESCRPTN) C
LENGTH(70)
EXEC CICS WRITE OPERATOR TEXT(DESCRPTN) C
TEXTLENGTH(70)
LA R4,GOOGLEL(,R4)
BCT R5,LOOP
END EQU *
EXEC CICS RETURN
LTORG
END PROGRAM

The above program is failing with AEI0 abend, that is program is not handling
PGMIDERR. To let you know, all of the above program are valid program defined
in a region.

by **dick scherrer** » Wed Jun 26, 2013 9:35 pm

Hello,

At what point does the program abend?

How does the COPY statement expand?

by **xboss** » Wed Jun 26, 2013 11:20 pm

Scherrer, thanks for the response. Below is the listing of my copybook

Select all

58 COPY GOOGLE
59=***********************************************************************
60=* COPYBOOK: GOOGLE *
61=* ------------------------------------------------------------------- *
000000 72=GOOGLE DS 0F
000000 C9C3E35BC4C5E2C3 73= DC C'AAAAAAAA'
00008 74=GOOGLEL EQU *-GOOGLE
000008 C9C3E35BE4E2C1C7 75= DC C'BBBBBBBB'
000010 C9C3E35BE2D3F0F0 76= DC C'CCCCCCCC'
000018 C9C3E35BE2D3F0F1 77= DC C'DDDDDDDD'
000020 C9C3E35BE2D3F0F2 78= DC C'EEEEEEEE'
000028 C9C3E35BE2D3F0F3 79= DC C'FFFFFFFF'
000030 C9C3E35BE2D3F0F4 80= DC C'GGGGGGGG'
000038 C9C3E35BE2D3F0F5 81= DC C'HHHHHHHH'
000040 C9C3E35BE6D2D3C4 82= DC C'IIIIIIII'
000048 C9C3E35BD9E3E8D7 83= DC C'JJJJJJJJ'
000050 C9C3E35BC1C3C3E3 84= DC C'KKKKKKKK'
000058 C9C3E35BD4C9E2C3 85= DC C'LLLLLLLL'
0000C 86=GOOTLETL EQU (*-GOOGLE)/GOOGLEL
87 DFHEIGBL ,,,NOLE INSERTED BY TRANSLATOR
88+*,&DFHEIDL SETB 0 1 MEANS EXEC DLI IN PROGRAM 01-DFHEI
89+*,&DFHEIDB SETB 0 1 MEANS BATCH PROGRAM 01-DFHEI
90+*,&DFHEIRS SETB 0 1 MEANS RSECT 01-DFHEI
91+*,&DFHEILE SETB 0 1 MEANS LE MAIN 01-DFHEI
92 DFHEISTG
93+***********************************************************************
94+* EXEC INTERFACE DYNAMIC STORAGE *
95+***********************************************************************

And the program abend at statement,

EXEC CICS LINK PROGRAM(PROGRAMS)

Thanks.

by **dick scherrer** » Wed Jun 26, 2013 11:29 pm

Hello,

What value is in PROGRAMS when the LINK is executed?

I would look at the 2 assemblies and see what is different between the 2 assembler/linkedt listins.

IBM Mainframe Forum

AEI0 abend when using copybook

AEI0 abend when using copybook

Re: AEI0 abend when using copybook

Re: AEI0 abend when using copybook

Re: AEI0 abend when using copybook