/* rexx */                                                                      
/*-------------------------------------------------------------------*/         
/*                                                                   */         
/*                         REXX Exec : JOBID                         */         
/*                                                                   */         
/*  Description : Returns the jobid of the task running this exec.   */         
/*                                                                   */         
/*  Created on : 1 Apr 2018                                          */         
/*  Created by : KEVIN FERGUSON                                      */         
/*             : Userid(MIT001)                                      */         
/*             : using ABBYDALE.XFER.REXX(JOBID)                     */         
/*                                                                   */         
/*  Called by :                                                      */         
/*                                                                   */         
/*  Calls :                                                          */         
/*                                                                   */         
/*  Change Activity :                                                */         
/*                                                                   */         
/*                ŠCopyright of Abbydale Systems LLC.                */         
/*                                                                   */         
/*-------------------------------------------------------------------*/         
CVT = storage(10,4)      /* FLCCVT-PSA DATA AREA */                             
TCBP = storage(D2X(C2D(CVT)),4)         /* CVTTCBP */                           
TCB = storage(D2X(C2D(TCBP)+4),4)                                               
JSCB = STORAGE(D2X(C2D(TCB)+180), 4)                                            
SSIB = STORAGE(D2X(C2D(JSCB)+316), 4)                                           
jobno = STORAGE(D2X(C2D(SSIB)+12), 8)                                           
say jobno                                                                       
exit                                                                            
/*-------------------------------------------------------------------*/         
/*                           End of JOBID                            */         
/*-------------------------------------------------------------------*/         
  