PGM PARM(&PAGESIZEP) /*-------------------------------------------------------------------*/ /* TESTCMD1 : ブリンターの開始 1 */ /*-------------------------------------------------------------------*/ DCL VAR(&PAGESIZEP) TYPE(*CHAR) LEN(19) DCL VAR(&PAGESIZE) TYPE(*CHAR) LEN(17) DCL VAR(&FORM) TYPE(*CHAR) LEN(7) DCL VAR(&DIRECTION) TYPE(*CHAR) LEN(10) DCL VAR(&PRMSU) TYPE(*CHAR) LEN(2) /* 2 進数 */ /*( PAGESIZE パラメータの取得 )*/ CHGVAR VAR(&PRMSU) VALUE(%SST(&PAGESIZEP 1 2)) IF COND(%BIN(&PRMSU) *EQ 1) THEN(DO) CHGVAR VAR(&FORM) VALUE(%SST(&PAGESIZEP 3 7)) ENDDO ELSE CMD(DO) CHGVAR VAR(&FORM) VALUE(%SST(&PAGESIZEP 3 7)) CHGVAR VAR(&DIRECTION) VALUE(%SST(&PAGESIZEP 10 10)) ENDDO CHGVAR VAR(&PAGESIZE) VALUE(&FORM *CAT &DIRECTION) SNDPGMMSG MSG('PAGESIZE = ' *CAT &PAGESIZE) + MSGTYPE(*DIAG) ENDPGM