AEI0 abend when using copybook



High Level Assembler(HLASM) for MVS & VM & VSE

AEI0 abend when using copybook

Postby 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
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
*        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.
xboss
 
Posts: 79
Joined: Mon Nov 29, 2010 10:55 am
Has thanked: 0 time
Been thanked: 0 time

Re: AEI0 abend when using copybook

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

Hello,

At what point does the program abend?

How does the COPY statement expand?
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6268
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 93 times

Re: AEI0 abend when using copybook

Postby xboss » Wed Jun 26, 2013 11:20 pm

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


                                     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.
xboss
 
Posts: 79
Joined: Mon Nov 29, 2010 10:55 am
Has thanked: 0 time
Been thanked: 0 time

Re: AEI0 abend when using copybook

Postby 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.
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6268
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 93 times


Return to Assembler

 


  • Related topics
    Replies
    Views
    Last post