怎样把一个Physical file 档案里面的数据倒入到SPOOL FILE中。

jamesten

怎样把一个Physical file 档案里面的数据倒入到SPOOL FILE中。

roden

方法比较多，用query可以把结果送到spool file中去。
要用程序做更不成问题，不知道有没有一个命令可以直接做到。

xuguopeng

用CPYF命令可以做到 但只能拷贝到132宽的SPLF 如果要其他宽度 可能需要用程序或QUERY了

Eagle_wolf

可以利用api  QSPPUTF

Eagle_wolf

crtcmd  cmd(putsplf)   pgm(qspputf)

1. PUTSPLF: CMD PROMPT('PUT SPOOLED FILE')                        
   
2.          PARM KWD(FROMFILE) TYPE(Q1) RTNVAL(*NO) MIN(1) +      
   
3.          MAX(1) FILE(*OUT) PROMPT('FROM FILE')                  
   
4.                                                                
   
5.          PARM KWD(OUTQ) TYPE(Q1) RTNVAL(*NO) MIN(1) +           
   
6.          MAX(1) FILE(*OUT) PROMPT('OUTPUT QUEUE')               
   
7.                                                                
   
8.          PARM KWD(FROMMBR) TYPE(*NAME) LEN(10) RTNVAL(*NO) +   
   
9.          RSTD(*NO) DFT(*FIRST) SPCVAL((*FIRST)) +               
   
10.          MIN(0) MAX(1) FILE(*NO) FULL(*NO) +                    
    
11.          EXPR(*YES) VARY(*NO) PASSATR(*NO) +                    
    
12.          PROMPT('FROM MEMBER')                                 
    
13.                                                                
    
14.          Q1: QUAL TYPE(*NAME) LEN(10) RSTD(*NO) MIN(1) +        
    
15.          FULL(*NO) EXPR(*YES) VARY(*NO) PASSATR(*NO)            
    
16.          QUAL TYPE(*NAME) LEN(10) RSTD(*NO) DFT(*LIBL) +        
    
17.          SPCVAL((*LIBL) (*CURLIB *CURLIB)) MIN(0) +  
    
18.          FULL(*NO) EXPR(*YES) VARY(*NO) +            
    
19.          PASSATR(*NO) PROMPT('LIBRARY')              

复制代码

jamesten

谢谢各位呀。
因为超过132 ，所以比较麻烦，记得以前有个程序的。
谢谢Eagle_wolf   的共享。

fairyboy

[quote]原帖由 "Eagle_wolf"][/quote 发表：


crtcmd  cmd(putsplf)   pgm(qspputf) ,这句中的QSPPUTF是随便起的吧，

Eagle_wolf

不是 这个是系统的api wrkobj  qspputf  看一下

fairyboy

哦，昨天晚上在新儒的免费主机没看到这个ＯＢＪ，还因为是自己随便起的捏，今天到个公司的主机上一看，原来还真有这个ＯＢＪ，惭愧！！

ibmas400

我在本地使用PUTSPLF出现问题，咋回事呢？

===>UTSPLF FROMFILE(TEST/EMPLOYEES) OUTQ(*LIBL/PRT02)  

1. 
   
2. 
   
3.                            PUT SPOOLED FILE (PUTSPLF)                           
   
4.                                                                                 
   
5.   输入选择，并按“执行”键。                                                   
   
6.                                                                                 
   
7.   源文件  . . . . . . . . . . . . >; EMPLOYEES      名称                        
   
8.     库  . . . . . . . . . . . . . >;   TEST         名称 , *LIBL, *CURLIB        
   
9.   输出队列  . . . . . . . . . . . >; PRT02          名称                        
   
10.     库  . . . . . . . . . . . . . >;   *LIBL        名称 , *LIBL, *CURLIB        
    
11.   源成员  . . . . . . . . . . . .   *FIRST         名称 , *FIRST               
    
12.                                                                                 
    
13.                                                                                 
    
14.                                                                                 
    
15.                                                                                 
    
16.                                                                                 
    
17.                                                                                 
    
18.                                                                                 
    
19.                                                                                 
    
20.                                                                                 
    
21.                                                                                 
    
22.                                                                                 
    
23.                                                                          底部   
    
24. F3= 退出    F4= 提示    F5= 刷新    F12= 取消    F13= 如何使用此屏幕           
    
25. F24= 其他键                                                                    
    
26.                                                                                 
    

复制代码

执行后的出错信息：

1. 
   
2. 
   
3. 
   
4. 
   
5. 
   
6.                                  附加消息信息                                   
   
7.                                                                                 
   
8. 消息标识 . . . . . . . :   CPF9999       严重性 . . . . . . . . :   40         
   
9. 消息类型 . . . . . . . :    诊断                                               
   
10.   发送日期  . . . . . . :   28/07/05       发送时间  . . . . . . :   09:29:00   
    
11.                                                                                 
    
12.   消息 . . . . . :    功能检查。在语句 *N 指令 X'0109' 处 QSPPUTF 未监控        
    
13.    MCH0601 。                                                                  
    
14.   原因 . . . . . :    发送退出异常消息至未监控该消息的程序。将未监控消息发送至  
    
15.     的程序的全名是 QSPPUTF   。当发送该消息时，在更高级语言语句号 *N 处停止了   
    
16.     程序。若显示多个语句号，则程序是已连接程序。优化不允许确定单一语句号。若   
    
17.    *N 作为值显示，则它意指实际值不可用。                                       
    
18.   恢复 . . . . . :    查看先前列示的低级消息以找出功能检查的原因。更正错误并再  
    
19.     试该请求。                                                                  
    
20.                                                                                 
    
21.                                                                                 
    
22.                                                                                 
    
23.                                                                                 
    
24.                                                                          底部   
    
25. 按“执行”键继续。                                                            
    
26.                                                                                 
    
27. F3= 退出    F6= 打印   F9= 显示消息细节   F10= 显示作业记录中的消息            
    
28. F12= 取消   F21= 选择辅助级别                                                  
    
29.                                                                
    

复制代码