Function SET013A: Maintain DC@A01
* =======================================================
* Process ........: SET_013
* Function .......: SET013A
* Created on .....: 03/03/00 at 12:05:20
* Description ....: Maintain DC@A01
* Full Description: The purpose of this function is to
* maintain data area DC@A01.
*
* Disclaimer: The following material is supplied as
* sample material only. No warranty concerning the
* material or its use in any way whatsoever is
* expressed or implied.
*
* Minimum LANSA release: 8.0
*
* =======================================================
* Function control options
Function Options(*DIRECT)
*
* Group and field definitions
*
*
Define Field(#PGMLIB) Type(*CHAR) Length(010) Desc('Program Library')
Define Field(#DTALIB) Type(*CHAR) Length(010) Desc('Data Library')
Define Field(#PRTLIB) Type(*CHAR) Length(010) Desc('Partition module Library (exec time)')
Define Field(#SYSOWNER) Type(*CHAR) Length(010) Desc('System Owner')
Define Field(#PROD) Type(*CHAR) Length(005) Desc('Product')
Define Field(#RELEASE) Type(*CHAR) Length(003) Desc('Release Level')
Define Field(#COYNAM) Type(*CHAR) Length(030) Desc('Company Name')
Define Field(#PARTSEC) Type(*CHAR) Length(010) Desc('Partition Security Officer (exec only)')
Define Field(#SPARE1) Type(*CHAR) Length(010) Desc('Spare Field')
Define Field(#EXIT) Type(*CHAR) Length(002) Desc('Non CUA Exit Key')
Define Field(#MENU) Type(*CHAR) Length(002) Desc('Non CUA Menu Key')
Define Field(#MSG) Type(*CHAR) Length(002) Desc('Non CUA Messages Key')
Define Field(#ADD) Type(*CHAR) Length(002) Desc('Non CUA Add Key')
Define Field(#CHG) Type(*CHAR) Length(002) Desc('Non CUA Change Key')
Define Field(#DLT) Type(*CHAR) Length(002) Desc('Non CUA Delete Key')
Define Field(#PARTPFX) Type(*CHAR) Length(001) Desc('Partition Unique Prefix (exec only)')
Define Field(#DFTFILSIZ) Type(*CHAR) Length(030) Desc('Default File SIZE parameter')
Define Field(#DFTFILLVL) Type(*CHAR) Length(004) Desc('Default File LVLCHK parameter')
Define Field(#CMPSRCLST) Type(*CHAR) Length(001) Desc('Compile Source Listing Default (Y/N)')
Define Field(#CMPOPTCOD) Type(*CHAR) Length(001) Desc('Compile Optimize Compile Default (Y/N)')
Define Field(#CMPDECDE) Type(*CHAR) Length(001) Desc('Compile Decimal Data Error Default (Y/N)')
Define Field(#DFTPRTWID) Type(*CHAR) Length(003) Desc('Printer default width (80-198)')
Define Field(#DFTSCRWID) Type(*CHAR) Length(003) Desc('Default Screen Width (Do NOT Change)')
Define Field(#DFTSCRLEN) Type(*CHAR) Length(003) Desc('Default Screen Length (Do NOT Change)')
Define Field(#DFTALPINA) Type(*CHAR) Length(040) Label('Alpha Fields') Desc('Default Input Attributes Alpha Fields')
Define Field(#DFTNUMINA) Type(*CHAR) Length(040) Label('Numeric Fields') Desc('Default Input Attributes Numeric Fields')
Define Field(#DFTALPOTA) Type(*CHAR) Length(040) Label('Alpha Fields') Desc('Default Output Attributes Alpha Fields')
Define Field(#DFTNUMOTA) Type(*CHAR) Length(040) Label('Numeric Fields') Desc('Default Output Attributes Numeric Fields')
Define Field(#DFTPARTL) Type(*CHAR) Length(010) Desc('Default Partition Lib (exec only)')
Define Field(#DFTCOMCTL) Type(*CHAR) Length(001) Desc('Default Commitment Control (new files)')
Define Field(#SPARE2) Type(*CHAR) Length(001) Desc('Spare')
Define Field(#DFTRDMLED) Type(*CHAR) Length(001) Desc('RDML Editor E=SEU U=Usr other=LANSA')
Define Field(#OSVER) Type(*CHAR) Length(001) Desc('OS Version 0=S38,1=400V1,2=400V2,3=400V3')
Define Field(#EXPLOBJ) Type(*CHAR) Length(002) Desc('Export LANSA Obj Aut MD,UD,DD (dft MD)')
Define Field(#ASP) Type(*CHAR) Length(001) Desc('System uses ASPs Y/other')
Define Field(#CMPDBG) Type(*CHAR) Length(001) Desc('Compile Functions debug enabled')
Define Field(#ENALTED) Type(*CHAR) Length(001) Desc('Enable alt editor for help&RDML Y/other')
Define Field(#DICINTPGM) Type(*CHAR) Length(010) Desc('Dictionary Interface program')
Define Field(#DFTPRTLEN) Type(*CHAR) Length(003) Desc('Default Printer Length (RPG Limit)')
Define Field(#DFTPRTOVF) Type(*CHAR) Length(003) Desc('Default Printer Overflow (RPG Limit)')
Define Field(#DFTHIATR) Type(*CHAR) Length(001) Desc('High Intensity (Y/N) Ignored in CUA Part')
Define Field(#DFTRIATR) Type(*CHAR) Length(001) Desc('Reverse Image (Y/N) Ignored in CUA Part')
Define Field(#DFTULATR) Type(*CHAR) Length(001) Desc('Underline (Y/N) Ignored in CUA Part')
Define Field(#STDHEAD) Type(*CHAR) Length(001) Desc('Default STD_HEAD parm to be used (Y/N)')
Define Field(#EXCPLCK) Type(*CHAR) Length(001) Desc('Execution Time locking on Process (Y/N)')
Define Field(#PCLVL) Type(*CHAR) Length(002) Desc('Latest PC (Program Change installed')
Define Field(#HANDONLIB) Type(*CHAR) Length(010) Desc('Name of "HANDS-ON" program library')
Define Field(#ENCSRLOC) Type(*CHAR) Length(001) Desc('Enable cursor location Help&Prompt')
Define Field(#AS400) Type(*CHAR) Length(002) Desc('Machine being used 38=S38, 3X= AS400')
Define Field(#EXECENV) Type(*CHAR) Length(002) Desc('Execution Environment 38=S38, 3X= AS400')
Define Field(#HEXCODE) Type(*CHAR) Length(020) Desc('Hex Codes for 132 char screens')
Define Field(#PRCCMP) Type(*CHAR) Length(001) Desc('Compile Process Default Y/N')
Define Field(#ENBATTN) Type(*CHAR) Length(001) Desc('Enable LANSA Attn Key Y/N')
Define Field(#LABFILL) Type(*CHAR) Length(001) Desc('Field Label Fill Character')
Define Field(#COLUL) Type(*CHAR) Length(001) Desc('Field Column Heading UL char')
Define Field(#HEXCOL) Type(*CHAR) Length(010) Desc('Hex Codes for Colour Screens')
Define Field(#FNLVLSEC) Type(*CHAR) Length(001) Desc('System uses Function level security')
Define Field(#AUTOHELP) Type(*CHAR) Length(001) Desc('Auto generate field level HELP')
Define Field(#DFTF4) Type(*CHAR) Length(001) Desc('Default enabling of Prompt Key')
Define Field(#F4KEY) Type(*CHAR) Length(002) Desc('NON CUA Prompt Key')
Define Field(#RCLRSC) Type(*CHAR) Length(001) Desc('Execute RCLRSC Y/N?')
Define Field(#RPLLIBL) Type(*CHAR) Length(001) Desc('Execute RPLLIBL Y/N?')
Define Field(#PRE25) Type(*CHAR) Length(001) Desc('Require pre Rel 2.5 I/O Modules')
Define Field(#TGTRLS) Type(*CHAR) Length(001) Desc('TGTRLS Value for COMPs and SAVEs')
Define Field(#VERTBAR) Type(*CHAR) Length(001) Desc('Vertical Bar RDML listings')
Define Field(#HORIZBAR) Type(*CHAR) Length(001) Desc('Horizontal Bar RDML listings')
Define Field(#EXTSEC) Type(*CHAR) Length(001) Desc('External security matching')
Define Field(#EXCHLST) Type(*CHAR) Length(001) Desc('Exchange List externally usable Y/N?')
Define Field(#CMPYR) Type(*CHAR) Length(002) Desc('Comparison Year')
Define Field(#CENTLE) Type(*CHAR) Length(002) Desc('Century used if LE Comparison Year')
Define Field(#CENTGT) Type(*CHAR) Length(002) Desc('Century used if GT Comparison Year')
Define Field(#DECFMT) Type(*CHAR) Length(001) Desc('Decimal Format for LANSA')
Define Field(#SUPMSG) Type(*CHAR) Length(001) Desc('Suppress msg "Process will run ...')
Define Field(#PRCFNSEC) Type(*CHAR) Length(001) Desc('Process/Function disabled Y/N?')
Define Field(#FILSEC) Type(*CHAR) Length(001) Desc('File level security disabled Y/N?')
Define Field(#USRF4MSG) Type(*CHAR) Length(001) Desc('User defined Prompt Msg handler Y/N?')
Define Field(#EXCHALL) Type(*CHAR) Length(001) Desc('Exchange all fields on prompting Y/N?')
Define Field(#CHKBAT) Type(*CHAR) Length(001) Desc('Check for active battery licence Y/N?')
* =======================================================
* Program Mainline : DC@A01
* =======================================================
*
Function Options(*DIRECT)
Def_Cond Name(*AS400) Cond('*CPUTYPE = AS400')
If Cond(*AS400)
* backup the original DC@A01 in save file S_013SAV1
* the partition data library
Message Msgtxt('Backup of DC@A01 in save file S_013SAV1 in your partition data library')
Exec_Os400 Command('CALL SETCRTSAVF PARM(#S_LBPRTDT S_013SAV1 ''Backup of DC@A01'')') If_Error(*NEXT)
Exec_Os400 Command('SAVOBJ OBJ(DC@A01) LIB(#S_LBSYSPG) DEV(*SAVF) SAVF(#S_LBPRTDT/S_013SAV1) CLEAR(*ALL) SAVACT(*SYNCLIB)')
Else
Message Msgtxt('Not available on PC')
Menu
Endif
*
Begin_Loop
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 1 10) To_Get(#PGMLIB)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 11 10) To_Get(#DTALIB)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 21 10) To_Get(#PRTLIB)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 31 10) To_Get(#SYSOWNER)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 41 5) To_Get(#PROD)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 46 3) To_Get(#RELEASE)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 49 30) To_Get(#COYNAM)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 79 10) To_Get(#PARTSEC)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 89 10) To_Get(#SPARE1)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 99 2) To_Get(#EXIT)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 101 2) To_Get(#MENU)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 103 2) To_Get(#MSG)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 105 2) To_Get(#ADD)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 107 2) To_Get(#CHG)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 109 2) To_Get(#DLT)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 111 1) To_Get(#PARTPFX)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 112 30) To_Get(#DFTFILSIZ)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 142 4) To_Get(#DFTFILLVL)
Message Msgtxt('WARNING this program DOES NOT do any validation before update!!!!')
D01: Display Fields(#PGMLIB #DTALIB #PRTLIB #SYSOWNER #PROD #RELEASE (#COYNAM *IN) #PARTSEC #SPARE1 #EXIT #MENU #MSG #ADD #CHG #DLT #PARTPFX (#DFTFILSIZ *IN) (#DFTFILLVL *IN)) Identify(*DESC) Prompt_Key(*NO)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 146 1) To_Get(#CMPSRCLST)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 147 1) To_Get(#CMPOPTCOD)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 148 1) To_Get(#CMPDECDE)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 149 3) To_Get(#DFTPRTWID)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 152 3) To_Get(#DFTSCRWID)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 155 3) To_Get(#DFTSCRLEN)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 158 40) To_Get(#DFTALPINA)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 198 40) To_Get(#DFTNUMINA)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 238 40) To_Get(#DFTALPOTA)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 278 40) To_Get(#DFTNUMOTA)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 381 10) To_Get(#DFTPARTL)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 391 1) To_Get(#DFTCOMCTL)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 392 1) To_Get(#SPARE2)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 393 1) To_Get(#DFTRDMLED)
Message Msgtxt('WARNING this program DOES NOT do any validation before update!!!!')
D02: Display Fields((#CMPSRCLST *L3 *P2 *IN) (#CMPOPTCOD *L4 *P2 *IN) (#CMPDECDE *L5 *P2 *IN) (#DFTPRTWID *L6 *P2) (#DFTSCRWID *L7 *P2) (#DFTSCRLEN *L8 *P2) (#DFTALPINA *L11 *P2 *LAB) (#DFTNUMINA *L12 *P2 *LAB) (#DFTALPOTA *L14 *P2 *LAB) (#DFTNUMOTA *L15 *P2 *LAB) (#DFTPARTL *L17 *P2) (#DFTCOMCTL *L18 *P2) (#SPARE2 *L19 *P2) (#DFTRDMLED *L20 *P2 *IN)) Design(*DOWN) Identify(*DESC) Down_Sep(001) Across_Sep(001) Menu_Key(*YES D01) Prompt_Key(*NO) Text('((*TMAP001 001 001))')
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 394 1) To_Get(#OSVER)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 395 2) To_Get(#EXPLOBJ)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 397 1) To_Get(#ASP)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 400 1) To_Get(#CMPDBG)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 401 1) To_Get(#ENALTED)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 402 10) To_Get(#DICINTPGM)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 412 3) To_Get(#DFTPRTLEN)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 415 3) To_Get(#DFTPRTOVF)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 418 1) To_Get(#DFTHIATR)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 419 1) To_Get(#DFTRIATR)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 420 1) To_Get(#DFTULATR)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 421 1) To_Get(#STDHEAD)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 422 1) To_Get(#EXCPLCK)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 423 2) To_Get(#PCLVL)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 425 10) To_Get(#HANDONLIB)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 436 1) To_Get(#ENCSRLOC)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 437 2) To_Get(#AS400)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 439 2) To_Get(#EXECENV)
Message Msgtxt('WARNING this program DOES NOT do any validation before update!!!!')
D03: Display Fields(#OSVER #EXPLOBJ #ASP (#CMPDBG *IN) (#ENALTED *IN) #DICINTPGM #DFTPRTLEN #DFTPRTOVF #DFTHIATR #DFTRIATR #DFTULATR #STDHEAD #EXCPLCK #PCLVL #HANDONLIB #ENCSRLOC #AS400 #EXECENV) Identify(*DESC) Menu_Key(*YES D02) Prompt_Key(*NO)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 441 20) To_Get(#HEXCODE)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 461 1) To_Get(#PRCCMP)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 462 1) To_Get(#ENBATTN)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 463 1) To_Get(#LABFILL)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 464 1) To_Get(#COLUL)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 465 10) To_Get(#HEXCOL)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 475 1) To_Get(#FNLVLSEC)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 476 1) To_Get(#AUTOHELP)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 477 1) To_Get(#DFTF4)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 478 2) To_Get(#F4KEY)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 480 1) To_Get(#RCLRSC)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 481 1) To_Get(#RPLLIBL)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 482 1) To_Get(#PRE25)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 483 1) To_Get(#TGTRLS)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 484 1) To_Get(#VERTBAR)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 485 1) To_Get(#HORIZBAR)
Message Msgtxt('WARNING this program DOES NOT do any validation before update!!!!')
D04: Display Fields(#HEXCODE (#PRCCMP *IN) (#ENBATTN *IN) (#LABFILL *IN) (#COLUL *IN) #HEXCOL (#FNLVLSEC *IN) (#AUTOHELP *IN) #DFTF4 #F4KEY #RCLRSC #RPLLIBL #PRE25 #TGTRLS (#VERTBAR *IN) (#HORIZBAR *IN)) Identify(*DESC) Menu_Key(*YES D03) Prompt_Key(*NO)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 486 1) To_Get(#EXTSEC)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 487 1) To_Get(#EXCHLST)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 488 2) To_Get(#CMPYR)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 490 2) To_Get(#CENTLE)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 492 2) To_Get(#CENTGT)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 494 1) To_Get(#DECFMT)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 495 1) To_Get(#SUPMSG)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 496 1) To_Get(#PRCFNSEC)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 497 1) To_Get(#FILSEC)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 498 1) To_Get(#USRF4MSG)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 499 1) To_Get(#EXCHALL)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 500 1) To_Get(#CHKBAT)
Message Msgtxt('WARNING this program DOES NOT do any validation before update!!!!')
Display Fields(#EXTSEC (#EXCHLST *IN) (#CMPYR *IN) (#CENTLE *IN) (#CENTGT *IN) (#DECFMT *IN) (#SUPMSG *IN) (#PRCFNSEC *IN) (#FILSEC *IN) #USRF4MSG #EXCHALL #CHKBAT) Identify(*DESC) Menu_Key(*YES D04) Prompt_Key(*NO)
Use Builtin(PUT_CHAR_AREA) With_Args(#COYNAM 'DC@A01' '*LIBL' 'Y' 49 30)
Use Builtin(PUT_CHAR_AREA) With_Args(#DFTFILSIZ 'DC@A01' '*LIBL' 'Y' 112 30)
Use Builtin(PUT_CHAR_AREA) With_Args(#DFTFILLVL 'DC@A01' '*LIBL' 'Y' 142 4)
Use Builtin(PUT_CHAR_AREA) With_Args(#CMPSRCLST 'DC@A01' '*LIBL' 'Y' 146 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#CMPOPTCOD 'DC@A01' '*LIBL' 'Y' 147 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#CMPDECDE 'DC@A01' '*LIBL' 'Y' 148 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#DFTRDMLED 'DC@A01' '*LIBL' 'Y' 393 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#CMPDBG 'DC@A01' '*LIBL' 'Y' 400 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#ENALTED 'DC@A01' '*LIBL' 'Y' 401 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#PRCCMP 'DC@A01' '*LIBL' 'Y' 461 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#ENBATTN 'DC@A01' '*LIBL' 'Y' 462 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#LABFILL 'DC@A01' '*LIBL' 'Y' 463 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#COLUL 'DC@A01' '*LIBL' 'Y' 464 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#FNLVLSEC 'DC@A01' '*LIBL' 'Y' 475 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#AUTOHELP 'DC@A01' '*LIBL' 'Y' 476 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#VERTBAR 'DC@A01' '*LIBL' 'Y' 484 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#HORIZBAR 'DC@A01' '*LIBL' 'Y' 485 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#EXCHLST 'DC@A01' '*LIBL' 'Y' 487 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#CMPYR 'DC@A01' '*LIBL' 'Y' 488 2)
Use Builtin(PUT_CHAR_AREA) With_Args(#CENTLE 'DC@A01' '*LIBL' 'Y' 490 2)
Use Builtin(PUT_CHAR_AREA) With_Args(#CENTGT 'DC@A01' '*LIBL' 'Y' 492 2)
Use Builtin(PUT_CHAR_AREA) With_Args(#DECFMT 'DC@A01' '*LIBL' 'Y' 494 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#SUPMSG 'DC@A01' '*LIBL' 'Y' 495 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#PRCFNSEC 'DC@A01' '*LIBL' 'Y' 496 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#FILSEC 'DC@A01' '*LIBL' 'Y' 497 1)
Message Msgtxt('DC@A01 was successfully updated')
End_Loop
* =======================================================
* Process ........: SET_013
* Function .......: SET013A
* Created on .....: 03/03/00 at 12:05:20
* Description ....: Maintain DC@A01
* Full Description: The purpose of this function is to
* maintain data area DC@A01.
*
* Disclaimer: The following material is supplied as
* sample material only. No warranty concerning the
* material or its use in any way whatsoever is
* expressed or implied.
*
* Minimum LANSA release: 8.0
*
* =======================================================
* Function control options
Function Options(*DIRECT)
*
* Group and field definitions
*
*
Define Field(#PGMLIB) Type(*CHAR) Length(010) Desc('Program Library')
Define Field(#DTALIB) Type(*CHAR) Length(010) Desc('Data Library')
Define Field(#PRTLIB) Type(*CHAR) Length(010) Desc('Partition module Library (exec time)')
Define Field(#SYSOWNER) Type(*CHAR) Length(010) Desc('System Owner')
Define Field(#PROD) Type(*CHAR) Length(005) Desc('Product')
Define Field(#RELEASE) Type(*CHAR) Length(003) Desc('Release Level')
Define Field(#COYNAM) Type(*CHAR) Length(030) Desc('Company Name')
Define Field(#PARTSEC) Type(*CHAR) Length(010) Desc('Partition Security Officer (exec only)')
Define Field(#SPARE1) Type(*CHAR) Length(010) Desc('Spare Field')
Define Field(#EXIT) Type(*CHAR) Length(002) Desc('Non CUA Exit Key')
Define Field(#MENU) Type(*CHAR) Length(002) Desc('Non CUA Menu Key')
Define Field(#MSG) Type(*CHAR) Length(002) Desc('Non CUA Messages Key')
Define Field(#ADD) Type(*CHAR) Length(002) Desc('Non CUA Add Key')
Define Field(#CHG) Type(*CHAR) Length(002) Desc('Non CUA Change Key')
Define Field(#DLT) Type(*CHAR) Length(002) Desc('Non CUA Delete Key')
Define Field(#PARTPFX) Type(*CHAR) Length(001) Desc('Partition Unique Prefix (exec only)')
Define Field(#DFTFILSIZ) Type(*CHAR) Length(030) Desc('Default File SIZE parameter')
Define Field(#DFTFILLVL) Type(*CHAR) Length(004) Desc('Default File LVLCHK parameter')
Define Field(#CMPSRCLST) Type(*CHAR) Length(001) Desc('Compile Source Listing Default (Y/N)')
Define Field(#CMPOPTCOD) Type(*CHAR) Length(001) Desc('Compile Optimize Compile Default (Y/N)')
Define Field(#CMPDECDE) Type(*CHAR) Length(001) Desc('Compile Decimal Data Error Default (Y/N)')
Define Field(#DFTPRTWID) Type(*CHAR) Length(003) Desc('Printer default width (80-198)')
Define Field(#DFTSCRWID) Type(*CHAR) Length(003) Desc('Default Screen Width (Do NOT Change)')
Define Field(#DFTSCRLEN) Type(*CHAR) Length(003) Desc('Default Screen Length (Do NOT Change)')
Define Field(#DFTALPINA) Type(*CHAR) Length(040) Label('Alpha Fields') Desc('Default Input Attributes Alpha Fields')
Define Field(#DFTNUMINA) Type(*CHAR) Length(040) Label('Numeric Fields') Desc('Default Input Attributes Numeric Fields')
Define Field(#DFTALPOTA) Type(*CHAR) Length(040) Label('Alpha Fields') Desc('Default Output Attributes Alpha Fields')
Define Field(#DFTNUMOTA) Type(*CHAR) Length(040) Label('Numeric Fields') Desc('Default Output Attributes Numeric Fields')
Define Field(#DFTPARTL) Type(*CHAR) Length(010) Desc('Default Partition Lib (exec only)')
Define Field(#DFTCOMCTL) Type(*CHAR) Length(001) Desc('Default Commitment Control (new files)')
Define Field(#SPARE2) Type(*CHAR) Length(001) Desc('Spare')
Define Field(#DFTRDMLED) Type(*CHAR) Length(001) Desc('RDML Editor E=SEU U=Usr other=LANSA')
Define Field(#OSVER) Type(*CHAR) Length(001) Desc('OS Version 0=S38,1=400V1,2=400V2,3=400V3')
Define Field(#EXPLOBJ) Type(*CHAR) Length(002) Desc('Export LANSA Obj Aut MD,UD,DD (dft MD)')
Define Field(#ASP) Type(*CHAR) Length(001) Desc('System uses ASPs Y/other')
Define Field(#CMPDBG) Type(*CHAR) Length(001) Desc('Compile Functions debug enabled')
Define Field(#ENALTED) Type(*CHAR) Length(001) Desc('Enable alt editor for help&RDML Y/other')
Define Field(#DICINTPGM) Type(*CHAR) Length(010) Desc('Dictionary Interface program')
Define Field(#DFTPRTLEN) Type(*CHAR) Length(003) Desc('Default Printer Length (RPG Limit)')
Define Field(#DFTPRTOVF) Type(*CHAR) Length(003) Desc('Default Printer Overflow (RPG Limit)')
Define Field(#DFTHIATR) Type(*CHAR) Length(001) Desc('High Intensity (Y/N) Ignored in CUA Part')
Define Field(#DFTRIATR) Type(*CHAR) Length(001) Desc('Reverse Image (Y/N) Ignored in CUA Part')
Define Field(#DFTULATR) Type(*CHAR) Length(001) Desc('Underline (Y/N) Ignored in CUA Part')
Define Field(#STDHEAD) Type(*CHAR) Length(001) Desc('Default STD_HEAD parm to be used (Y/N)')
Define Field(#EXCPLCK) Type(*CHAR) Length(001) Desc('Execution Time locking on Process (Y/N)')
Define Field(#PCLVL) Type(*CHAR) Length(002) Desc('Latest PC (Program Change installed')
Define Field(#HANDONLIB) Type(*CHAR) Length(010) Desc('Name of "HANDS-ON" program library')
Define Field(#ENCSRLOC) Type(*CHAR) Length(001) Desc('Enable cursor location Help&Prompt')
Define Field(#AS400) Type(*CHAR) Length(002) Desc('Machine being used 38=S38, 3X= AS400')
Define Field(#EXECENV) Type(*CHAR) Length(002) Desc('Execution Environment 38=S38, 3X= AS400')
Define Field(#HEXCODE) Type(*CHAR) Length(020) Desc('Hex Codes for 132 char screens')
Define Field(#PRCCMP) Type(*CHAR) Length(001) Desc('Compile Process Default Y/N')
Define Field(#ENBATTN) Type(*CHAR) Length(001) Desc('Enable LANSA Attn Key Y/N')
Define Field(#LABFILL) Type(*CHAR) Length(001) Desc('Field Label Fill Character')
Define Field(#COLUL) Type(*CHAR) Length(001) Desc('Field Column Heading UL char')
Define Field(#HEXCOL) Type(*CHAR) Length(010) Desc('Hex Codes for Colour Screens')
Define Field(#FNLVLSEC) Type(*CHAR) Length(001) Desc('System uses Function level security')
Define Field(#AUTOHELP) Type(*CHAR) Length(001) Desc('Auto generate field level HELP')
Define Field(#DFTF4) Type(*CHAR) Length(001) Desc('Default enabling of Prompt Key')
Define Field(#F4KEY) Type(*CHAR) Length(002) Desc('NON CUA Prompt Key')
Define Field(#RCLRSC) Type(*CHAR) Length(001) Desc('Execute RCLRSC Y/N?')
Define Field(#RPLLIBL) Type(*CHAR) Length(001) Desc('Execute RPLLIBL Y/N?')
Define Field(#PRE25) Type(*CHAR) Length(001) Desc('Require pre Rel 2.5 I/O Modules')
Define Field(#TGTRLS) Type(*CHAR) Length(001) Desc('TGTRLS Value for COMPs and SAVEs')
Define Field(#VERTBAR) Type(*CHAR) Length(001) Desc('Vertical Bar RDML listings')
Define Field(#HORIZBAR) Type(*CHAR) Length(001) Desc('Horizontal Bar RDML listings')
Define Field(#EXTSEC) Type(*CHAR) Length(001) Desc('External security matching')
Define Field(#EXCHLST) Type(*CHAR) Length(001) Desc('Exchange List externally usable Y/N?')
Define Field(#CMPYR) Type(*CHAR) Length(002) Desc('Comparison Year')
Define Field(#CENTLE) Type(*CHAR) Length(002) Desc('Century used if LE Comparison Year')
Define Field(#CENTGT) Type(*CHAR) Length(002) Desc('Century used if GT Comparison Year')
Define Field(#DECFMT) Type(*CHAR) Length(001) Desc('Decimal Format for LANSA')
Define Field(#SUPMSG) Type(*CHAR) Length(001) Desc('Suppress msg "Process will run ...')
Define Field(#PRCFNSEC) Type(*CHAR) Length(001) Desc('Process/Function disabled Y/N?')
Define Field(#FILSEC) Type(*CHAR) Length(001) Desc('File level security disabled Y/N?')
Define Field(#USRF4MSG) Type(*CHAR) Length(001) Desc('User defined Prompt Msg handler Y/N?')
Define Field(#EXCHALL) Type(*CHAR) Length(001) Desc('Exchange all fields on prompting Y/N?')
Define Field(#CHKBAT) Type(*CHAR) Length(001) Desc('Check for active battery licence Y/N?')
* =======================================================
* Program Mainline : DC@A01
* =======================================================
*
Function Options(*DIRECT)
Def_Cond Name(*AS400) Cond('*CPUTYPE = AS400')
If Cond(*AS400)
* backup the original DC@A01 in save file S_013SAV1
* the partition data library
Message Msgtxt('Backup of DC@A01 in save file S_013SAV1 in your partition data library')
Exec_Os400 Command('CALL SETCRTSAVF PARM(#S_LBPRTDT S_013SAV1 ''Backup of DC@A01'')') If_Error(*NEXT)
Exec_Os400 Command('SAVOBJ OBJ(DC@A01) LIB(#S_LBSYSPG) DEV(*SAVF) SAVF(#S_LBPRTDT/S_013SAV1) CLEAR(*ALL) SAVACT(*SYNCLIB)')
Else
Message Msgtxt('Not available on PC')
Menu
Endif
*
Begin_Loop
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 1 10) To_Get(#PGMLIB)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 11 10) To_Get(#DTALIB)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 21 10) To_Get(#PRTLIB)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 31 10) To_Get(#SYSOWNER)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 41 5) To_Get(#PROD)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 46 3) To_Get(#RELEASE)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 49 30) To_Get(#COYNAM)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 79 10) To_Get(#PARTSEC)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 89 10) To_Get(#SPARE1)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 99 2) To_Get(#EXIT)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 101 2) To_Get(#MENU)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 103 2) To_Get(#MSG)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 105 2) To_Get(#ADD)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 107 2) To_Get(#CHG)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 109 2) To_Get(#DLT)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 111 1) To_Get(#PARTPFX)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 112 30) To_Get(#DFTFILSIZ)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 142 4) To_Get(#DFTFILLVL)
Message Msgtxt('WARNING this program DOES NOT do any validation before update!!!!')
D01: Display Fields(#PGMLIB #DTALIB #PRTLIB #SYSOWNER #PROD #RELEASE (#COYNAM *IN) #PARTSEC #SPARE1 #EXIT #MENU #MSG #ADD #CHG #DLT #PARTPFX (#DFTFILSIZ *IN) (#DFTFILLVL *IN)) Identify(*DESC) Prompt_Key(*NO)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 146 1) To_Get(#CMPSRCLST)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 147 1) To_Get(#CMPOPTCOD)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 148 1) To_Get(#CMPDECDE)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 149 3) To_Get(#DFTPRTWID)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 152 3) To_Get(#DFTSCRWID)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 155 3) To_Get(#DFTSCRLEN)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 158 40) To_Get(#DFTALPINA)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 198 40) To_Get(#DFTNUMINA)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 238 40) To_Get(#DFTALPOTA)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 278 40) To_Get(#DFTNUMOTA)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 381 10) To_Get(#DFTPARTL)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 391 1) To_Get(#DFTCOMCTL)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 392 1) To_Get(#SPARE2)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 393 1) To_Get(#DFTRDMLED)
Message Msgtxt('WARNING this program DOES NOT do any validation before update!!!!')
D02: Display Fields((#CMPSRCLST *L3 *P2 *IN) (#CMPOPTCOD *L4 *P2 *IN) (#CMPDECDE *L5 *P2 *IN) (#DFTPRTWID *L6 *P2) (#DFTSCRWID *L7 *P2) (#DFTSCRLEN *L8 *P2) (#DFTALPINA *L11 *P2 *LAB) (#DFTNUMINA *L12 *P2 *LAB) (#DFTALPOTA *L14 *P2 *LAB) (#DFTNUMOTA *L15 *P2 *LAB) (#DFTPARTL *L17 *P2) (#DFTCOMCTL *L18 *P2) (#SPARE2 *L19 *P2) (#DFTRDMLED *L20 *P2 *IN)) Design(*DOWN) Identify(*DESC) Down_Sep(001) Across_Sep(001) Menu_Key(*YES D01) Prompt_Key(*NO) Text('((*TMAP001 001 001))')
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 394 1) To_Get(#OSVER)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 395 2) To_Get(#EXPLOBJ)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 397 1) To_Get(#ASP)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 400 1) To_Get(#CMPDBG)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 401 1) To_Get(#ENALTED)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 402 10) To_Get(#DICINTPGM)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 412 3) To_Get(#DFTPRTLEN)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 415 3) To_Get(#DFTPRTOVF)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 418 1) To_Get(#DFTHIATR)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 419 1) To_Get(#DFTRIATR)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 420 1) To_Get(#DFTULATR)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 421 1) To_Get(#STDHEAD)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 422 1) To_Get(#EXCPLCK)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 423 2) To_Get(#PCLVL)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 425 10) To_Get(#HANDONLIB)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 436 1) To_Get(#ENCSRLOC)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 437 2) To_Get(#AS400)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 439 2) To_Get(#EXECENV)
Message Msgtxt('WARNING this program DOES NOT do any validation before update!!!!')
D03: Display Fields(#OSVER #EXPLOBJ #ASP (#CMPDBG *IN) (#ENALTED *IN) #DICINTPGM #DFTPRTLEN #DFTPRTOVF #DFTHIATR #DFTRIATR #DFTULATR #STDHEAD #EXCPLCK #PCLVL #HANDONLIB #ENCSRLOC #AS400 #EXECENV) Identify(*DESC) Menu_Key(*YES D02) Prompt_Key(*NO)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 441 20) To_Get(#HEXCODE)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 461 1) To_Get(#PRCCMP)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 462 1) To_Get(#ENBATTN)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 463 1) To_Get(#LABFILL)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 464 1) To_Get(#COLUL)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 465 10) To_Get(#HEXCOL)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 475 1) To_Get(#FNLVLSEC)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 476 1) To_Get(#AUTOHELP)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 477 1) To_Get(#DFTF4)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 478 2) To_Get(#F4KEY)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 480 1) To_Get(#RCLRSC)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 481 1) To_Get(#RPLLIBL)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 482 1) To_Get(#PRE25)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 483 1) To_Get(#TGTRLS)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 484 1) To_Get(#VERTBAR)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 485 1) To_Get(#HORIZBAR)
Message Msgtxt('WARNING this program DOES NOT do any validation before update!!!!')
D04: Display Fields(#HEXCODE (#PRCCMP *IN) (#ENBATTN *IN) (#LABFILL *IN) (#COLUL *IN) #HEXCOL (#FNLVLSEC *IN) (#AUTOHELP *IN) #DFTF4 #F4KEY #RCLRSC #RPLLIBL #PRE25 #TGTRLS (#VERTBAR *IN) (#HORIZBAR *IN)) Identify(*DESC) Menu_Key(*YES D03) Prompt_Key(*NO)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 486 1) To_Get(#EXTSEC)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 487 1) To_Get(#EXCHLST)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 488 2) To_Get(#CMPYR)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 490 2) To_Get(#CENTLE)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 492 2) To_Get(#CENTGT)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 494 1) To_Get(#DECFMT)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 495 1) To_Get(#SUPMSG)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 496 1) To_Get(#PRCFNSEC)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 497 1) To_Get(#FILSEC)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 498 1) To_Get(#USRF4MSG)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 499 1) To_Get(#EXCHALL)
Use Builtin(GET_CHAR_AREA) With_Args('DC@A01' '*LIBL' 'N' 500 1) To_Get(#CHKBAT)
Message Msgtxt('WARNING this program DOES NOT do any validation before update!!!!')
Display Fields(#EXTSEC (#EXCHLST *IN) (#CMPYR *IN) (#CENTLE *IN) (#CENTGT *IN) (#DECFMT *IN) (#SUPMSG *IN) (#PRCFNSEC *IN) (#FILSEC *IN) #USRF4MSG #EXCHALL #CHKBAT) Identify(*DESC) Menu_Key(*YES D04) Prompt_Key(*NO)
Use Builtin(PUT_CHAR_AREA) With_Args(#COYNAM 'DC@A01' '*LIBL' 'Y' 49 30)
Use Builtin(PUT_CHAR_AREA) With_Args(#DFTFILSIZ 'DC@A01' '*LIBL' 'Y' 112 30)
Use Builtin(PUT_CHAR_AREA) With_Args(#DFTFILLVL 'DC@A01' '*LIBL' 'Y' 142 4)
Use Builtin(PUT_CHAR_AREA) With_Args(#CMPSRCLST 'DC@A01' '*LIBL' 'Y' 146 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#CMPOPTCOD 'DC@A01' '*LIBL' 'Y' 147 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#CMPDECDE 'DC@A01' '*LIBL' 'Y' 148 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#DFTRDMLED 'DC@A01' '*LIBL' 'Y' 393 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#CMPDBG 'DC@A01' '*LIBL' 'Y' 400 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#ENALTED 'DC@A01' '*LIBL' 'Y' 401 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#PRCCMP 'DC@A01' '*LIBL' 'Y' 461 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#ENBATTN 'DC@A01' '*LIBL' 'Y' 462 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#LABFILL 'DC@A01' '*LIBL' 'Y' 463 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#COLUL 'DC@A01' '*LIBL' 'Y' 464 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#FNLVLSEC 'DC@A01' '*LIBL' 'Y' 475 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#AUTOHELP 'DC@A01' '*LIBL' 'Y' 476 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#VERTBAR 'DC@A01' '*LIBL' 'Y' 484 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#HORIZBAR 'DC@A01' '*LIBL' 'Y' 485 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#EXCHLST 'DC@A01' '*LIBL' 'Y' 487 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#CMPYR 'DC@A01' '*LIBL' 'Y' 488 2)
Use Builtin(PUT_CHAR_AREA) With_Args(#CENTLE 'DC@A01' '*LIBL' 'Y' 490 2)
Use Builtin(PUT_CHAR_AREA) With_Args(#CENTGT 'DC@A01' '*LIBL' 'Y' 492 2)
Use Builtin(PUT_CHAR_AREA) With_Args(#DECFMT 'DC@A01' '*LIBL' 'Y' 494 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#SUPMSG 'DC@A01' '*LIBL' 'Y' 495 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#PRCFNSEC 'DC@A01' '*LIBL' 'Y' 496 1)
Use Builtin(PUT_CHAR_AREA) With_Args(#FILSEC 'DC@A01' '*LIBL' 'Y' 497 1)
Message Msgtxt('DC@A01 was successfully updated')
End_Loop