Edit macro @TSOXD                                              Edit macro @TSOXD

                                                       Author: David McRitchie
                                                   formatted on  1995/04/01 06:54
          for assistance contact: D. McRitchie                DMcRitchie@hotmail.com
--------------------------------------------------------------------------------
Macro name.  @TSOXD
users.       PDF EDIT users wishing to execute current data in edit as a clist.
type.        Edit Macro   resides in SYS1.TSOCLIST

--------------------------------------------------------------------------------
@TSOXD   Edit macro executes current display as a TSO CLIST
--------------------------------------------------------------------------------
    related   to work same as  regular  PDF EDIT commands prefixed with "&"
--------------------------------------------------------------------------------

The @TSOXD clist allows the user to execute the current PDF EDIT  display  as  a
TSO clist.  This clist will terminate if changed data has not been saved.

--------------------------------------------------------------------------------

  EDIT  COMMAND ===> &@TSOXD tso-command
                ===> &@TSOXD tso-command

--------------------------------------------------------------------------------

                tso-command,  is any TSO command and is required

Examples:

      edit  COMMAND ===> @TSOXD

EDIT --- IS03.SHARE.TEXT(EDITXXXX) - 01.00 ------------------ COLUMNS 001 124
COMMAND ===> @TSOXD                          SCROLL ===> CSR
****** **************************** TOP OF DATA *****************************
000010 SEND 'MESSAGE LINE1',U(U000),L
000020 SEND 'MESSAGE LINE2',U(U000),L
000030 SEND 'MESSAGE LINE3',U(U000),L
000040 SEND 'MESSAGE LINE4',U(U000),L
000050 SEND 'MESSAGE LINE5',U(U000),L
****** ************************* BOTTOM OF DATA *****************************

Internal Aspects:

1.  Data in edit is checked to make sure it has not changed since
    last loaded or saved.
2.  The material in the dsn or member in PDF edit will be
    executed as a TSO CLIST.   CLIST options can be used if
    "PROC" statement exits, imbedded blanks within options are
    not (easily) available.
3.  The @TSOXD clist is fairly short and may be viewed using
        ==> TSO CLIST @TSOXD

    likewise any other clist may be viewed using
        ==> TSO CLIST clistname