怎么给表批量关联日志？

lvxinzhi

我们现在复制出一个表来，但发现复制过来的表都没有与日志文件进行关联，因为库中有300多个表，如果手工一个一个的加有点慢，请问有没有别的方法批量增加日志

roden

写个CL程序

qingzhou

简便的处理办法是STRPDM-9. Work with user-defined options自定义一个命令，比如：J，其对应的COMMAND是：
STRJRNPF FILE(LIB/&N) JRN(JRNLIB/JRN) IMAGES(*BOTH)

然后通过STRPDM-2. Work with objects过滤出所在LIB下的PF-DTA数据文件，再在选项前用“J”， F13=Repeat 复制，执行即可。

lvxinzhi

你好，能否说的再详细点，我是一个新手，第一次这么用

                    Specify Option File to Work With                 
                                                                     
ype choices, press Enter.                                            
                                                                     
File  . . . . . . . . . .   QAUOOPT      Name, F4 for list         
                                                                     
   Library . . . . . . . .     QGPL       *LIBL, *CURLIB, name      
                                                                     
Member  . . . . . . . . .   QAUOOPT      Name                       

File 是要新建一个文件名？还是库中已经存在的
Member 输入什么项
谢谢

lvxinzhi

IMAGE(*BOTH)
该怎样解释

qingzhou

1。STRPDM-9. Work with user-defined options，直接敲回车，然后按F6创建自定义快捷方式。

2。IMAGE(*BOTH)
*BOTH                                                     
    The system writes both before and after images to the
    journal for changes to records in this file.

tme45

似乎和CL里面执行没什么区别

qingzhou

CLP需要一个个去写，去指定。

STRPDM-9直接定义好快捷方式，然后在STRPDM以LIB为单位过滤出需要处理的数据文件，第一个数据文件用“J”自定义好的选项，然后F13复制，回车即可。

就好比用“C”表示CALL，用“SP”表示wrksplf查看splf。

很方便的，我经常用，写CLP一个个去复制，挺麻烦和罗嗦的。

lvxinzhi

Press Enter to continue.                                 
                                                         
   Option  . . . . . . . . :   DM                        
                                                         
   Command . . . . . . . . :   DSPMSG                     
                                                         

我定义了这么一条命令，而在下面界面里总是无法调用
MAIN                           OS/400 Main Menu   
                                                   
Select one of the following:                       
                                                   
     1. User tasks                                 
     2. Office tasks                              
     3. General system tasks                       
     4. Files, libraries, and folders              
     5. Programming                                
     6. Communications                             
     7. Define or change the system               
     8. Problem handling                           
     9. Display a menu                             
    10. Information Assistant options              
    11. Client Access/400 tasks                    
                                                   
    90. Sign off                                   
                                                   
Selection or command                              
===> DM                                            
                                                   
F3=Exit   F4=Prompt   F9=Retrieve   F12=Cancel   F1
F23=Set initial menu                              
Command DM in library *LIBL not found.            

总是提示Command DM in library *LIBL not found.  
如果我用CALL QGPL/DM　就出现
Command DM in library QGPL not found.
请问怎样执行定义好的别名命令
谢谢

tme45

只要能用WRKOBJ选出，在CL中也就可以不用一个一个写啦