|
View previous topic :: View next topic
|
| Author |
Message |
sakthikumarT
New User
Joined: 09 Apr 2009
Posts: 50
Location: Bangalore
|
|
|
|
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 |
|
 |
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8700
Location: Dubuque, Iowa, USA
|
|
|
|
| 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 |
|
|
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008
Posts: 2501
Location: Atlanta, Georgia, USA
|
|
|
|
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 |
|
|
sakthikumarT
New User
Joined: 09 Apr 2009
Posts: 50
Location: Bangalore
|
|
|
|
@ 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 |
|
|
|
|
  |
All times are GMT + 6 Hours |
|
