Filter
Top Products
/ᑍ ᑍ/
/ᑍ Description: Load a source physical file member into the ᑍ/
/ᑍ ᑍUSRSPC named &MBR. ᑍ/
/ᑍ ᑍ/
/ᑍ ᑍ/
/ᑍ Header Files Included: None ᑍ/
/ᑍ ᑍ/
/ᑍ ᑍ/
/ᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ/
PGM PARM(&MBR &BINOFFSET)
DCLF FILE(MISRC)
DCL VAR(&MBR) TYPE(ᑍCHAR) LEN(1)
DCL VAR(&BINOFFSET) TYPE(ᑍCHAR) LEN(4)
DCL VAR(&OFFSET) TYPE(ᑍDEC) LEN(8 ) VALUE(1)
DCL VAR(&LENGTH) TYPE(ᑍCHAR) LEN(4) +
VALUE(X'5')
DCL VAR(&SPCNAM) TYPE(ᑍCHAR) LEN(2) +
VALUE(' ᑍLIBL ')
CHGVAR VAR(%SST(&SPCNAM 1 1)) VALUE(&MBR)
LOOP: RCVF
MONMSG MSGID(CPF864) EXEC(GOTO CMDLBL(DONE))
CALL PGM(QUSCHGUS) PARM(&SPCNAM &BINOFFSET +
&LENGTH &SRCDTA '')
CHGVAR VAR(&OFFSET) VALUE(&OFFSET + 8)
CHGVAR VAR(%BIN(&BINOFFSET)) VALUE(&OFFSET)
GOTO CMDLBL(LOOP)
DONE: ENDPGM
Source for the CL05 Program
The source for CL05 follows:
/ᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ/
/ᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ/
/ᑍ ᑍ/
/ᑍ Program Name: CL5 ᑍ/
/ᑍ ᑍ/
/ᑍ Programming Language: CL ᑍ/
/ᑍ ᑍ/
/ᑍ Description: Create an MI program using the QPRCRTPG API. ᑍ/
/ᑍ ᑍ/
/ᑍ ᑍ/
/ᑍ Header Files Included: None ᑍ/
/ᑍ ᑍ/
/ᑍ ᑍ/
/ᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ/
PGM PARM(&SRCMBR &MIPGMSRC &MIPGMSRCSZ)
DCL VAR(&SRCMBR) TYPE(ᑍCHAR) LEN(1)
DCL VAR(&MIPGMSRC) TYPE(ᑍCHAR) LEN(1)
DCL VAR(&MIPGMSRCSZ) TYPE(ᑍCHAR) LEN(4)
DCL VAR(&PGMNAM) TYPE(ᑍCHAR) LEN(2) +
VALUE(' ᑍCURLIB ')
DCL VAR(&PGMTXT) TYPE(ᑍCHAR) LEN(5) +
VALUE(' ')
DCL VAR(&PGMSRCF) TYPE(ᑍCHAR) LEN(2) +
VALUE('ᑍNONE')
DCL VAR(&PGMSRCM) TYPE(ᑍCHAR) LEN(1) VALUE(' ')
DCL VAR(&PGMSRCCHG) TYPE(ᑍCHAR) LEN(13) VALUE(' ')
7-14 System API Programming V4R1