ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 可以删除一个lib下所有文件的cl程序(转)

可以删除一个lib下所有文件的cl程序(转)

原创 Linux操作系统 作者:ilg 时间:2019-05-28 15:12:04 0 删除 编辑
可以删除一个lib下所有文件的cl程序(转)

  最近在做报表查询程序。每次查询结果都生成临时文件在一个lib下。

  程序中没控制查询完毕清除临时文件。所以想办法做了个cl程序加入作业调度里凌晨清除文件。

  程序:

  PGM

  /*endpf 这个文件事先CRTPF,我指定长度300就可以了 */

  DCLF FILE(SBGL/ENDPF)

  DCL VAR(&PFNAME) TYPE(*CHAR) LEN(10)

  DCL VAR(&LEIXIN) TYPE(*CHAR) LEN(4)

  DCL VAR(&SHUXIN) TYPE(*CHAR) LEN(2)

  /*这里dsplib cl 命令 参数 output(*print) 生成spool file */

  DSPLIB LIB(TEMPPF) OUTPUT(*PRINT)

  /*先清除一下储存spool file信息的pf */

  CLRPFM FILE(ENDPF)

  /* 将DSPLIB LIB(TEMPPF) 生成的信息,也就是参数output(*)时在屏幕上显示的信息 cpy到endpf中*/

  CPYSPLF FILE(QPDSPLIB) TOFILE(SBGL/ENDPF) +

  CRTDATE(*LAST)

  /*循环读取 */

  BEGIN: RCVF RCDFMT(ENDPF)

  MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END))

  /*将每行信息存到本地数据区中 */

  CHGDTAARA DTAARA(*LDA) VALUE(&ENDPF)

  /*截取数据区相应的部分 ,这再不同应用中位置肯定不一样的……,所以,确定位置时,debug一下,在上一步结束时,dspdtaara,然后……数吧*/

  /*想获取的信息定义好…… */

  RTVDTAARA DTAARA(*LDA (5 10)) RTNVAR(&PFNAME)

  RTVDTAARA DTAARA(*LDA (18 4)) RTNVAR(&LEIXIN)

  RTVDTAARA DTAARA(*LDA (27 2)) RTNVAR(&SHUXIN)

  /*如果类型是 *file …… */

  IF COND(&LEIXIN = 'FILE') THEN(DO)

  DLTF FILE(TEMPPF/&PFNAME)

  ENDDO

  GOTO CMDLBL(BEGIN)

  END: ENDPGM

  看到以前的帖子 :

  http://bbs.chinaunix.net/viewthr …… F9%D3%D0&page=1

  感觉这种将各种cl 命令得到的结果"导"出来,再……很实用的。应该改改程序就可以实现其它效果的。

  创建物理文件 (CRTPF)

  入选择,并按“执行”键。

  件 . . . . . . . . . . . . . FILE

  库 . . . . . . . . . . . . . *CURLIB

  文件 . . . . . . . . . . . . SRCFILE QDDSSRC

  库 . . . . . . . . . . . . . *LIBL

  成员 . . . . . . . . . . . . SRCMBR *FILE

  录长度,如果没有 DDS . . . . RCDLEN 300 /*CRTPF ENDPF */

  成严重性级别 . . . . . . . . GENLVL 20

  记严重性级别 . . . . . . . . FLAG 0

  件类型 . . . . . . . . . . . FILETYPE *DATA

  员(如果需要的话) . . . . . MBR *FILE

  户指定的 DBCS 数据 . . . . . IGCDTA *NO

  本描述 . . . . . . . . . . . TEXT *SRCMBRTXT

  

本文来自:http://www.linuxpk.com/40343.html

-->linux电子图书免费下载和技术讨论基地

·上一篇:Linux下的编辑器——vi大全

·下一篇:Linux的kill命令与信号控制
 
     最新更新
·Linux指令篇:终端机管理--clear

·Linux基础系列教程

·将.c文件更名时使用的完美脚本

·详解Bash命令行处理

·RPM常用命令及RPM中文手册

·Linux的kill命令与信号控制

·Linux文件查找命令find,xargs详述

·Linux下的编辑器——vi大全

·常用命令之make常见规则解析

·另类技术:怎样显示一个字呢?

·软件安装之--RPM命令大全

·vi中将逗号和回车互换的技巧

·Linux指令篇:档案目录管理--rmdir

·Linux指令篇:档案目录管理--split

·Linux指令篇:档案目录管理--touch

·Linux指令篇:档案目录管理--rm

·Rpm命令手册

·Linux指令篇:日期时间排程--at

·Linux指令篇:日期时间排程--cal

·Linux指令篇:日期时间排程--crontab

·Linux指令篇:日期时间排程--date

·Linux指令篇:日期时间排程--sleep

·Linux指令篇:日期时间排程--time

·Linux指令篇:档案目录管理--mv

·Linux指令篇:档案目录管理--more

·Linux指令篇:档案目录管理--mkdir

·Linux指令篇:档案目录管理--cat

·Linux指令篇:档案目录管理--cd

·Linux指令篇:档案目录管理--chmod

·Linux指令篇:档案目录管理--chown


关于我们 | 联系方式 | 广告合作 | 诚聘英才 | 网站地图 | 网址大全 | 友情链接 | 免费注册

Copyright © 2004 - 2007 All Rights Reserved

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/14102/viewspace-116960/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2002-06-18

  • 博文量
    1715
  • 访问量
    1300035