1) Verificar
o OFFSET
Display Filter
View Print Options
Help
-------------------------------------------------------------------------------
SDSF OUTPUT
DISPLAY YC99OCHG JOB14323 DSID 2 LINE
CHARS 'AHC87I' FOUND
COMMAND
INPUT ===>
SCROLL ===> CSR
HG An
abend (code 0C7/AKEA) has occurred at offset X'000013A8' in program AHC87I
HG
) CICS
symptom string for message DFHSR0001 is
LVLS/620
MS/DFHSR0001 RIDS/DFHSRP PTFS/UQ83467
EA
RIDS/AHC87I ADRS/000013A8
HG A SYSTEM DUMP FOR DUMPCODE: SR0001 , WAS SUPPRESSED BY THE DUMP TABLE OPTIO
E
HG An abend
(code 0C7/AKEA) has occurred at offset X'000013A8' in program AHC87I
HG
) CICS
symptom string for message DFHSR0001 is
LVLS/620
MS/DFHSR0001 RIDS/DFHSRP PTFS/UQ83467
EA
RIDS/AHC87I ADRS/000013A8
HG A SYSTEM DUMP FOR DUMPCODE: SR0001 , WAS SUPPRESSED BY THE DUMP TABLE OPTIO
E
HG An abend
(code ---/TAMC) has occurred in exit program YCPCREQD at exit point
HG
Transaction MR13 has been attached with unknown tranclass TCLAMR13.
3782 )
GROUP(DD02 ) NAME(ANDRESSA R. MOREIRA
)
IATION -
INVALID PASSWORD ENTERED AT TERMINAL C52545
F1=HELP
F2=SPLIT F3=END F4=RETURN F5=IFIND
F6=BOOK
F7=UP
F8=DOWN F9=SWAP F10=LEFT F11=RIGHT F12=RETRIEVE
2) Verificar
o deslocamento do programa
TSO / D1 / BUILD / LISTING
PACKAGE ID
===> AH00000543
APPLICATION ===> AH00 (Required if PACKAGE ID not supplied;
Non-blank: staging/baseline listings;
Blank: staging listings only)
COMPONENT
NAME ===> AHC87I (Blank or pattern for list)
LIBRARY
TYPE ===> LST (Blank for list)
FROM
DATE ===> (YYYYMMDD)
TO DATE ===> (YYYYMMDD)
--------------------------
BROWSE COMPRESSED LISTINGS -------- Row 1 to 2 of 2
Press END
command to exit.
PACKAGE ID: AH00000543 STATUS: FRZ INSTALL DATE: 20041231
NAME
LEVEL VV.MM CREATED
CHANGED SIZE INIT
ID
_
AHC87I BASE-00 01.07 2002/12/10 2003/06/06 10:42 5960
3645 CHD1STC
S
AHC87I STAGING 01.00 2004/11/09 2004/11/09 14:31 6310
6310 CHD1STC
*******************************
Bottom of data ********************************
Menu Utilities
Compilers Help
-------------------------------------------------------------------------------
BROWSE CMN.SPC1.X003853.D314BC18.T6583D48.OUTLIST
Line 00000000 Col 001 080
*********************************
Top of Data **********************************
******************************************************************************
*
DDNAME: SERCOPY.SYSPRINT *
******************************************************************************
IEBCOPY MESSAGES AND CONTROL STATEMENTS
IEB1135I
IEBCOPY FMID HDZ11F0 SERVICE LEVEL UA01138 DATED 20030224 DFSMS 02.1
IEB1035I
AH005GAX SERCOPY 14:31:47 TUE 09 NOV 2004 PARM='LIST=NO'
COPY
OUTDD=SYSUT2,INDD=((SYS00002,R)),LIST=NO
* Copy
SELECT MEMBER=(AHC87I)
IEB1013I
COPYING FROM PDSE INDD=SYS00002
VOL=DESLBE DSN=SYSDE.CHGMAN.ATD.AH00.#
IEB1014I TO PDSE OUTDD=SYSUT2 VOL=WC1012 DSN=SYS04314.T143124.RA000.
IGW01550I 1
OF 1 SPECIFIED MEMBERS WERE COPIED
IEB147I END
OF JOB - 0 WAS HIGHEST SEVERITY CODE
******************************************************************************
* DDNAME: WRITE.SYSPRINT
*
******************************************************************************
Command ===> F
MAIN_EP
Scroll ===> CSR
F1=Help
F2=Split F3=Exit
F5=Rfind F7=Up F8=Down
F9=Swap
F10=Left
F11=Right F12=Cancel
NAME: ENTRY TYPE AMODE C_OFFSET CLASS
NAME STATUS
AHC87I
MAIN_EP 31 00000020 B_TEXT
***** E N D O F R E P O R T *****
3) Subtrair 20 (MAIN_EP 31 00000020 ) do OFFSET 13A8 = 1388
4) Ir
para o inicio da listagem, e fazer
Subtrair 20 (MAIN_EP 31
00000020 ) do OFFSET 13A8
Nenhum comentário:
Postar um comentário