*=====================================================================
* Job Procedures
*
* Copyright (C) Julian Monypenny 1997
*=====================================================================
H NoMain
*---------------------------------------------------------------------
* Global definitions
*---------------------------------------------------------------------
/Copy ToolkitCpy,ApiErrH
/Copy ToolkitCpy,JobH
/Copy ToolkitCpy,StdTypH
*=====================================================================
P GetJobInf B Export
*=====================================================================
D Pi Like( LglTyp )
D JobNam Like( NamTyp ) Value
D JobUsr Like( NamTyp ) Value
D JobNbr 6 Value
D JobInf Like( JobInfDs )
D QJobNam S 26
D InfFmt S Like( ApiFmtTyp )
D Inz( 'JOBI0100' )
C Reset JobInfDs
C Eval QJobNam = JobNam + JobUsr + JobNbr
C Eval JobInfSiz = %Size( JobInfDs )
C Eval JobInf = JobInfDs
C Call 'QUSRJOBI'
C Parm JobInf
C Parm JobInfSiz
C Parm InfFmt
C Parm QJobNam
C Parm JobIntId
C Parm ApiErrDs
C Return ( ApiErrLen = 0 )
P E
|
| 
