3270 Data Stream Programming

Hello, World (Version 3)

 

Introduction

Here is the HELLO2 program modified to use SA instead of SFE to produce the exact same results.

The modified data stream is:

x'C3114BF0',X'1DF0',X'2841F2',X'2842F6',C'HELLO, WORLD!',X'1DF0'

We have now replaced the SFE with a SF and two SA commands containing the same attributes.

A TSO Program

We will now modify our TSO program to write out our updated message.  

HELLO1   CSECT ,
         SAVE  (14,12),,*
         LR    12,15
         USING HELLO1,12
*
         LA    1,SAVEA
         ST    1,8(,13)
         ST    13,4(,1)
         LR    13,1
*
         STFSMODE ON,INITIAL=YES
         STTMPMD ON
*
         TPUT  STREAM,STREAMLN,FULLSCR
*
         TGET  INBUF,INBUFLN,ASIS
*
         STLINENO LINE=1
         STFSMODE OFF
         STTMPMD OFF
*
         L     13,4(,13)
         LM    14,12,12(13)
         SLR   15,15
         BR    14
*
STREAM   DS    0C
         DC    X'27'       ESCAPE CHAR
         DC    X'F5'       ERASE/WRITE
         DC    X'C3'       WCC
         DC    X'114BF0'   SBA 
         DC    X'1DF0'     SF (PROTECTED)
         DC    X'2841F2'   SA (HIGHLIGHTING = REVERSE)
         DC    X'2842F6'   SA (COLOR = YELLOW)
         DC    C'HELLO, WORLD!'
         DC    X'1DF0'     SF (PROTECTED / END PREV FIELD)
STREAMLN EQU   *-STREAM
*
INBUF    DS    XL128
INBUFLN  EQU   *-INBUF
*
SAVEA    DS    18F
         END   ,

I suggest you try entering this small program, compiling, link editing it and then run it under TSO using the CALL command. 

This program should work on MVS 3.8J 

More To Come???