Interested to Buy Any Domain ? << Click Here >> for more details...
Is it possible to add an keyfield or field to an Physical file without changing its file identifier.
Example : - Say I have an existing physical file which is being used in 5 programs. Now I want to add an additional Keyfield or an field to it and I don't want to recompile the programs.
- 2 Answers
- 5401 Views
- I also Faced
- E-Mail Answers
Answer Posted / vivek dwivedi
You can add field in file using sql. Alter table as below..
ALTER TABLE File_Name ADD COLUMN Field_Name SMALLINT NOT NULL DEFAULT 0
| Is This Answer Correct ? | 0 Yes | 0 No |
Post New Answer View All Answers
what is the function of cpysplf command?
I need to insert a record in a file using STRSQL containing the some field values same as an already existing record in that file.I know to smple insert mentioning those values one by one.But is there any another query can be prepared for the same .Please share the query if known to you. Thanks in advance.
how do you specify page overflow indicator for printer files in rpg?
What is the difference between crtdupobj and copyf?
how many files can be defined in f specs?
What is the use of jdftval in as400?
which of the following operations does not zero the field flda defined as 4,0?
In Which Specs Arrays, Tables & Constants Are Defined?
what is the purpose of ovrdta and ovrata keywords ?
what is a join logical file?
how do you use commitment control in rpg program ?
what are the two record formats a subfile contain ?
which indicator is used for read?
I have created a command that display Source file and library. Now i want that when i enter library name and press f4 on Source file, pgm should display all the PF- SRC's in that Library. For F4 option i have used Choice program but since only limited paramters are passed in Choice pgm i am not able to paas library name and further can't call a pgm that will display list of Source files. Below is the Code snippet for CMD type object :- CMD PROMPT('Source Scan for HUB Standard') PARM KWD(SOURCE) TYPE(*CHAR) LEN(1) RSTD(*YES) + VALUES(N A) MIN(1) + CHOICE('N,A') PARM KWD(SRCFILE) TYPE(FILE) RSTD(*NO) + PROMPT('SOURCE FILE') FILE: QUAL TYPE(*NAME) LEN(10) RSTD(*NO) EXPR (*YES) + CHOICE(*PGM) + CHOICEPGM (XXXXXLIB/YYYPGM) QUAL TYPE(*NAME) LEN(10) DFT(*LIBL) + SPCVAL((*LIBL)) EXPR(*YES) PROMPT ('Library') Below is the Choice pgm:- PGM PARM(&PARM1 &PARM2) DCL VAR(&PARM1) TYPE(*CHAR) LEN (21) DCL VAR(&PARM2) TYPE(*CHAR) LEN (2000) IF COND(%SST(&PARM1 1 10) = 'CHOICE ' *AND + %SST(&PARM1 11 10) = 'SRCFILE ' *AND + (%SST(&PARM1 21 1) = 'C' *OR %SST (&PARM1 + 21 1) = 'P')) THEN (DO) /* (%SST(&PARM1 21 1) = 'C' *OR %SST (&PARM1 + */ CHGVAR VAR(&PARM2) VALUE('Name, F4 for List') ENDDO IF COND(%SST(&PARM1 1 10) = 'CHOICE ' *AND + %SST(&PARM1 11 10) = 'SRCFILE ' *AND + %SST(&PARM1 21 1) = 'P') THEN (DO) CHGVAR VAR(&PARM2) VALUE('Name, F4 for List') CALL PGM(GTSQL) PARM ('XXXXLIB') return ENDDO Thanks in Advance for looking into.
how do u compile rpgle program?
