IBM Transaction Server OS Manual de usuario Pagina 89

  • Descarga
  • Añadir a mis manuales
  • Imprimir
  • Pagina
    / 103
  • Tabla de contenidos
  • MARCADORES
  • Valorado. / 5. Basado en revisión del cliente
Vista de pagina 88
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
Vista de pagina 88
1 2 ... 84 85 86 87 88 89 90 91 92 93 94 ... 102 103

Comentarios a estos manuales

Sin comentarios