Skip to main content

10.5.9.4. 用例 1 – 字符串通信

10.5.9.4. 用例 1 – 字符串通信​

 

该作业程序用远程PC来传输以请求传输作业文件为内容的字符串消息，以字符串消息接收其结果。

 

_TEINPUT=0 'INPUT结束字符

     '

     '以太网设置 -----------

     ENET1.IP="192.168.1.172"

     ENET1.LPORT=500

     ENET1.RPORT=7000

     ENET1.OPEN 1

     CLR_RBUF ENET1

     '

     '请求文件传输

     PRINT ENET1,"LDFILE ";V200%; ‘V200%为所要请求的作业编号

 

     '等待响应结果

     INPUT ENET1,V20$,8,*NO_RESP

     ENET1.OPEN 0

 

     '分析结果

     V21$=LEFT$(V20$,11)

     IF V21$<>"LDFILE RES=" THEN *INV_RES

     V21$=MID$(V20$,12,4)

     V201%=VAL(V21$) '返回值

     IF V201%<0 THEN *ERR_RES

     '

     '调用sub机器人作业

     CALL V200%

     END

     '

     '例外处理 -----------

     *NO_RESP

     PRINT #0,"没有对LDFILE请求的响应。"

     END

     *INV_RES

     PRINT #0,"此为无效的LDFILE响应。"

     END

     *ERR_RES

     PRINT #0,"LDFILE响应错误代码=";V201%

     END