首页 > 学术百科

dfsort用法总结

一、COPY的用法，单个文件间的COPY

//RPSORT49 JOB MSGLEVEL=(1,1),MSGCLASS=X,CLASS=B

//*------------------------------------------------------------------*

wind up//* DELETE FILE *

//*------------------------------------------------------------------*

//DELFILE EXEC PGM=IEFBR14

//DELFILE1 DD DSN=FNSAP49.RPLD8071,DISP=(MOD,DELETE,DELETE),

// SPACE=(TRK,0)

//*------------------------------------------------------------------*

//* CREATE FILE *

构建什么一体//*------------------------------------------------------------------*

//CREFILE EXEC PGM=IEFBR14

//DEFFILE1 DD DSN=FNSAP49.RPLD8071,

// DISP=(,CATLG),DCB=(RECFM=FB,LRECL=83,DSORG=PS),

// VOL=SER=BDMTS1,SPACE=(CYL,1)

//*------------------------------------------------------------------*

//* SORT FILE *

//*------------------------------------------------------------------*

//DFSORT EXEC PGM=SORT

//SYSOUT DD SYSOUT=A2010年广东高考数学

//SORTIN DD DSN=FNSAP49.RPLD807,DISP=SHR

//SORTOUT DD DSN=FNSAP49.RPLD8071,DISP=SHR

什么是麻醉药品//SYSIN DD *

SORT FIELDS=COPY

以下是对黄标记段参数的修改

1、COPY一个文件

参数：SORT FIELDS=COPY天下钱塘

2、COPY的时候选择某几个字段输出

参数：SORT FIELDS=COPY

OUTREC FIELDS=(1,23,48,3)

3、COPY的时候想在选出字段中加自己的数

注：CNY对应的16进制是：‘C3D5E8’，则参数为

16进制写法：SORT FIELDS=COPY

OUTREC FIELDS=(1,23,48,3,X’C3D5E8’,49,1)

直接字符表示写法：SORT FIELDS=COPY

OUTREC FIELDS=(1,23,48,3,C’CNY’,49,1)

以上SORT的结果是一样的，表示取原来文件中1-23位，48-51位，后加上‘CNY’，加上文件中49位的值作为新的文件，而X表示16进制的写法，C表示直接字符的写法

4、有条件的COPY

参数：SORT FIELDS=COPY

OUTREC FIELDS=(1,23,48,3)

INCLUDE COND=(45,3,CH,EQ,C’CNY’) —————比较字符还有GT/LE等

选出原来文件中的1-23位，48-51位，并且原来字段中的45开始的3位值为’CNY’

注意INCLUDE选取条件的时候是对选取前文件字段的定义

INCLUDE有多个条件的时候可以这么写

INCLUDE COND=(5,5,CH,GT,X'000171909C',AND,5,5,CH,LE,X'000300000C')

不用OUTREC只用INCLUDE也行，就是整条记录全部复制

二、COPY的用法，把一个输入文件按照条件拆分成若干个文件

//RPSORT49 JOB MSGLEVEL=(1,1),MSGCLASS=X,CLASS=B

//*------------------------------------------------------------------*

//* DELETE FILE *

//*------------------------------------------------------------------*

//DELFILE EXEC PGM=IEFBR14

//DELFILE1 DD DSN=FNSAP49.RPLD8071,DISP=(MOD,DELETE,DELETE),

// SPACE=(TRK,0)

//DELFILE2 DD DSN=FNSAP49.RPLD8072,DISP=(MOD,DELETE,DELETE),

// SPACE=(TRK,0)

//DELFILE3 DD DSN=FNSAP49.RPLD8073,DISP=(MOD,DELETE,DELETE),

// SPACE=(TRK,0)

//DELFILE4 DD DSN=FNSAP49.RPLD8074,DISP=(MOD,DELETE,DELETE),

// SPACE=(TRK,0)

//*------------------------------------------------------------------*

//* CREATE FILE *

//*------------------------------------------------------------------*

//CREFILE EXEC PGM=IEFBR14

//DEFFILE1 DD DSN=FNSAP49.RPLD8071,

// DISP=(,CATLG),DCB=(RECFM=FB,LRECL=83,DSORG=PS),

// VOL=SER=BDMTS1,SPACE=(CYL,1)

//DEFFILE2 DD DSN=FNSAP49.RPLD8072,

// DISP=(,CATLG),DCB=(RECFM=FB,LRECL=83,DSORG=PS),

// VOL=SER=BDMTS1,SPACE=(CYL,1)

//DEFFILE3 DD DSN=FNSAP49.RPLD8073,

// DISP=(,CATLG),DCB=(RECFM=FB,LRECL=83,DSORG=PS),

// VOL=SER=BDMTS1,SPACE=(CYL,1)

//DEFFILE4 DD DSN=FNSAP49.RPLD8074,

// DISP=(,CATLG),DCB=(RECFM=FB,LRECL=83,DSORG=PS),

// VOL=SER=BDMTS1,SPACE=(CYL,1)

//*------------------------------------------------------------------*

//* SORT FILE *

//*------------------------------------------------------------------*

//DFSORT EXEC PGM=SORT

//SYSOUT DD SYSOUT=A天蛾科

//SORTIN DD DSN=FNSAP49.RPLD807,DISP=SHR

//SORTOUT1 DD DSN=FNSAP49.RPLD8071,DISP=SHR

//SORTOUT2 DD DSN=FNSAP49.RPLD8072,DISP=SHR

//SORTOUT3 DD DSN=FNSAP49.RPLD8073,DISP=SHR

//SORTOUT4 DD DSN=FNSAP49.RPLD8074,DISP=SHR

//SYSIN DD *

SORT FIELDS=COPY

OUTFIL FNAMES=SORTOUT1,

INCLUDE=(45,4,CH,EQ,C'1307')

OUTFIL FNAMES=SORTOUT2,

INCLUDE=(16,4,CH,EQ,C'1560',

AND,45,4,CH,EQ,C'0464')

OUTFIL FNAMES=SORTOUT3,

INCLUDE=(45,4,CH,EQ,C'0464')

OUTFIL FNAMES=SORTOUT4,SAVE

把一个文件按照条件拆分成多个文件，其中FNAMES是输出文件的名字，在前面已经定义，最后用SAVE表示把没有被前面文件接受的记录，输出到文件SORTOUT4当中，也可以不用SAVE只用前面的字段，表示按指定条件输出到指定的文件，这里INCLUDE后面直接加=号，不能写成INCLUDE COND=()。

本文发布于:2024-09-21 15:48:08，感谢您对本站的认可！

本文链接：https://www.17tex.com/xueshu/230750.html

上一篇：新行为主义心理学家赫尔

下一篇：高血压心肌纤维化及其诊断与进展

标签：文件表示条件输出字段

留言与评论（共有 0 条评论）