Re: Hooking display file I/O

["Leif Svalgaard" <leif@xxxxxxxx>]

From: Steve Richter <srichter@AutoCoder.com>
> Leif,
> I respect your technical knowledge and appreciate the work that you do very
> much, but your coding style ... , well I hope you dont mind if I post my
> version of what you just posted <g>

I have followed your lead and ammended your version:
>
> /* spcptr to the sept.  */
> DCL SPCPTR pSept  BASPCO POS(1) ;
/* based on the process comm object in position 1 */
/* note that a semicolon acts as statement terminator */
>
> /* The array of system pointers that reside in the Sept.  */
> DCL SYSPTR SeptPtrs(1000)  BAS( pSept ) ;
/* the number after SeptPtrs declares this to be an array of 1000
elements */
>
> /* redefine the array of sysptrs as a char(16000) fld   */
> DCL DD SeptContents CHAR(16000) BAS(pSept) ;
/* the length of a field is given in parentheses following
the type of the field (which is CHAR meaning 8-bit characters */
>
> /* char fld within auto storage of this pgm, that for demo purposes, the */
> /* ptrs from the ibm sept will be copied to.     */
> DCL DD YourSeptContents CHAR(16000) AUTO BDRY(16) ;
/* the AUTO means that the data will be local to this invocation and
that your job will die upon return from the program. The BDRY
means that the data will start on a byte address evenly divisible by 16 */


etc...




+---
| 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
+---