IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Macro Erros ( DFHEIPLR, DFHEMEND, DFHEISA,DFHEIBR)


IBM Mainframe Forums -> PL/I & Assembler
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
sakthikumarT

New User


Joined: 09 Apr 2009
Posts: 50
Location: Bangalore

PostPosted: Fri Feb 12, 2016 5:56 pm
Reply with quote

Dear All,
I am trying to a assember - cics Program. I am ending up with some Assembler Macro DFHEXXXX erros.

A snippet of my compiler:
Code:
-----------------------------
000001,//CSPASMC  PROC USER=,SUSER=REL,TYPE=CICS,
000002,//             GWREL=REL,GW=R150007,  WE HAVE CHANED THIS
000003,//             CICS=CICSTS52 MLVL=''
000004,//SETCOND0 EXEC PGM=IEFBR14
000005,//*-------------------------------------------------------------------*
000006,//* PERFORM CICS PRECOMPILE.
000007,//*-------------------------------------------------------------------*
000008[b],//TRANS    EXEC PGM=DFHEAP1$,REGION=4M,[/b]
000009,[b]//             PARM='SP,NOPROLOG,NOEPILOG'[/b]
000010,//*            PARM='SP'   NOPROLOG,NOEPILOG,LEASM' ADD CMP OPTION
000011,//STEPLIB  DD  DISP=SHR,DSN=&CICS..CICS.SDFHLOAD
000012,//SYSIN    DD DISP=SHR,DSN=&SUSER..AMD2.&TYPE..ASM(&NAME)
000013,//*SYSPUNCH DD  SYSOUT=*
000014,//SYSPUNCH DD  DSN=&SYSCIN,
000015,//             DISP=(NEW,PASS),
000016,//             DCB=BLKSIZE=400,
000017,//             UNIT=SYSDA,
000018,//             SPACE=(400,(400,100))
000019,//SYSPRINT DD  SYSOUT=*
000020,//*-------------------------------------------------------------------*
000021,//* ASSEMBLE PROGRAM.
000022,//*-------------------------------------------------------------------*
000023,//ASM      EXEC PGM=ASMA90,
000024,//             PARM=('TERM'),
000025,//*****        'SYSPARM(VERSION=''&VERSION'',MLVL=''&MLVL'')'),
000026,//             REGION=4M
000027,//*****        PARM=('TERM','&CMPPARM1','&CMPPARM2',
000028,//SYSLIB   DD  DISP=SHR,DSN=&USER..AMD2.CICS.ASM,
000029,//             DCB=BLKSIZE=32720
000030,//* ADDED SAKTHI
000031,//          DD  DISP=SHR,DSN=&CICS..CICS.SDFHMAC
000032,//          DD  DISP=SHR,DSN=SYS1.MACLIB
000033,//          DD  DISP=SHR,DSN=CEE.SCEEMAC
000034,//          DD  DSN=TCPIP.SEZACMAC,DISP=SHR
000035,//          DD  DISP=SHR,DSN=SYS3.MQS5200.SCSQMACS
000036,//          DD  DISP=SHR,DSN=SYS1.AMODGEN
000037,//          DD  DISP=SHR,DSN=SYS1.MODGEN             SHINOJ
000038,//* ------------------
000039,//*        DD  DISP=SHR,DSN=REL.AMD2.CICS.ASM
000040,//*        DD  DISP=SHR,DSN=&USER..AMD2.CMN.MAC
000041,//         DD  DISP=SHR,DSN=REL.AMD2.CMN.MAC
000042,//         DD  DISP=SHR,DSN=&GWREL..&GW..GW.COMM.MACLIB
000043,//SYSIN    DD  DSN=&SYSCIN,DISP=(OLD,DELETE)
000044,//SYSTERM  DD  SYSOUT=*
000045,//SYSPRINT DD  DSN=&&LISTING,
000046,//             DISP=(NEW,PASS,DELETE),
000047,//             DCB=(RECFM=VBA,LRECL=149,BLKSIZE=32760),
000048,//             UNIT=SYSDA,
000049,//             SPACE=(CYL,(2,2))
000050,//SYSLIN   DD  DISP=SHR,DSN=&USER..AMD2.&TYPE..OBJ(&NAME)
000051,//SYSUT1   DD  UNIT=SYSDA,SPACE=(1700,(400,400))
-----------------------------------------------------------------------------


Error Message from spool:
---------------------------------------------------------------------
1
1072 AMD2CRPC DFHEIENT CODEREG=(12),DATAREG=(13)
000010 00000000 1081+DFHLEN DC A(DFHEMEND-DFHEISTG) LENGTH OF STORAGE 01-DFHEI
ASMA044E Undefined symbol - DFHEMEND
ASMA435I Record 94 in REL.R150007.GW.COMM.MACLIB(DFHEIENT) on volume: TSO105
000028 00 1093+IHB0004F DC BL1'00000000' 02-STORA
00004A 0000 0000 00000 1106+ ST R13,DFHEISA-DFHEISTG+4(,5) 01-DFHEI
ASMA044E Undefined symbol - DFHEISA
ASMA435I Record 110 in REL.R150007.GW.COMM.MACLIB(DFHEIENT) on volume: TSO105
1121 SYGWMGWL TDINIT, INIT GATEWAY ENVIRONMENT X
COMMIOB=0(DFHEIBR), X
IHANDLE=W_IHANDLE, X
RC=W_RC
00006C 0000 0000 00000 1122+ LA 14,0(DFHEIBR) 01-SYGWM
ASMA044E Undefined symbol - DFHEIBR
ASMA029E Incorrect register specification - DFHEIBR

ASMA435I Record 1517 in REL.R150007.GW.COMM.MACLIB(SYGWMGWL) on volume: TSO105
0006E2 0000 0000 0000 00000 00000 1752 MVC TRANID,EIBTRNID
ASMA044E Undefined symbol - EIBTRNID
ASMA435I Record 659 in SYS16043.T033601.RA000.XUSERIDA.SYSCIN.H01 on volume:
0007C0 1822+ DS 0H 01-DFHEC
0007C0 0000 0000 00000 1823+ LA 1,DFHEIPL 01-DFHEC
ASMA044E Undefined symbol - DFHEIPL
ASMA435I Record 135 in CICSTS52.CICS.SDFHMAC(DFHECALL) on volume: CICS52
0007D6 1835+ DS 0H @BBAC81A 01-DFHEI
0007D6 0000 0000 00000 1836+ L 13,DFHEISA-DFHEISTG+4(,DFHEIPLR) CALLER'S AREA @BBAC81A 01-DFHEI
ASMA044E Undefined symbol - DFHEISA
ASMA044E Undefined symbol - DFHEIPLR
ASMA029E Incorrect register specification - DFHEIPLR

ASMA435I Record 112 in CICSTS52.CICS.SDFHMAC(DFHEIRET) on volume: CICS52
Assembler Done 6 Statements Flagged / 8 was Highest Severity Code
-----------------------------------------------------------------------------

Can anyone guide me on how to fix this Errors.? I have searched in net and added few compiler options(NOPROLOG,NOEPILOG) on the translator step. after adding this, one of the error was resolved which is DFHEIPLR.

Which CICS MACLIB contains all these? Do i need to add any other system Lib. ? Please help me out with some pointers.

Warm Regards
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Fri Feb 12, 2016 7:42 pm
Reply with quote

I don't think your CICS Assembler program is coded properly. DFHEISA and DFHEIPL are both in DFHEISTG which is in the SDFHMAC library. EIBTRNID is in DFHEIBLK, which should be part of every CICS Assembler program, and also is found in SDFHMAC.
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2501
Location: Atlanta, Georgia, USA

PostPosted: Fri Feb 12, 2016 7:45 pm
Reply with quote

Remove "NOPROLOG" and translate/assemble. Normally, "NOEPILOG" is used if you want to return R15 to the Caller/Linker (DFHEIRET RCREG=R15), which is the same as using the RETURN-CODE SPECIAL-REGISTER in COBOL (a misnomer, actually treated internally as a halfword),

HTH....
Back to top
View user's profile Send private message
sakthikumarT

New User


Joined: 09 Apr 2009
Posts: 50
Location: Bangalore

PostPosted: Mon Feb 15, 2016 1:55 pm
Reply with quote

@ Robert & Bill,

Thanks a lot for your inputs. Finally we able to successfully do the translate ,compile and linklib.

The actual problem was the order of the macro Libraries which was mentioned in the SYSLIB and few System Macros are used in user defined mac lib as well.

//SYSLIB DD DISP=SHR,DSN=&USER..AMD2.CICS.ASM,
// DCB=BLKSIZE=32720
// DD DISP=SHR,DSN=&CICS..CICS.SDFHMAC
// DD DISP=SHR,DSN=&USER..AMD2.CMN.MAC

// DD DISP=SHR,DSN=&GWREL..&GW..GW.COMM.MACLIB
// DD DISP=SHR,DSN=SYS1.MACLIB
// DD DISP=SHR,DSN=SYS1.AMODGEN

and the compiler options i have removed all and kept PARM= 'SP' ion the translate step..

Warm Regards
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> PL/I & Assembler

 


Similar Topics
Topic Forum Replies
No new posts PRINTOUT macro PL/I & Assembler 0
No new posts create rexx edit Macro that edits the... CLIST & REXX 3
No new posts Issues with executing a REXX MACRO th... TSO/ISPF 4
No new posts Facing issue in Run Edit Macro Job CLIST & REXX 9
No new posts outtrap does not capture within an ed... CLIST & REXX 1
Search our Forums:

Back to Top