Function SET013C: Maintain DC@OSVEROP
* =======================================================
* Process ........: SET_013
* Function .......: SET013C
* Created on .....: 03/03/00 at 12:10:38
* Description ....: Maintain DC@OSVEROP
* Full Description: The purpose of this function is to
* maintain system definition data area DC@OSVEROP
*
* 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(#S_DTAARA) Type(*CHAR) Length(256) Label('DC@OSVEROP.....') Desc(DC@OSVEROP) Colhdg(DC@OSVEROP)
Define Field(#S_DTAARA1) Type(*CHAR) Length(070) Desc(DC@OSVEROP) Colhdg(DC@OSVEROP) Input_Atr(RLTB) To_Overlay(#S_DTAARA 001)
Define Field(#S_DTAARA2) Type(*CHAR) Length(070) Desc(DC@OSVEROP) Colhdg(DC@OSVEROP) Input_Atr(RLTB) To_Overlay(#S_DTAARA 071)
Define Field(#S_DTAARA3) Type(*CHAR) Length(070) Desc(DC@OSVEROP) Colhdg(DC@OSVEROP) Input_Atr(RLTB) To_Overlay(#S_DTAARA 141)
Define Field(#S_DTAARA4) Type(*CHAR) Length(046) Desc(DC@OSVEROP) Colhdg(DC@OSVEROP) Input_Atr(RLTB) To_Overlay(#S_DTAARA 211)
* =======================================================
* Program Mainline : DC@OSV
* =======================================================
*
Function Options(*DIRECT)
*
Def_Cond Name(*AS400) Cond('*CPUTYPE = AS400')
If Cond(*AS400)
* backup the original DC@OSVEROP in save file S_013SAV3
* the partition data library
Message Msgtxt('Backup of DC@OSVEROP in save file S_013SAV3 in your partition data library')
Exec_Os400 Command('CALL SETCRTSAVF PARM(#S_LBPRTDT S_013SAV3 ''Backup of DC@OSVEROP'')') If_Error(*NEXT)
* Note DC@OSVEROP is an optional data area and may not
* exist.
Exec_Os400 Command('SAVOBJ OBJ(DC@OSVEROP) LIB(#S_LBSYSDT) DEV(*SAVF) SAVF(#S_LBPRTDT/S_013SAV3) CLEAR(*ALL) SAVACT(*SYNCLIB)') If_Error(*NEXT)
Else
Message Msgtxt('Not available on PC')
Menu
Endif
*
Begin_Loop
Use Builtin(GET_CHAR_AREA) With_Args('DC@OSVEROP') To_Get(#S_DTAARA)
Request Fields(#S_DTAARA1 #S_DTAARA2 #S_DTAARA3 #S_DTAARA4) Design(*DOWN) Identify(*NOID)
* Note this data area should be in the LANSA internal
* data library (DC@DTALIB or equivalent)
Use Builtin(PUT_CHAR_AREA) With_Args(#S_DTAARA 'DC@OSVEROP' #S_LBSYSDT)
Message Msgtxt('DC@OSVEROP was updated successfully')
End_Loop
*
* =======================================================
* Process ........: SET_013
* Function .......: SET013C
* Created on .....: 03/03/00 at 12:10:38
* Description ....: Maintain DC@OSVEROP
* Full Description: The purpose of this function is to
* maintain system definition data area DC@OSVEROP
*
* 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(#S_DTAARA) Type(*CHAR) Length(256) Label('DC@OSVEROP.....') Desc(DC@OSVEROP) Colhdg(DC@OSVEROP)
Define Field(#S_DTAARA1) Type(*CHAR) Length(070) Desc(DC@OSVEROP) Colhdg(DC@OSVEROP) Input_Atr(RLTB) To_Overlay(#S_DTAARA 001)
Define Field(#S_DTAARA2) Type(*CHAR) Length(070) Desc(DC@OSVEROP) Colhdg(DC@OSVEROP) Input_Atr(RLTB) To_Overlay(#S_DTAARA 071)
Define Field(#S_DTAARA3) Type(*CHAR) Length(070) Desc(DC@OSVEROP) Colhdg(DC@OSVEROP) Input_Atr(RLTB) To_Overlay(#S_DTAARA 141)
Define Field(#S_DTAARA4) Type(*CHAR) Length(046) Desc(DC@OSVEROP) Colhdg(DC@OSVEROP) Input_Atr(RLTB) To_Overlay(#S_DTAARA 211)
* =======================================================
* Program Mainline : DC@OSV
* =======================================================
*
Function Options(*DIRECT)
*
Def_Cond Name(*AS400) Cond('*CPUTYPE = AS400')
If Cond(*AS400)
* backup the original DC@OSVEROP in save file S_013SAV3
* the partition data library
Message Msgtxt('Backup of DC@OSVEROP in save file S_013SAV3 in your partition data library')
Exec_Os400 Command('CALL SETCRTSAVF PARM(#S_LBPRTDT S_013SAV3 ''Backup of DC@OSVEROP'')') If_Error(*NEXT)
* Note DC@OSVEROP is an optional data area and may not
* exist.
Exec_Os400 Command('SAVOBJ OBJ(DC@OSVEROP) LIB(#S_LBSYSDT) DEV(*SAVF) SAVF(#S_LBPRTDT/S_013SAV3) CLEAR(*ALL) SAVACT(*SYNCLIB)') If_Error(*NEXT)
Else
Message Msgtxt('Not available on PC')
Menu
Endif
*
Begin_Loop
Use Builtin(GET_CHAR_AREA) With_Args('DC@OSVEROP') To_Get(#S_DTAARA)
Request Fields(#S_DTAARA1 #S_DTAARA2 #S_DTAARA3 #S_DTAARA4) Design(*DOWN) Identify(*NOID)
* Note this data area should be in the LANSA internal
* data library (DC@DTALIB or equivalent)
Use Builtin(PUT_CHAR_AREA) With_Args(#S_DTAARA 'DC@OSVEROP' #S_LBSYSDT)
Message Msgtxt('DC@OSVEROP was updated successfully')
End_Loop
*