🚀 go-pugleaf

The following is a program I wrote ages ago to clear a 3270 screen,
whether its in or outside of session manager.  It still works in our
shop but I had to search quite some time to find the source code just
now :-)
BTW my programming style has changed since, and our HLL programming
support system has improved a lot (too?).

         ICTL     1,71,19
         PRINT    OFF
         COPY     $HLL
         $REGS
         PRINT    ON,NOGEN
*-------
CLR3270E CSECT
CLR3270  PROLOGUE SAVE,11
         L        R2,X'224'                -> ASCB
         L        R2,X'6C'(R2)             -> ASXB
         L        R2,X'14'(R2)             -> LWA
         L        R3,X'94'(R2)             -> RDF (SESSION MANAGER)
         IF       (R3,GT,0)                ACTIVE ?
          L       R3,X'98'(R2)             ISPF ACTIVE ?
          IF      (R3,GT,0),AND,           YES                         +
                  (0(R3),ZERO,X'C0'),GOTO=STLINE
          LA      R15,ADFPARM              STREAM ID
          LA      R0,L'SMINCMD             LENGTH OF COMMAND
          L       R1,SMINPTR               -> COMMAND + FLAGS
          SVC     93
          IF      (R15,GT,0)
           TPUTSTR 'ERROR DURING WRITE TO SESSION MANAGER STREAM'
          ENDIF   ,
         ELSE     ,
STLINE    STLINENO LINE=1                  CLEAR 3270 SCREEN
         ENDIF    ,
         ST       15,SAVER15(13)
         EPILOGUE
*CLR3270 DC       X'27F5C411404013'
*                 ESC,ERASE/WRITE/BEEP,WCC ,SBA,0,0,IC
*
         DS       0A
ADFPARM  DC       C'*ADF',F'0',C'SMIN    '
SMINPTR  DC       A(SMINCMD+X'41000000')
SMINCMD  DC       C'S.F A(MAX);S.F A(PAGE);S.A 7 LVALUE;U.H;U.H CURRENT+
                  ;C.T CNTL(LAST)          '
         DC       X'00',C'<<<<<'
SAVE     DS       18A
         LTORG
         END      CLR3270