/* rexx */                                                                      
/*-------------------------------------------------------------------*/         
/*                                                                   */         
/*                        REXX Exec : JOBNAME                        */         
/*                                                                   */         
/*  Description : Returns the jobname of the task running this exec  */         
/*                                                                   */         
/*  Created on : 1 Apr 2018                                          */         
/*  Created by : KEVIN FERGUSON                                      */         
/*             : Userid(MIT001)                                      */         
/*             : using ABBYDALE.XFER.REXX(JOBNAME)                   */         
/*                                                                   */         
/*  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)                                               
TIOT = storage(D2X(C2D(TCB)+12),4)     /* TCBTIO */                             
job = strip(storage(D2X(C2D(TIOT)),8)) /* TIOCNJOB */                           
say job                                                                         
exit                                                                            
/*-------------------------------------------------------------------*/         
/*                          End of JOBNAME                           */         
/*-------------------------------------------------------------------*/