Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Macro Erros ( DFHEIPLR, DFHEMEND, DFHEISA,DFHEIBR)

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler
View previous topic :: :: View next topic  
Author Message
sakthikumarT

New User


Joined: 09 Apr 2009
Posts: 42
Location: Bangalore

PostPosted: Fri Feb 12, 2016 5:56 pm    Post subject: Macro Erros ( DFHEIPLR, DFHEMEND, DFHEISA,DFHEIBR)
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: 7904
Location: Bellevue, IA

PostPosted: Fri Feb 12, 2016 7:42 pm    Post subject: Reply to: Macro Erros ( DFHEIPLR, DFHEMEND, DFHEISA,DFHEIBR)
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: 2502
Location: Atlanta, Georgia, USA

PostPosted: Fri Feb 12, 2016 7:45 pm    Post subject: Reply to: Macro Erros ( DFHEIPLR, DFHEMEND, DFHEISA,DFHEIBR)
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: 42
Location: Bangalore

PostPosted: Mon Feb 15, 2016 1:55 pm    Post subject:
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    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts PCOMM macro to call another PCOMM macro boyti ko All Other Mainframe Topics 4 Tue Jul 12, 2016 4:30 pm
No new posts Send parameter for macro STIMERM from... Daniel Teolotitla PL/I & Assembler 13 Tue Jul 05, 2016 9:23 pm
No new posts RACF Easytrieve Plus macro Susan Jackson CA Products 0 Fri Jun 03, 2016 8:25 pm
No new posts Calling macro via rexx in batch mode. SanaR CLIST & REXX 15 Tue Mar 08, 2016 4:46 pm
No new posts Too many edit macro's and too few PF ... don.leahy TSO/ISPF 7 Wed Feb 17, 2016 3:00 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us