IBM Version 4 Universal Remote User Manual


  Open as PDF
of 505
 
Source for the CL03 Program
The source for CL03 follows:
/ᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ/
/ᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ/
/ᑍ ᑍ/
/ᑍ Program Name: CL3 ᑍ/
/ᑍ ᑍ/
/ᑍ Programming Language: CL ᑍ/
/ᑍ ᑍ/
/ᑍ Description: Main driver program for initial version of ᑍ/
/ᑍ MI program MICRTPG. This program creates a ᑍ/
/ᑍ ᑍUSRSPC, calls CL4 to load MI source from ᑍ/
/ᑍ a ᑍSRC physical file into the ᑍUSRSPC, and ᑍ/
/ᑍ then calls MICRTPG to create MI programs. ᑍ/
/ᑍ ᑍ/
/ᑍ Header Files Included: None ᑍ/
/ᑍ ᑍ/
/ᑍ ᑍ/
/ᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ/
PGM PARM(&FILE &MBR)
DCL VAR(&FILE) TYPE(ᑍCHAR) LEN(1)
DCL VAR(&MBR) TYPE(ᑍCHAR) LEN(1)
DCL VAR(&SPCNAM) TYPE(ᑍCHAR) LEN(2) +
VALUE(' ᑍCURLIB ')
DCL VAR(&SPCEXTATR) TYPE(ᑍCHAR) LEN(1) VALUE(' ')
DCL VAR(&SPCSIZ) TYPE(ᑍCHAR) LEN(4) +
VALUE(X'1')
DCL VAR(&SPCINTVAL) TYPE(ᑍCHAR) LEN(1) VALUE(X'')
DCL VAR(&SPCSPCAUT) TYPE(ᑍCHAR) LEN(1) +
VALUE('ᑍALL')
DCL VAR(&SPCTXTDSC) TYPE(ᑍCHAR) LEN(5) VALUE(' ')
DCL VAR(&SPCRPLOPT) TYPE(ᑍCHAR) LEN(1) +
VALUE('ᑍYES')
DCL VAR(&ERRCOD) TYPE(ᑍCHAR) LEN(4) +
VALUE(X'')
DCL VAR(&SPCDMN) TYPE(ᑍCHAR) LEN(1) VALUE('ᑍUSER')
DCL VAR(&BINOFFSET) TYPE(ᑍCHAR) LEN(4) +
VALUE(X'1')
CHGVAR VAR(%SST(&SPCNAM 1 1)) VALUE(&MBR)
CALL PGM(QUSCRTUS) PARM(&SPCNAM &SPCEXTATR +
&SPCSIZ &SPCINTVAL &SPCSPCAUT &SPCTXTDSC +
&SPCRPLOPT &ERRCOD &SPCDMN)
OVRDBF FILE(MISRC) TOFILE(&FILE) MBR(&MBR)
CALL PGM(CL4) PARM(&MBR &BINOFFSET)
CALL PGM(MICRTPG) PARM(&MBR &BINOFFSET)
ENDPGM
Source for the CL04 Program
The source for CL04 follows:
/ᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ/
/ᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ/
/ᑍ ᑍ/
/ᑍ Program Name: CL4 ᑍ/
/ᑍ ᑍ/
/ᑍ Programming Language: CL ᑍ/
Chapter 7. Machine Interface Programming 7-13
 previous next