CALL PGM(&LPROGRAM) PARM(&TY@)

waisyn

CALL       PGM(&LPROGRAM) PARM(&TY@)

请教下，CALL的应该是程序，为什么这里写的是变量？

pantierui

在CALL程序之前程序名一定要确定下来并且一定要有
你的这种情况应该是根据业务来的。

waisyn

LPROGRAM是另外一个PF定义的字段

0001.00      A          R RHGLCD                                          
0002.00      A            LNO            1          COLHDG(' Á÷Ë®ºÅ ')   
0003.00      A            LATTR          1          COLHDG(' ÊôÐÔ ')      
0004.00      A            LPROGRAM      10          COLHDG(' ³ÌÐòÃû ')   
0005.00      A            LMAR          40O         COLHDG(' ±¸×¢ ')      
0006.00      A          K LATTR                                          
0007.00      A          K LNO

waisyn

主程序是这样的：
0001.00              PGM        PARM(&FL &TL &TY@)                           
0002.00              DCL        VAR(&FL) TYPE(*CHAR) LEN(1)                  
0003.00              DCL        VAR(&TL) TYPE(*CHAR) LEN(1)                  
0003.01              DCL        VAR(&TY@) TYPE(*CHAR) LEN(1)                  
0006.00              DCLF       FILE(HGLCD)                                   
0007.00              DCLDTAARA  DTAARA(STKFMSG)                              
0010.00              RCVDTAARA  DTAARA(STKFMSG)                              
0011.00              IF         COND(&STKFMSG *EQ ' ') THEN(DO)               
0012.00  LOOP:       RCVF       DEV(*FILE) RCDFMT(RHGLCD)                     
0012.01              MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(OUT))         
0017.01              IF         COND(&LNO *GE &FL *AND &LNO *LE &TL) THEN(DO)
0017.02              CHGDTAARA  DTAARA(STKFMSG) VALUE('RUN')                  
0018.00              CALL       PGM(&LPROGRAM) PARM(&TY@)

bonbonben

这个程序不断的读取HGLCD里面的纪录，而HGLCD里面的LPROGRAM字段包含的应该就是要被调用到的程序名称，&TY@是上层程序传入的参数，并且会在调用下层程序的时候继续使用这个参数。

fairyboy

这样写也很正常的

举个例子:
我有一个PF文件，里面记录着一个程序各个阶段需要运行的程序名,

那么我CALL 程序名时,程序名是由PF中记录的值来运行,以后如果修改程序名,直接修改PF中的记录就可以了.

这样看具体情况了.