|
Hello Michael, Here's a DSM example: **-- Header pecifications: --------------------------------------------** H BndDir( 'QC2LE' ) Option( *SrcStmt ) **-- Global ariables: -------------------------------------------------** D InpBufHdl s 10i 0 D InpDtaPtr s * **-- arameters: -------------------------------------------------------** D Parm Ds D Row 10i 0 D Col 10i 0 D NbrBytRtn 10i 0 D Screen 3564a **-- Prototype for DSM PI's: ------------------------------------------** D GetCsrAdr Pr 10i 0 ExtProc( 'QsnGetCsrAdr' ) D Row 10i 0 D Col 10i 0 D LlvEnvHdl 10i 0 Const Options( *Omit ) D ApiError 1024a Options( *Omit: *VarSize ) ** D CrtInpBuf Pr 10i 0 ExtProc( 'QsnCrtInpBuf' ) D InpBufSiz 10i 0 Const D BufIncSiz 10i 0 Const Options( *Omit ) D BufMaxSiz 10i 0 Const Options( *Omit ) D InpBufHdl 10i 0 Options( *Omit ) D ApiError 1024a Options( *Omit: *VarSize ) ** D ReadScr Pr 10i 0 ExtProc( 'QsnReadScr' ) D NbrBytRead 10i 0 Options( *Omit ) D InpBufHdl 10i 0 Const Options( *Omit ) D CmdBufHdl 10i 0 Const Options( *Omit ) D LlvEnvHdl 10i 0 Options( *Omit ) D ApiError 1024a Options( *Omit: *VarSize ) ** D RtvDta Pr * ExtProc( 'QsnRtvDta' ) D InpBufHdl 10i 0 Const D InpDtaPtr * Options( *Omit ) D ApiError 1024a Options( *Omit: *VarSize ) ** D Beep Pr 10i 0 ExtProc( 'QsnBeep' ) D CmdBufHdl 10i 0 Const Options( *Omit ) D LlvEnvHdl 10i 0 Const Options( *Omit ) D ApiError 1024a Options( *Omit: *VarSize ) ** D DltBuf Pr 10I 0 ExtProc( 'QsnDltBuf' ) D BufferHdl 10I 0 Const D ApiError 1024a Options( *Omit: *VarSize ) **-- D MemCpy Pr * ExtProc( 'memcpy' ) D pOutMem * Value D pInpMem * Value D InpMemSiz 10u 0 Value ** ** **-- ainline: ---------------------------------------------------------** ** C Eval InpBufHdl = CrtInpBuf( 27 * 132 C : *Omit C : *Omit C : *Omit C : *Omit ) ** C CallP GetCsrAdr( Row C : Col C : *Omit C : *Omit ) ** C Eval NbrBytRtn = ReadScr( *Omit C : InpBufHdl C : *Omit C : *Omit C : *Omit ) ** C Eval InpDtaPtr = RtvDta( InpBufHdl C : *Omit C : *Omit ) ** C CallP MemCpy( %Addr( Screen ) C : InpDtaPtr C : NbrBytRtn ) ** C CallP Beep( *Omit C : *Omit C : *Omit ) ** C CallP DltBuf( InpBufHdl: *Omit ) ** C Return ** Best regards, Carsten Flensburg +--- | This is the MI Programmers Mailing List! | To submit a new message, send your mail to MI400@midrange.com. | To subscribe to this list send email to MI400-SUB@midrange.com. | To unsubscribe from this list send email to MI400-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: dr2@cssas400.com +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.