| |
|
RSS Feed - WebSphere MQ Support
|
RSS Feed - Message Broker Support
|
  |
|
| Native COBOL compiles on Tandem Integrity |
« View previous topic :: View next topic » |
| Author |
Message
|
| AndyMQ |
 Posted: Thu May 01, 2008 1:56 am Post subject: Native COBOL compiles on Tandem Integrity |
 |
|
Apprentice
Joined: 22 Apr 2004
Posts: 33
Location: Scotland
|
| Has anyone tried compiling native Cobol code under WMQ 5.3 on Tandem Integrity (Itanium)? Have installed 5.3.1.2 but don't appear to have any of the compile macros mentioned in the System Admin manual, and lib's are a bit dodgy too. Any help much appreciated. |
|
| Back to top |
|
 |
| LouML |
| Posted: Thu May 01, 2008 4:57 am Post subject: Re: Native COBOL compiles on Tandem Integrity |
|
|
Partisan
Joined: 10 Nov 2005
Posts: 305
Location: Jersey City, NJ / Bethpage, NY
|
| AndyMQ wrote: |
| Has anyone tried compiling native Cobol code under WMQ 5.3 on Tandem Integrity (Itanium)? Have installed 5.3.1.2 but don't appear to have any of the compile macros mentioned in the System Admin manual, and lib's are a bit dodgy too. Any help much appreciated. |
Don't know if this can help, but when I was on Tandem NSK (I believe we were still at MQ 5.1 then), I used this TACL MACRO to compile COBOL MQ source:
| Code: |
?TACL MACRO
[#IF [#EMPTY %2%]
|THEN|
#OUTPUT CMPMQCOB <source-file> <object-file>
|ELSE|
#FRAME
#PUSH cc^ mc^ rc^ log1^ log2^ log3^ fname fsrc fobj fbobj
#SET #INFORMAT TACL
#SET fbobj %2%
#SET fobj %1%
#SET fsrc %1%
#CHARDEL fobj [#CHARCOUNT fsrc]
#CHARINS fobj [#COMPUTE [#CHARCOUNT fobj] + 1 ] O
DELETE DEFINE =_SOURCE_SEARCH
DELETE DEFINE =_OBJECT_SEARCH
#PUSH #DEFAULTS
[#CASE [#MYSYSTEM]
| \PA |
ADD DEFINE =_SOURCE_SEARCH,CLASS SEARCH,SUBVOL0 $SYSTEM.SYSTEM, &
SUBVOL1 $DATA15.ZMQSLIB, &
SUBVOL2 $DATA4.SRVOBJ
ADD DEFINE =_OBJECT_SEARCH,CLASS SEARCH,SUBVOL0 $SYSTEM.SYSTEM, &
SUBVOL1 $DATA15.ZMQSLIB, &
SUBVOL2 $DATA4.SRVOBJ
VOLUME $DATA16
| \TEL |
ADD DEFINE =_SOURCE_SEARCH,CLASS SEARCH,SUBVOL0 $SYSTEM.SYSTEM, &
SUBVOL1 $DEV12.ZMQSLIB, &
SUBVOL2 $DEV04.SRVOBJ
ADD DEFINE =_OBJECT_SEARCH,CLASS SEARCH,SUBVOL0 $SYSTEM.SYSTEM, &
SUBVOL1 $DEV12.ZMQSLIB, &
SUBVOL2 $DEV04.SRVOBJ
VOLUME $DEV03
]
#OUTPUT COBOL85/IN [fsrc],MEM64/[fobj],CMQCOBOL;SYMBOLS;PORT; &
INSPECT;SUPPRESS;SAVEABEND;SAVE ALL;ENV COMMON;SEARCH COBOLLIB; &
SEARCH MQMLIB; SEARCH CLULIB; SEARCH EMSMSG
#SET rc^ [#NEWPROCESS $SYSTEM.SYSTEM.COBOL85/IN [fsrc],MEM 64/[fobj],CMQCOBOL;SYMBOLS;PORT; &
INSPECT;SUPPRESS;SAVEABEND;SAVE ALL;ENV COMMON;SEARCH COBOLLIB; &
SEARCH MQMLIB; SEARCH CLULIB; SEARCH EMSMSG ]
#SETMANY cc^ mc^, [:_completion:COMPLETIONCODE] [:_completion:messagecode]
#POP #DEFAULTS
[#IF ([mc^] = -5) AND ([cc^] = 0)
|THEN|
#SET #INLINEPREFIX +
#SET #INLINEECHO 0
BIND/INLINE/
+ SET HIGHPIN ON
+ SET HIGHREQUESTERS ON
+ SET RUNNAMED ON
+ SELECT CHECK PARAMETER STRONG
+ SELECT LIST * OFF
+ ADD * FROM [fobj]
[#CASE [#MYSYSTEM]
| \PA |
+ SELECT SEARCH $DATA15.ZMQSLIB.MQMLIB
| \TEL |
+ SELECT SEARCH $DEV12.ZMQSLIB.MQMLIB
]
+ SELECT SEARCH $SYSTEM.SYSTEM.CWIDE
+ SET SYMBOLS ON
+ SET INSPECT ON
+ SET SAVEABEND ON
+ SET HEAP 1000 PAGES
+ BUILD [fbobj] !
+ EXIT
#OUTPUT AXCEL [fbobj],[fbobj]
AXCEL [fbobj],[fbobj]
PURGE [fobj]
]
#UNFRAME
] |
_________________
Yeah, well, you know, that's just, like, your opinion, man. - The Dude |
|
| Back to top |
|
|
| AndyMQ |
| Posted: Thu May 01, 2008 5:22 am Post subject: |
|
|
Apprentice
Joined: 22 Apr 2004
Posts: 33
Location: Scotland
|
Thanks. That's similar to the one we used for non-native Cobol under 5.1. Problem is it's all change under 5.3. We've finally got a non-native compile up and running tho' there were a few changes we had to make, including the supplied CMQCOBOL file which was slightly corrupt.
Still no further forward with the Native Cobol compiles tho'. The manual is not helpful with this as it refers to 2 sets of macros which are not actually supplied with 5.3, so we're not sure if we're pointing at correct libs or srls.
Thanks anyway |
|
| Back to top |
|
|
| SJ |
| Posted: Thu May 08, 2008 10:22 am Post subject: |
|
|
Newbie
Joined: 02 May 2003
Posts: 8
Location: US
|
| I found bcobsamp in the 5.3 sample directory that compiles PIC, NONPIC, NONPICS or TNS type cobol sources. |
|
| Back to top |
|
|
| SJ |
| Posted: Thu May 08, 2008 10:30 am Post subject: |
|
|
Newbie
Joined: 02 May 2003
Posts: 8
Location: US
|
| Sorry, we're not running Itanium. |
|
| Back to top |
|
|
|
|
|
| |
|
Page 1 of 1 |
|
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
|
|
|
|
