IBM Mainframe Forum

These users thanked the author steve-myers for the post:

bobguo (Tue Aug 20, 2013 7:16 am)

• what's the value of the memory from 00007E to 0000F0?
  It's whatever the Binder decides to put there; it's not defined.
• can we access it?
  Yes, but since it may not exist, you shouldn't try it. Consider
  Select all

  PGM1     CSECT
           USING *,15
           SAVE  (14,1)
           TR    DATA,HEXTAB
           LA    0,L'DATA
           LA    1,DATA
           TPUT  (1),(0),R
           RETURN (14,1),RC=0
  DATA     DC    X'F0FAFBF0'
           ORG   PGM1+C'0'
           ORG   ,
  HEXTAB   EQU   *-C'0'
           DC    C'0123456789ABCDEF'
           END   ,
  and
  Select all

  PGM2     CSECT
           USING *,15
           SAVE  (14,1)
           TR    DATA,HEXTAB
           LA    0,L'DATA
           LA    1,DATA
           TPUT  (1),(0),R
           RETURN (14,1),RC=0
           DC    100C'BLAH BLAH BLAH  '
  DATA     DC    X'F0FAFBF0'
           ORG   PGM2+C'0'
           ORG   ,
  HEXTAB   EQU   *-C'0'
           DC    C'0123456789ABCDEF'
           END   ,
  
  The point of the two ORG instructions before the HEXTAB definition is to make sure HEXTAB is addressable. There is empty space between DATA and the active part of HEXTAB in PGM1, but none in PGM2 Both programs assemble and run.

These users thanked the author steve-myers for the post:

bobguo (Thu Aug 22, 2013 6:05 am)

under jes2, i can't see anything about it, or can somebody tell me how to refer to the message, which appeared on the terminal, sent by TPUT?

WTO 'HELLO WORLD'
in the HLASM program, where can i find 'HELLO WORLD' appeared?

• In the JES2 JESMSGLG data set for the JES2 job running the program that issued the WTO macro.
• In the SYSLOG data set for the system where the job was run.