关于AS400中执行SQL生成文件的问题

lsmaer

在程序中能否实现类似于SQL中SHIFT+F1生成临时表的功能？
就是将执行后的SQL生成OUTPUT FILE。

pacman2000

利用STRQMQRY的OUTFILE参数

lsmaer

确实，暂时也没有想到更好的办法。

pacman2000 发表于 2015-03-12 15:28
利用STRQMQRY的OUTFILE参数

josh565

STRSQL -> shift + F1 -> 改output方式为file

pacman2000

josh565 发表于 2015-03-12 21:05
STRSQL -> shift + F1 -> 改output方式为file

。。。楼主要的是在程序中能调用的方法，不是交互式的。

简约V生活

TEMP 文件还是得定义的~~这种方式看看满不满足~~

INPUT-OUTPUT SECTION.                                    
FILE-CONTROL.                                             
    SELECT ZTCSPF               ASSIGN TO DATABASE-ZTCSPF.
    SELECT ZTCS01               ASSIGN TO DISK-ZTCS01.   
    SELECT ZTCS02               ASSIGN TO DISK-ZTCS02.   
    SELECT ZTCS03               ASSIGN TO DISK-ZTCS03.   
.
.
.
.
DATA DIVISION.                                          
FILE SECTION.                                            
FD  ZTCS01                      LABEL RECORDS STANDARD.  
01  ZTCS01-REC                  PIC X(014).              
                                                         
FD  ZTCS02                      LABEL RECORDS STANDARD.  
01  ZTCS02-REC                  PIC X(014).              
                                                         
FD  ZTCS03                      LABEL RECORDS STANDARD.  
01  ZTCS03-REC                  PIC X(014).              
.
.
.
*    Do the override.                                          
                                                               
      STRING                                                   
          'OVRDBF FILE(ZTCS' WSAA-IZ ') TOFILE('               
                                  DELIMITED BY SIZE            
           BPRD-RUN-LIBRARY       DELIMITED BY SPACES           
          '/' WSAA-ZTCS-FN                                      
          ') MBR(' WSAA-THREAD-MEMBER ')'                       
          ' SEQONLY(*YES 1000)'                                 
                                  DELIMITED BY SIZE            
                                  INTO WSAA-QCMDEXC            
      END-STRING.                                               
                                                               
      CALL 'QCMDEXC' USING WSAA-QCMDEXC WSAA-QCMDEXC-LENGTH.   
                                                               
.
.*    Open the overridden ZTCSnn file.                 
                                                      
     IF  WSAA-IZ =  1            OPEN OUTPUT ZTCS01.  
     IF  WSAA-IZ =  2            OPEN OUTPUT ZTCS02.  
     IF  WSAA-IZ =  3            OPEN OUTPUT ZTCS03.

.
.
.
.
.
IF WSAA-IY =  1  WRITE ZTCS01-REC FROM ZTCSPF-DATA.
IF WSAA-IY =  2  WRITE ZTCS02-REC FROM ZTCSPF-DATA.
IF WSAA-IY =  3  WRITE ZTCS03-REC FROM ZTCSPF-DATA.
.
.
.

.
.IF WSAA-IZ =  1             CLOSE ZTCS01.
IF WSAA-IZ =  2             CLOSE ZTCS02.
IF WSAA-IZ =  3             CLOSE ZTCS03.