IBM Transaction Server OS User Manual
Page 89
For this, the calculations are:
Scanner offset
= X'7A6'
CICS stub length
= X'28'
Offset of CGT
= X'B8'
CGT base register = GPR 10
Offset within CGT = X'7A6' - X'28' - X'B8' = X'6C6' = 1734 (decimal)
MVC instruction looks like:
MVC
d(l,r),1734(10)
DFHEIV0
PGMLIT AT ...
To determine the EXEC CICS command:
1. Look at the Assembler-language for
MVC
d(l,r),1734(10)
DFHEIV0
PGMLIT AT ...
which occurs for the first MOVE
For the Scanner output:
CICS TRANSACTION AFFINITIES UTILITY
1995/11/19 Page
1
LOAD MODULE SCANNER - DETAILED LISTING OF CICS.PRODN1.LOCLLOAD
Module Name - ACCT04
/ Load Module Length - 000159D0 / Module Entry Point - 00000028
Offset
Storage Content (HEX)
EDF DEBUG Possible Command
Affinity
-------- -------------------------------------------------- --------- ----------------------- --------
000007A6 0A02E0000700004100
00669
WRITEQ TS
Trans
Total possible Affinity commands =
1
Total possible MVS POSTs
=
0
The COBOL source after translation was:
001123
001124
*EXEC CICS WRITEQ TS QUEUE('ACERLOG') FROM(ACCTERRO)
001125
*
LENGTH(ERR-LNG) END-EXEC.
001126
MOVE ' \
' 00669
' TO DFHEIV0
97800000 1057
001127
MOVE 'ACERLOG' TO DFHC0080
1034
001128
CALL 'DFHEI1' USING DFHEIV0 DFHC0080 ACCTERRO ERR-LNG.
EXT 1057 1034 380 861
The equivalent Assembler-language is:
001126 MOVE
002764 D210 8558 A6C6
MVC 1368(17,8),1734(10)
DFHEIV0
PGMLIT AT +1718
00276A 9240 8569
MVI 1385(8),X'40'
DFHEIV0+17
00276E D232 856A 8569
MVC 1386(51,8),1385(8)
DFHEIV0+18
DFHEIV0+17
001127 MOVE
002774 D207 8340 ACEA
MVC 832(8,8),3306(10)
DFHC0080
PGMLIT AT +3290
001128 CALL
00277A 4130 8558
LA
3,1368(0,8)
DFHEIV0
00277E 5030 D1B0
ST
3,432(0,13)
TS2=0
002782 4130 8340
LA
3,832(0,8)
DFHC0080
002786 5030 D1B4
ST
3,436(0,13)
TS2=4
00278A 4130 75A8
LA
3,1448(0,7)
ACCTERRO
00278E 5030 D1B8
ST
3,440(0,13)
TS2=8
002792 4130 9A0E
LA
3,2574(0,9)
ERR-LNG
002796 5030 D1BC
ST
3,444(0,13)
TS2=12
00279A 9680 D1BC
OI
444(13),X'80'
TS2=12
00279E 4110 D1B0
LA
1,432(0,13)
TS2=0
0027A2 4100 D150
LA
0,336(0,13)
CLLE@=2
0027A6 0530
BALR 3,0
0027A8 5030 D158
ST
3,344(0,13)
TGT FDMP/TEST-INFO. AREA +0
0027AC 58F0 A000
L
15,0(0,10)
V(DFHEI1 )
0027B0 05EF
BALR 14,15
0027B2 50F0 D078
ST
15,120(0,13)
TGTFIXD+120
0027B6 BF38 D089
ICM 3,8,137(13)
TGTFIXD+137
0027BA 0430
SPM 3,0
Figure 16. Example for finding an EXEC CICS command from the argument zero
Appendix B. Correlating Scanner and Reporter output to source
73