使用CL指令在IBM i (OS/400)中生成随机数

本示例演示了如何使用CL指令在IBM i (OS/400)上生成随机数，以及如何在程序中调用该CL指令。

/* 生成随机数的CL指令 */
PGM                                                     
   DCL VAR(&RANDNUM) TYPE(*CHAR) LEN(5)                  
   DCL VAR(&SEED) TYPE(*DEC) LEN(15 0) VALUE(0)          
   CALL QCMDEXC('CHGRTGE SBSD(QSYSWRK) SEQ(*RAND)')       
   CALL QCMDEXC('CALL QCMDEXC(''RTVJOBA JOB(&JOBNUM/&JOBNAM/&USR) SYSNAM(&SYS) SYSNAME(&SYSLIB) SYSLIB(&SYSLIB) OUTQ(&OUTQ) OUTQLIB(&OUTQLIB) SRCCTL(&SRCCTL) SRCCTLLIB(&SRCCTLLIB) SRTSEQ(&SRTSEQ)')')         
   MONMSG MSGID(CPF0000)                               
   RTVRAND(&RANDNUM) SEED(&SEED)                       
   END                                                     

/* 调用CL指令，生成随机数并打印 */
DCL VAR(&RANDNUM) TYPE(*CHAR) LEN(5)                        
DCL VAR(&SEED) TYPE(*DEC) LEN(15 0)                         
DCL VAR(&RC) TYPE(*DEC) LEN(15 0) VALUE(0)                  

CALL PGM(MYLIB/MYPROGRAM)                                   
IF COND(&RC *EQ 0) THEN(DO)                                  
  SNDPGMMSG MSG('Random number generated: ' *CAT &RANDNUM)  
ENDDO

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com