1) Verificaro OFFSET Display Filter View Print Options Help -------------------------------------------------------------------------------SDSF OUTPUTDISPLAY YC99OCHG JOB14323 DSID 2 LINE CHARS 'AHC87I' FOUND COMMANDINPUT ===> SCROLL ===> CSR HG Anabend (code 0C7/AKEA) has occurred at offset X'000013A8' in program AHC87IHG ) CICSsymptom string for message DFHSR0001 is LVLS/620MS/DFHSR0001 RIDS/DFHSRP PTFS/UQ83467 EARIDS/AHC87I ADRS/000013A8 HG A SYSTEM DUMP FOR DUMPCODE: SR0001 , WAS SUPPRESSED BY THE DUMP TABLE OPTIOE HG An abend(code 0C7/AKEA) has occurred at offset X'000013A8' in program AHC87IHG ) CICSsymptom string for message DFHSR0001 is LVLS/620MS/DFHSR0001 RIDS/DFHSRP PTFS/UQ83467 EARIDS/AHC87I ADRS/000013A8 HG A SYSTEM DUMP FOR DUMPCODE: SR0001 , WAS SUPPRESSED BY THE DUMP TABLE OPTIOE HG An abend(code ---/TAMC) has occurred in exit program YCPCREQD at exit point HGTransaction 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) Verificaro deslocamento do programaTSO / D1 / BUILD / LISTING PACKAGE ID ===> AH00000543 APPLICATION ===> AH00 (Required if PACKAGE ID not supplied; Non-blank: staging/baseline listings; Blank: staging listings only) COMPONENTNAME ===> AHC87I (Blank or pattern for list) LIBRARYTYPE ===> LST (Blank for list) FROMDATE ===> (YYYYMMDD) TO DATE ===> (YYYYMMDD) --------------------------BROWSE COMPRESSED LISTINGS -------- Row 1 to 2 of 2 Press ENDcommand 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 SAHC87I 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.OUTLISTLine 00000000 Col 001 080*********************************Top of Data ********************************** ****************************************************************************** * DDNAME: SERCOPY.SYSPRINT * ****************************************************************************** IEBCOPY MESSAGES AND CONTROL STATEMENTSIEB1135IIEBCOPY FMID HDZ11F0 SERVICE LEVEL UA01138 DATED 20030224 DFSMS 02.1IEB1035IAH005GAX SERCOPY 14:31:47 TUE 09 NOV 2004 PARM='LIST=NO' COPY OUTDD=SYSUT2,INDD=((SYS00002,R)),LIST=NO * Copy SELECT MEMBER=(AHC87I) IEB1013ICOPYING FROM PDSE INDD=SYS00002VOL=DESLBE DSN=SYSDE.CHGMAN.ATD.AH00.#IEB1014I TO PDSE OUTDD=SYSUT2 VOL=WC1012 DSN=SYS04314.T143124.RA000.IGW01550I 1OF 1 SPECIFIED MEMBERS WERE COPIED IEB147I ENDOF JOB - 0 WAS HIGHEST SEVERITY CODE ****************************************************************************** * DDNAME: WRITE.SYSPRINT * ******************************************************************************Command ===> FMAIN_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 CLASSNAME 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) Irpara o inicio da listagem, e fazer Subtrair 20 (MAIN_EP 3100000020 ) do OFFSET 13A8 VSAM (VIRTUAL STORAGE ACCESS METHOD) - PROGRAMAS BATCHE UM METODO DE ACESSO QUE TRABALHACOM ORGANIZACOES DE ARQUIVOS RESIDENTES EM DISPOSITIVOS DE ACESSO DIRETO(DISCOS).A CLAUSULA SELECT PERMITEESPECIFICACOES DO ARQUIVO, TAIS COMO ORGANIZACAO, MODO DE ACESSO E OUTRASINFORMACOES.PARA O UNIBANCO, A ORGANIZACAO SERAGERALMENTE INDEXADA E O MODO DE ACESSO SERA DINAMICO, O QUE QUER DIZER QUE OSREGISTROS PODEM SER ACESSADOS TANTO SEQUENCIAL QUANTO RANDOMICAMENTE.A CLAUSULA FILE STATUS EUTILIZADA PARA PROPICIAR A MONITORACAO DA EXECUCAO DE CADA COMANDO DE I-O(OPEN, READ, WRITE, REWRITE, START, DELETE, CLOSE). O FILE STATUS DEVE SERDEFINIDO NA WORKING-STORAGE COMO UM CAMPO NUMERICO DE DOIS BYTES. DURANTE AEXECUCAO DE QUALQUER PEDIDO PARA O ARQUIVO, O SISTEMA COLOCA UM VALOR NA STATUSKEY, QUE INDICA