CPYHSTF和CPYF有什么不同吗？

JustinCaribe

如题

digitalchina

CPYHSTF 我这里没有,是自己写的命令吧.

huangxkst

CPYHSTF是做什么用的???没有找到!

hehwltt

CPYHSTF是将文件拷贝到自己定义的历史文件库。
该命令默认已经指定了库名。
不是IBM的命令，应该是自己做的命令吧

JustinCaribe

是自己做的，之前不知道，只是看到同事在用

ux400

我写了个CPYPF：
CMD：
/* CPYPF --- AS/400通用程序命令：复制PF,类似CRTDUPOBJ命令              */

CPYPF:      CMD        PROMPT('复制PF,类似CRTDUPOBJ')
             PARM       KWD(FILE_FROM) TYPE(QUAL1) MIN(1) FILE(*IN) +
                          PROMPT('源物理文件名')
             PARM       KWD(FILE_TO) TYPE(QUAL1) MIN(1) FILE(*IN) +
                          PROMPT('目标物理文件名')
             PARM       KWD(DEL_OLD) TYPE(*CHAR)  RSTD(*YES) +
                          SPCVAL(*YES *NO)  MIN(1) +
                          PROMPT('是否先删除旧目标')
             PARM       KWD(DUP_DATA) TYPE(*CHAR)  RSTD(*YES) +
                          SPCVAL(*YES *NO)  MIN(1) +
                          PROMPT('是否复制数据')

QUAL1:      QUAL       TYPE(*NAME) LEN(10) RSTD(*NO)
             QUAL       TYPE(*NAME) LEN(10) RSTD(*NO) DFT(*LIBL) +
                          SPCVAL((*LIBL '*LIBL') (*CURLIB +
                          '*CURLIB')) PROMPT('库名')

oldv

原帖由 ux400 于 2008-12-31 17:26 发表
我写了个CPYPF：
CMD：
/* CPYPF --- AS/400通用程序命令：复制PF,类似CRTDUPOBJ命令              */

CPYPF:      CMD        PROMPT('复制PF,类似CRTDUPOBJ')
             PARM       KWD(FILE_FROM) ...

这个cl程序不完整吧？

ux400

原帖由 oldv 于 2009-1-4 17:23 发表


这个cl程序不完整吧？

这不是 CL 程序，是 CMD