*DECK NP$GJO
*IF DEF,XFR 
          IDENT  NP$GJO 
  
          ENTRY  NP$GJO 
          SST 
 OPL      XTEXT  COMCMAC
  
**        NP$GJO - GET JOB ORIGIN FROM O.S. 
* 
*         L.T. NGUYEN        84/04/11.
  
  
**        NP$GJO RETURNS JOB ORIGIN TO NETXFR.
  
*         CALL FORMAT 
*                 NP$GJO(ORIGIN)
* 
*         ENTRY - NONE. 
* 
* 
*         EXIT   ORIGIN = JOB ORIGIN FROM O.S.
* 
*         USES   A - 1,2,5,6. 
*                B - 1. 
*                X - 1,2,4,5,6,7. 
* 
* 
*         MACROS GETJO. 
  
 NP$GJO   DATA   0           ENTRY/EXIT 
          GETJO  RESPW
          MX0    42 
          SA2    RESPW
          BX7    -X0*X2 
          SA7    X1          RESPONSE TO CALLER 
          EQ     NP$GJO      RETURN 
  
 RESPW    BSSZ   1           INFORMATION RETURN AREA
          END 
  
*ENDIF
