请教，CL问题

dfangyang

向高手请教：

程序设计是通过读一张表db1，用CL程序备份db1中所有文件。

使用连接符“BCAT”什么的把“file1 file2 file3”连接起来，如果 file1,file2文件名不够10位长CL程序如何处理？

dfangyang

大家有空帮忙看看吧！

qingzhou

原帖由 dfangyang 于 2006-9-18 16:36 发表
向高手请教：

程序设计是通过读一张表db1，用CL程序备份db1中所有文件。

使用连接符“BCAT”什么的把“file1 file2 file3”连接起来，如果 file1,file2文件名不够10位长CL程序如何处理？

db1保存了需要备份的文件的名称等属性，然后你的CLP程序是先在开头DCLF这个db1，然后再RCVF这个db1的记录格式名，然后再执行备份即可。

不是很明白为什么要用BCAT连接file1,file2,flie3...呢？
真要取( 'file1' *bact  'file2'  *bcat  'file3' )连接起来的名称，可以CLP程序开头定义一个长度大些的字符型变量存放。

dfangyang

[qoute]不是很明白为什么要用BCAT连接file1,file2,flie3...呢？[/qoute]

因为db1这个文件内容很多，可能近百个，所以想read db1，以后维护db1就简单了。

[qoute]取( 'file1' *bact  'file2'  *bcat  'file3' )连接起来的名称，可以CLP程序开头定义一个长度大些的字符型变量存放。 [/qoute]

已经定义了，结果程序在savobj 时出错，dbg原因是*bcat   db1 中的 file1 或者 file2 文件名称有的长度不足10位，而CL程序辨别不出是两个文件，显示为‘file1 fi’le2 ，应该是‘file1  file2 ’


qingzhou ， 不知道我解释清楚了吗？

qingzhou

你看CLP程序这样书写是否可行？
或者你帖出你的代码看看？

1. 
   
2.    PGM
   
3.             DCL         VAR(&MSGDTA) TYPE(*CHAR) LEN(80)
   
4.             DCL         VAR(&MSGID) TYPE(*CHAR) LEN(7)
   
5.             DCL         VAR(&OBJNAME) TYPE(*CHAR) LEN(10)
   
6.             DCLF        FILE(db1)
   
7. 
   
8.             MONMSG      MSGID(CPF0000) EXEC(GOTO CMDLBL (ERROR))
   
9. 
   
10.    READ:    RCVF        RCDFMT (db1_fmtname)
    
11.             MONMSG      MSGID(CPF0864) EXEC(GOTO CMDLBL (END))
    
12. 
    
13.             SAVOBJ OBJ(&OBJNAME) LIB(LIB) DEV(TAP01) SAVACT(*LIB)
    
14. 
    
15.             GOTO READ
    
16. 
    
17.    ERROR:   RCVMSG      MSGTYPE(*EXCP)  MSGDTA(&MSGDTA) +
    
18.                           MSGID(&MSGID)
    
19.             MONMSG      MSGID(CPF0000)
    
20.             SNDPGMMSG   MSGID(&MSGID) MSGF(QCPFSMG) MSGDTA(&MSGDTA) +
    
21.                           MSGTYPE(*ESCAPE)
    
22.             MONMSG      MSGID(CPF0000)
    
23. 
    
24.    END:     ENDPGM

复制代码

rosteedluo

SAVOBJ OBJ(&OBJNAME) LIB(LIB) DEV(TAP01) SAVACT(*LIB)

备份到磁带中是可以。因为可以写很多的段。

但是备份到SAVF中怎么做？

比如，DB1中有两个记录，AA和BB。

备份AA的时候成功，但是BB想备份进来的时候会报错，提示原SAVE FILE 已经有数据了。

如何可以将DB1中的若干个object一次备份到同一个SAVF中呢？

CODE：
             PGM        PARM(&LIBNAME)                                
             DCL        VAR(&DATE) TYPE(*CHAR) LEN(6)                 
             DCL        VAR(&TABNAME) TYPE(*CHAR) LEN(10)            
             DCL        VAR(&LIBNAME) TYPE(*CHAR) LEN(10)            
             DCL        VAR(&FILENAME) TYPE(*CHAR) LEN(10)            
             DCLF       FILE(PAICKFOBJ/TABP1)                        
             RTVSYSVAL  SYSVAL(QDATE) RTNVAR(&DATE)                  
             CHGVAR     VAR(&FILENAME) VALUE('LJ' *CAT &DATE)         
             MONMSG     MSGID(CPF2103)                                
             CRTSAVF    FILE(PAICSAVF/&FILENAME) AUT(*ALL)            
             MONMSG     MSGID(CPF7302)                                
             CLRSAVF    FILE(PAICSAVF/&FILENAME)                     
READ:       RCVF       RCDFMT(TABPR)                                 
            MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(END))         
            SAVOBJ     OBJ(&TABNAME) LIB(&LIBNAME) DEV(*SAVF) +      
                         SAVF(PAICSAVF/&FILENAME) SAVACT(*SYNCLIB) +
                         DTACPR(*YES)                                
            GOTO       CMDLBL(READ)                                 
END:        ENDPGM

[ 本帖最后由 rosteedluo 于 2006-9-19 11:18 编辑 ]

rosteedluo

TABP1内容：

Columns . . . :    1  71           Browse                      PAICOFSRC/KFSRC
SEU==>                                                                   TABP1
FMT PF .....A..........T.Name++++++RLen++TDpB......Functions++++++++++++++++++
        *************** Beginning of data *************************************
0001.00      A          R TABPR                                                
0002.00      A            TABNAME       10A         COLHDG('TABLE NAME')        
        ****************** End of data ****************************************

rosteedluo

没人能回答么？？？

xuguopeng

保存到SAVF本身就不支持你那样的操作,只有磁带才可以.

可以换个思路,把你要备份的东西全都拷贝到一个临时LIB里,然后SAVOBJ,再把临时LIB清空

pacj

你看一下下面的程序是不是你希望的那样:
PGM                                                            
          DCL        VAR(&FIL1) TYPE(*CHAR) LEN(10)            
          ...    有几个文件就定义几个   
          DCL        VAR(&DATE) TYPE(*CHAR) LEN(6)              
          DCL        VAR(&FD)   TYPE(*CHAR) LEN(2)              
          DCL        VAR(&FS)   TYPE(*DEC)  LEN(2 0)                           
          CHGDTAARA  DTAARA(*LDA (229 1)) VALUE('A')            
          RTVSYSVAL  SYSVAL(QDATE) RTNVAR(&DATE)               
          CHGDTAARA  DTAARA(*LDA (300 5)) VALUE(%SST(&DATE 2 5))
          CHGVAR     VAR(&FS) VALUE(0)                          
CHGDTAARA:  CHGVAR     VAR(&FD) VALUE(&FS)                           
            CHGDTAARA  DTAARA(*LDA (305 2)) VALUE(&FD)               
            CHGVAR     VAR(&FIL1) VALUE('XXX' *TCAT %SST(*LDA 300 7))
            ...
            CHKOBJ     OBJ(Library/&FIL1) OBJTYPE(*FILE)               
            MONMSG     MSGID(CPF9801) EXEC(GOTO CMDLBL(NEXT))        
            CHGVAR     VAR(&FS) VALUE(&FS + 1)                       
            GOTO       CMDLBL(CHGDTAARA)                             
NEXT:  CRTSAVF    FILE(Library/&FIL1)                             
             ...                             
             SAVLIB     LIB(你所要保存的内容) DEV(*SAVF) SAVF(TFLIB/&FIL1)     
             ...   
                                       
ENDPGM