首页
登录 | 注册

转换spool file 到 PDF/HTML, CMD 源代码

转换spool file 到 PDF/HTML, CMD 源代码

            CMD        PROMPT('Convert Spooled File to STMF')
            PARM       KWD(FROMFILE) TYPE(*NAME) LEN(10) MIN(1) +
                         PROMPT('From spooled file name')
            PARM       KWD(TOSTMF) TYPE(*NAME) LEN(64) MIN(1) +
                         PROMPT('To stream file name')
            PARM       KWD(TODIR) TYPE(*PNAME) LEN(256) MIN(1) +
                         PROMPT('To directory')
            PARM       KWD(JOB) TYPE(JOB) DFT(*) SNGVAL((*)) +
                         PROMPT('Job name')
JOB:        QUAL       TYPE(*NAME) LEN(10) MIN(1)
            QUAL       TYPE(*NAME) LEN(10) MIN(1) PROMPT('User')
            QUAL       TYPE(*CHAR) LEN(6) RANGE(000000 999999) +
                         MIN(1) PROMPT('Number')
            PARM       KWD(SPLNBR) TYPE(*DEC) LEN(4) DFT(*ONLY) +
                         RANGE(1 9999) SPCVAL((*LAST -2) (*ONLY +
                         -3)) PROMPT('Spooled file number')
            PARM       KWD(TOFMT) TYPE(*CHAR) LEN(5) RSTD(*YES) +
                         DFT(*TEXT) VALUES(*TEXT *HTML *PDF) +
                         PROMPT('Stream file format')
            PARM       KWD(STMFOPT) TYPE(*CHAR) LEN(8) RSTD(*YES) +
                         DFT(*NONE) VALUES(*NONE *ADD *REPLACE) +
                         PROMPT('Stream file option')
            PARM       KWD(STMFCODPAG) TYPE(*DEC) LEN(5 0) +
                         DFT(*PCASCII) RANGE(1 32767) +
                         SPCVAL((*PCASCII -1) (*STMF -2)) +
                         PMTCTL(*PMTRQS) PROMPT('Stream file code +
                         page')
             PARM       KWD(TITLE) TYPE(*CHAR) LEN(50) RSTD(*NO) +
                          DFT(*NONE) SPCVAL((*NONE) (*STMFILE)) +
                          PMTCTL(HTML) PROMPT('Title for HTML or PDF')
            PARM       KWD(BOOKMARK) TYPE(*CHAR) LEN(7) RSTD(*YES) +
                         DFT(*PAGNBR) VALUES(*PAGNBR *POS *KEY) +
                         PMTCTL(PDF) PROMPT('Type of PDF bookmarks')
            PARM       KWD(BMARKPOS) TYPE(LIST1) PMTCTL(POS) +
                         PROMPT('PDF bookmark string position')
LIST1:      ELEM       TYPE(*DEC) LEN(3 0) DFT(1) RANGE(1 300) +
                         PROMPT('Line number')
            ELEM       TYPE(*DEC) LEN(3 0) DFT(1) RANGE(1 378) +
                         PROMPT('Character position')
            ELEM       TYPE(*DEC) LEN(3 0) DFT(1) RANGE(1 378) +
                         PROMPT('Length')
            PARM       KWD(BMARKKEY) TYPE(LIST2) PMTCTL(KEY) +
                         PROMPT('PDF bookmark string key')
LIST2:      ELEM       TYPE(*CHAR) LEN(378) DFT(' ') VARY(*YES +
                         *INT2) PROMPT('Key string')
            ELEM       TYPE(*DEC) LEN(3 0) DFT(1) RANGE(1 999) +
                         PROMPT('Occurrence')
            ELEM       TYPE(*DEC) LEN(3 0) DFT(0) RANGE(-378 378) +
                         PROMPT('Offset')
            ELEM       TYPE(*DEC) LEN(3 0) DFT(1) RANGE(1 378) +
                         PROMPT('Length')
HTML:       PMTCTL     CTL(TOFMT) COND((*EQ *HTML) (*EQ *PDF)) +
                         NBRTRUE(*EQ 1) LGLREL(*OR)
PDF:        PMTCTL     CTL(TOFMT) COND((*EQ *PDF)) NBRTRUE(*EQ 1)
POS:        PMTCTL     CTL(BOOKMARK) COND((*EQ *POS)) NBRTRUE(*EQ 1)
KEY:        PMTCTL     CTL(BOOKMARK) COND((*EQ *KEY)) NBRTRUE(*EQ 1)

相关文章

  • 第一节Unix支持的文件锁技术介绍 Unix系统允许多个进程同时对一个文件进行读写,虽然每一个read或write调用本身是原子的,但内核在两个读写操作之间并没有加以同步,因此当一个进程多次调用read来读文件时,其它进程有可能在两次rea ...
  • linux特殊符号大全 在shell中常用的特殊符号罗列如下: #   ;   ;;      .      ,       /       \       'string'|       !   $   ${}   $?      $$  ...
  • 转换为HTML时将图片保存为光栅格式 Aspose.Pdf for .NET有一个非常强大的功能就是转换PDF文件为DOC.DOCX.image.HTML以及其他各种格式.在PDF to HTML格式的转换过程中,PDF文件中的图片将被保存 ...
  • 操作PDF文档时,打印是常见的需求之一.针对不同的打印需求,可分多种情况来进行,如设置静默打印.指定打印页码范围和打印纸张大小.双面打印.黑白打印等等.经过测试,下面将对常见的几种PDF打印需求做一些归纳总结,这里归纳了10种打印需求及方法 ...
  • 在用Oracle的SQL*PLUS的时候SPOOL真是好用啊.在MySQL中如何实现呢?下面来实验说明 MySQL中可以用tee参数具体实现方式有三种 第一种:tee参数加入my.cnf参数文件 例子: tee =/mysql/mysql_ ...
  • 有时想用sql plus的spool生成脚本直接执行,但是通常会带sql .字段名和记录数等,需要清理掉这些,只留下纯粹的语句,linux环境中用如下方法: set feedback off set heading off set line ...

2020 unjeep.com webmaster#unjeep.com
12 q. 0.012 s.
苏ICP备12049786号-20