QCDRCMDD (rpgle)
Here's a sample program you can place in debug and have a look at the API output:
**-- API Error Data Structure: -----------------------------------------**
D ApiError Ds
D AeBytPro 10i 0 Inz(%Size(ApiError))
D AeBytAvl 10i 0
D 1a
D AeExcpId 7a
D AeExcpDta 126a
**-- Global variables: -------------------------------------------------**
D OutStrLenRt s 10i 0
D NotSup s 10i 0
D FB s 10i 0 Dim( 3 )
**-- Command return variable: ------------------------------------------**
D CdCmdd0100 Ds
D CdBytRtn 10i 0
D CdBytAvl 10i 0
D CdCmdXml 10240a
**-- Retrieve Command Text: --------------------------------------------**
D RtvCmdTxt Pr ExtPgm( 'QCDRCMDD' )
D RcCmdNamQ 20a Const
D RcDst 10i 0 Const
D RcDstFmt 8a Const
D RcRcvVar 32767a Options( *VarSize )
D RcRcvFmt 8a Const
D RcError 32767a Options( *VarSize )
**-- Convert String: ----------------------------------------------------**
D CvtString Pr ExtPgm( 'QTQCVRT' )
D CsInpCcsId 10i 0 Const
D CsInpStrTyp 10i 0 Const
D CsInpStr 32767a Const Options( *VarSize )
D CsInpStrSiz 10i 0 Const
D CsOutCcsId 10i 0 Const
D CsOutStrTyp 10i 0 Const
D CsOutCvtAlt 10i 0 Const
D CsOutStrSiz 10i 0 Const
D CsOutStr 32767a Options( *VarSize )
D CsOutStrLenRt 10i 0
D CsNotSup 10i 0
D CsFB 10i 0 Dim( 3 )
**
**-- Mainline: ---------------------------------------------------------**
**
C CallP RtvCmdTxt( 'WRKJOB QSYS '
C : %Size( CdCmdd0100 )
C : 'DEST0100'
C : CdCmdd0100
C : 'CMDD0100'
C : ApiError
C )
**
C CallP CvtString( 1208
C : 0
C : CdCmdXml
C : CdBytRtn
C : 37
C : 0
C : 0
C : CdBytRtn
C : CdCmdXml
C : OutStrLenRt
C : NotSup
C : FB
C )
**
C Return
Thanks to Carsten Flensburg
阅读(1083) | 评论(0) | 转发(0) |