/*TSOOS2:  File Transfer Set Up between OS/2             (REXX)   */
/*       created by David McRitchie, "The REXX Macros Toolbox" 1993/05/20 */
/*       <<for use on TSO only>> copy made available to PC users  */
/*       SCRSIZEP and SCRSIZEA created by John Kennedy            */
/*-----------------------------------------------------------------
   To be used during file transfers between TSO and OS/2 either way.
   Will set the SCReen SIZE to "Primary" for the duration.  When PF3
   is entered the duration ends  SCRSIZEA, "Alt", is invoked, and
   INTERCOM which accepts messages from other users is turned back on
.-----------------------------------------------------------------*/
 if sysvar("SYSISPF") /= "ACTIVE" then exit 0
 trap = 0

 tryagain:,
 ADDRESS "ISPEXEC" "VGET (ZSCREEND ZSCREENW ZSPLIT) SHARED"
 if zsplit = "YES" then do;
    cls /*clear screen*/
    say "------------- SPLIT SCREEN Warning ---------------"
    say "Split screen is NOT compatible with transfers, causes "
    say "asterisks to appear on screen delaying or causing "
    say "failure in file transfer"
    if zscreend = 27 then do; say ' ';
    say "-----  Also Please reset screen size to STD ------"
    end
    say "---------------------------------------------------"
 end
 if zscreend = 27 then do
    /* do not bother checking for ISPF, screen has no msgarea*/
    say "Think you need to set  terminal screen to  STD"
 end
 if zscreend = 27 | zsplit = "YES" then
    address "ISPEXEC" "SELECT PGM(ISPOPT) PARM(ISPOPT1)"
 "TERMINAL NOBREAK"
 ADDRESS "ISPEXEC" "VGET (ZSCREEND ZSCREENW ZSPLIT) SHARED"
 if zsplit = "YES" | zscreend = 27 then do;
      say '****************************************'
      say '*   WAKE UP,  changes required to your *'
      say '*   your session before going into     *'
      say '*   COMMAND MODE to process transmit   *'
      say '****************************************'
      trap = trap + 1
      if trap > 0 then return 12
      signal tryagain;
 end;
 "PROFILE NOINTERCOM";"SCRSIZEP";"Q TSO"
 "PROFILE INTERCOM";"SCRSIZEA"
 if zscreend = 27 | sysvar('SYSUID') = "IS03" then do
    ADDRESS "ISPEXEC" "VGET (ZSCREEND) SHARED"
    if zscreend  = 24 then do
       say "You may set TERMINAL back to DATA or MAX now, if you like   "
       address "ISPEXEC" "SELECT PGM(ISPOPT) PARM(ISPOPT1)"
    end
 end
 if sysvar("SYSISPF") = "ACTIVE" then do
    ZEDSMSG = ""
    ZEDLMSG = "    >>>>>> %TSOOS2 DONE -- PROFILE INTERCOM <<<<<<<"
    ADDRESS "ISPEXEC" "SETMSG MSG(ISRZ000)"
 end
 else do;%CLS; SAY "----- %TSOOS2 DONE -- PROFILE INTERCOM";end;