Hi Rick and folks who have been helping,
Am trying for 2(00000222) length and displacement info from the z/OS
compiler .. thanks for suggestions. I tried OFFSET, DMAP, PMAP, LIST, ADATA
(which it wouldn't accept) - only MAP gave me results. Except the z/OS is in
hex... e.g. x'0DE' = 222.
.. RDz 7.1 output using MAP ..
1PP 5725-B74 IBM COBOL for Windows 7.6.1 STEPP01
Date 01/09/2012 Time 12:03:31 Page 5
LineID PL
L ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8
Map and Cross Reference
0 000171C 10 CG-KYC2-LENGK-SCRN PIC 9(002).
2(000000222)
000172C 10 CG-KYA3-LENGK-SCRN PIC 9(002).
2(000000224)
000173C 10 CG-KYB3-LENGK-SCRN PIC 9(002).
2(000000226)
000174C 10 CG-KYC3-LENGK-SCRN PIC 9(002).
2(000000228)
.. and z/OS output using MAP ..
PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 STEPP01
Date 01/12/2012 Time 18:11:30 Page 7
LineID PL
L ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8
Map and Cross Reference
000171C 10 CG-KYC2-LENGK-SCRN PIC 9(002).
BLF=00000+0DE,00000DE 2C
000172C 10 CG-KYA3-LENGK-SCRN PIC 9(002).
BLF=00000+0E0,00000E0 2C
000173C 10 CG-KYB3-LENGK-SCRN PIC 9(002).
BLF=00000+0E2,00000E2 2C
000174C 10 CG-KYC3-LENGK-SCRN PIC 9(002).
BLF=00000+0E4,00000E4 2C
Possible that the z/OS output is 'the new way', maybe expect the same with
RDz?
cheers
Graham
---
----- Original Message -----
From: "Rick Fochtman" <rfocht...@ync.net>
Newsgroups: bit.listserv.ibm-main
To: <IBM-MAIN@bama.ua.edu>
Sent: Thursday, January 12, 2012 6:36 PM
Subject: Re: COBOL Compiler option
You might also try DMAP and/or PMAP, says one of my "friends".
Rick
On 1/11/2012 8:05 PM, Stewart, David James wrote:
Try using option OFFSET and make sure NOOFFSET is not specified or
amend NOOFSET to OFFSET :)
LIST and MAP will give you the generated ASSEMBLER (OBJECT) code
David Stewart
Mainframe Technical Specialist
Technical Services
Standard Chartered Bank
Phone: +603 7681 2101 internal
+603 7681 5101 external
Fax: +603 7956 4658
Mobile: +60 176083655
Fonenet: 16032101
Email: david.stew...@sc.com
Address: Level 2, Menara LYL Jalan 51A/223
Petaling Jaya Selangor, 46100, Malaysia
Website: http://www.scopeinternational-kl.com
Website for internal use: MF COE support site
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN