IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Access an specific memory address explicitly


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
lind sh

New User


Joined: 04 Feb 2015
Posts: 32
Location: Tajikestan

PostPosted: Wed Aug 11, 2021 11:37 am
Reply with quote

Dear Friends:
In a CICS online program I want to get a content of a specific address of memory. My meaning is that I present a pointer value (explicitly for example X'286272F8') to the program so the program returns the content of this address.

In detailed explanations:

First I've used the following command in a CICS TERMINAL:
Code:
 CECI COLLECT STATISTICS

The result is shown:
Code:
  COL TRANS                                                                 
 STATUS:  COMMAND EXECUTION COMPLETE                         NAME=         
  EXEC CICS  COLlect STATIstics                                           
   SEt( X'286272F8' )                                                     
   < LASTRESET( +0000000 ) | LASTRESETHrs() LASTRESETMin() LASTRESETSec() >
   < Autoinstall | < Bean() > CORbaserver() | CONnection() | DB2Conn       
     | DB2Entry() | DIspatcher | Enqueue | File() | JOURNALNAme()         
     | JOURNALNUm() | JVMPOol | JVMPROFile() | JVMPROGram() | LSrpool()   
     | MOnitor() | MVstcb() | ( Node() | POol() ) < TARget() > | PROGAuto 
     | PROGRam() | RECovery | REQuestmodel() | STATS | STOrage()           
     | STReamname() | SUbpool() | SYsdumpcode() | TABlemgr | TASksubpool   
     | TCLass() | TCPIP | TCPIPService() | TDqueue() | TErminal()         
     | TRANClass() | TRANDumpcode() | TRANSaction() | TSqueue | Vtam >     
                                                                           
   


Now I want to hardcode the HEX value in a COBOL program then compile , link and run it to show the contents of this memory address.
Back to top
View user's profile Send private message
Garry Carroll

Senior Member


Joined: 08 May 2006
Posts: 1111
Location: Dublin, Ireland

PostPosted: Wed Aug 11, 2021 12:48 pm
Reply with quote

See:
www.ibm.com/docs/en/cics-ts/5.2?topic=applications-using-based-addressing-cobol

Garry.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts access Mainframe from .net application All Other Mainframe Topics 0
No new posts Remove commas from specific positions... DFSORT/ICETOOL 10
No new posts REMOVE DUPLICATE RECORDS BASED ON A S... DFSORT/ICETOOL 4
No new posts Using REXX to access SDSF; What am I ... CLIST & REXX 38
No new posts using TXT2PDF to colour specific lines All Other Mainframe Topics 3
Search our Forums:

Back to Top