AS/400上发送短信命令的简单封装[clp]

时间：2016-10-28 ┊ 阅读：7,441 次 ┊ 标签: 编程 , 命令 , 短信

机器上一直用一个很复杂的命令来发送短信到手机上，真心不容易记。近来有空就自己改写了一翻重新封装起来，很方便的用上了。

现在只需要下面一句简单的命令就可以发送短信到我们手机上了。哈哈。原谅我用xxx替换了隐私信息。

SNDSMS SENDTO(xxxxxx) MESSAGE('good test pager by Kevin.')

CLP的源码：

PGM        PARM(&SENDTO &MESSAGE)                        
DCL        VAR(&SENDTO)  TYPE(*CHAR) LEN(17)             
DCL        VAR(&MESSAGE) TYPE(*CHAR) LEN(200)            
DCL        VAR(&MSGID)   TYPE(*CHAR) LEN(7)              
XXXPROD/XXXXXMSG SENDTO(&SENDTO) MESSAGE(&MESSAGE)       
MONMSG     MSGID(HMC0000) EXEC(DO)                       
RCVMSG     MSGID(&MSGID)                                 
IF         COND(&MSGID *EQ 'xxxxxxx') THEN(DO)           
SNDPGMMSG  MSG('Device' |> &SENDTO |> 'not found, short +
             message not sent.')                         
GOTO       CMDLBL(END)                                   
ENDDO                                                    
ELSE DO                                                  
SNDPGMMSG  MSG('Error encountered, the code is' |> +     
             &MSGID || ', please check it in Xxxxxxx.')  
GOTO       CMDLBL(END)                                   
ENDDO                                                    
ENDDO                                                    
RCVMSG     MSGTYPE(*COMP) MSGID(&MSGID)                  
GOTO       CMDLBL(OK)                                 
                                                      
OK:                                                   
SNDPGMMSG  MSG('Send short message to' |> &SENDTO |> +
             'success!') MSGTYPE(*COMP)               
                                                      
END:                                                  
ENDPGM

CMD的源码：

CMD        PROMPT('SEND SHORT MESSAGE')                 
                                                        
PARM       KWD(SENDTO) TYPE(*CHAR) LEN(17) +            
             DFT(AVPRODNITE) PROMPT('TO MESSAGE DEVICE')
                                                        
PARM       KWD(MESSAGE) TYPE(*CHAR) LEN(200) +          
             PROMPT('MESSAGE TEXT')

另外我还给命令加了帮助的提示文档：

Member Type Text
SNDSMS UIM Send Short Message
源码太长就不在这添加了，以后有空讲一下命令的帮助面板实现方法。