H NoMain
D pInteractive PR N
D DummyPrm 1 Options( *Omit )
P pInteractive B Export
D pInteractive PI N
D DummyPrm 1 Options( *Omit )
* Local variables
D RetdInfDs DS
D 4
D 10I 0 Inz( %Size( RetdInfDs ) )
D RiJobType 61 61
D RiTypeInteractive...
D C 'I'
D LenRetdInf S 10I 0 Inz( %Size( RetdInfDs ) )
D FmtName S 8 Inz( 'JOBI0100' )
D QlJobName S 26 Inz( '*' )
D IntJobId S 16 Inz( *Blank )
C Call 'QUSRJOBI'
C Parm RetdInfDs
C Parm LenRetdInf
C Parm FmtName
C Parm QlJobName
C Parm IntJobId
C If RiJobType = RiTypeInteractive
C Return *On
C Else
C Return *Off
C EndIf
P pInteractive E
¤³¤Î¥Ú¡¼¥¸¤Ø¤Î¥³¥á¥ó¥È
PqO1cr I appreciate you sharing this blog post.Really looking forward to read more. Cool.
pUTUDM Very neat blog post.Really looking forward to read more. Great.