Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1298582
  • 博文数量: 287
  • 博客积分: 11000
  • 博客等级: 上将
  • 技术积分: 3833
  • 用 户 组: 普通用户
  • 注册时间: 2007-08-16 08:43
文章分类
文章存档

2013年(15)

2012年(17)

2011年(17)

2010年(135)

2009年(85)

2008年(18)

分类: 系统运维

2010-06-11 10:43:24

QLICOBJD - Change Object Description
 
D*  Change Object Description (QLICOBJD) API

     D*
     D QLICOBJD        PR                  EXTPGM('QLICOBJD')       
     D  QRTNLIB                      10A   CONST                                Returnd library name
     D  QOBJNAM                      20A   CONST                                Object/library name
     D  QOBJTYP                      20A   CONST                                Object type
     D  QOBJCHG                     100A   OPTIONS(*VARSIZE) CONST              Changed object info
     D  QUERR                       200A   OPTIONS(*VARSIZE) CONST

     D*
     D QJOBIN          DS
     D  QUSR                         20A   INZ('QZUSLJOB  QTEMP     ')          user space name
     D  QUNAM                        10A   OVERLAY(QUSR : 1)
     D  QULIB                        10A   OVERLAY(QUSR : 11)
     D  QFRM                          8A   INZ('JOBL0200')                      Format name
     D  QJOB                         26A   INZ(' ')                             job name
     D  QJNAM                        10A   OVERLAY(QJOB : 1)
     D  QJUSR                        10A   OVERLAY(QJOB : 11)
     D  QJNUM                         6A   OVERLAY(QJOB : 21)
     D  QSTS                         10A   INZ('*ALL      ')                    status of incl. jobs
     D  QERR                        200A   INZ(' ')                             Error code
     D  QJTYP                         1A   INZ('B')                             type of job
     D  QFNUM                        10I 0 INZ(6)                               number fields return
     D  QFKEY                        10I 0 INZ(0) DIM(10)                       list field keys

     D CHGHDR          DS
     D  QCNUM                        10I 0 INZ(0)                               number of records
     D  QCDAT                        90A   INZ(' ')                             fields to change
     D*
     D CHGVAR          DS
     D  CHGKEY                       10I 0 INZ(0)                               Key
     D  CHGLEN                       10I 0 INZ(0)                               Length of data
     D  CHGDAT                       90A   INZ(' ')                             Data

     D*
     D KEYOPTS         DS
     D  KEY01                        10I 0 INZ(1)                               Source file
     D  KEY02                        10I 0 INZ(2)                               Src last chg dte/tim
     D  KEY03                        10I 0 INZ(3)                               Compiler
     D  KEY04                        10I 0 INZ(4)                               Object control level
     D  KEY05                        10I 0 INZ(5)                               Licensed program
     D  KEY06                        10I 0 INZ(6)                               Prog temp fix (PTF)
     D  KEY07                        10I 0 INZ(7)                               Auth prog analys rep
     D  KEY08                        10I 0 INZ(8)                               Allow change by prog
     D  KEY09                        10I 0 INZ(9)                               User-defined attr.
     D  KEY10                        10I 0 INZ(10)                              Text
     D  KEY11                        10I 0 INZ(11)                              Days used count
     D  KEY12                        10I 0 INZ(12)                              Prod. option load ID
     D  KEY13                        10I 0 INZ(13)                              Prod. option ID
     D  KEY14                        10I 0 INZ(14)                              Component ID
     D  KEY15                        10I 0 INZ(15)                              Last used date
     D  KEY16                        10I 0 INZ(16)                              Chg date/time stamp
     D  KEY17                        10I 0 INZ(17)                              Mbr. days used counta

     D*
     D DATOPTS         DS
     D  DAT01                        30A   INZ(' ')                             File/Library/Member
     D  DAT02                        13A   INZ(' ')                             CYYMMDDHHMMSS
     D  DAT03                        13A   INZ(' ')                             name/VxRxMy
     D  DAT04                         8A   INZ(' ')                             see documentation
     D  DAT05                        13A   INZ(' ')                             prog name/Version
     D  DAT06                         7A   INZ(' ')                             p-fix ID/prog chg ID
     D  DAT07                         6A   INZ(' ')                             upper-alpha/5 dec.
     D  DAT08                         1A   INZ(' ')                             value of '0' or '1'
     D  DAT09                        10A   INZ(' ')                             not extended attr.
     D  DAT10                        50A   INZ(' ')                             Text Description
     D  DAT11                         1A   INZ(' ')                             value of '0' or '1'
     D  DAT12                         4A   INZ(' ')                             see documentation
     D  DAT13                         4A   INZ(' ')                             see documentation
     D  DAT14                         4A   INZ(' ')                             see documentation
     D  DAT15                         1A   INZ(' ')                             value of '0' or '1'
     D  DAT16                         1A   INZ(' ')                             value of '0' or '1'
     D  DAT17                        10A   INZ(' ')                             file-member name

     D*
     D                 DS
     D  TODAT                        10D
     D  TOMM                          2A   OVERLAY(TODAT : 6)
     D  TODD                          2A   OVERLAY(TODAT : 9)
     D  TOCC                          2A   OVERLAY(TODAT : 1)
     D  TOYY                          2A   OVERLAY(TODAT : 3)

      /Free
           EVAL          TODAT = %DATE();
           EVAL          QCNUM  = 1;
           EVAL          CHGKEY = 10;                                           Text
           EVAL          CHGLEN = 10;
           EVAL          CHGDAT = TOMM + '/' + TODD;
           EVAL          QCDAT  = CHGVAR;
           EVAL          QUNAM  = NEWOBJ;
           EVAL          QULIB  = 'RMCDTA';
           CALLP         QLICOBJD (QULIB : QUSR : QSTS : CHGHDR : QERR);
      /End-Free

Thanks to Joe M. Wesson
阅读(880) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~