/* REXX -- Invoke @SCRIPT for SOP work outside of tech.libr2.text*/
/* David McRitchie, "The REXX Macros Toolbox", July 15, 1992 */
/*   @SOP    is a companion to @SCRIPT clist                */
/*   @DOCJWK is a companion to @SCRIPT clist                */
Address "ISREDIT"
"MACRO (TOKEN)"
  /* MACRO CLIST @SOP has been installed in SYS1.TSOCLIST   */
  /* USED FROM WITHIN EDIT OF outside of TECH.LIBR2.TEXT    */
  /*   to pull in any members from TECH.LIBR2.TEXT that are */
  /*   not in the current library                           */
      "(MEMBERX) = MEMBER "
      "(DSNX)    = DATASET"
      inputdsn = ''
 Token = translate(token);
 if token = "COMPARE" | token = "@COMPARE" then do
    "@COMPARE TECH.LIBR2.TEXT"
    return
 end
 Address "TSO" "ALLOCATE DDNAME(TEXTLIB) DA('"DSNX"'" ,
    "'TECH.LIBR2.TEXT') SHR REUSE"
  IF RC /= 0 THEN DO
     SAY "SORRY,  Cannot allocate TEXTLIB datasets"
     EXIT 12
  END
  if substr(memberx,1,1) = "S" then
     if datatype(substr(memberx,2,4)) = "NUM"
     then do
       inputdsn = DSNX||'(A'||substr(memberx,2,4)||')'
       x = sysdsn("'"inputdsn"'"); if x /= "OK" then do
          inputdsn = 'TECH.LIBR2.TEXT'||'(A'||substr(memberx,2,4)||')'
          x = sysdsn("'"inputdsn"'"); if x /= "OK" then inputdsn=''
       end
     end
  if inputdsn = '' then "@SCRIPT" TOKEN
  else "@SCRIPT" "INPUT("inputdsn")" TOKEN
  Address "TSO" "FREE DDNAME(TEXTLIB)"
  address "ISREDIT"
  "LINE_BEFORE .ZF = NOTELINE '  via @SOP" TOKEN"'"