Ching Mood !!

DCL     VAR(&QNAMES) TYPE(*CHAR) LEN(10)
DCL     VAR(&QLIB)   TYPE(*CHAR) LEN(10)
DCL     VAR(&QLEN)   TYPE(*DEC)  LEN(5 0) VALUE(43)
DCL     VAR(&QREC)   TYPE(*CHAR) LEN(256)

DCL     VAR(&QWAIT)  TYPE(*DEC)  LEN(5 0) VALUE(-1)

=====================================

/* 傳送 DTQ  */                                   
            CHGVAR  VAR(&QLEN) VALUE(256)         
            CALL    PGM(QSNDDTAQ) +               
                    PARM(&QNAME &QLIB &QLEN &QREC)

=====================================

/* 接收 DTQ  */                                          
            CHGVAR  VAR(&QLEN) VALUE(256)                
            CALL    PGM(QRCVDTAQ) +                      
                    PARM(&QNAME &QLIB &QLEN &QREC &QWAIT)

=====================================

相互配合使用!!

神奇的&wait = -1 表示,dta必須有被寫入的效果,才能繼續被執行!!!