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
阅读(830) | 评论(0) | 转发(0) |
