In there is 100 no. of recordsin PF, if i delete all the
records. Then what is the Size of the PF?
- 9 Answers
- 11174 Views
- I also Faced
- E-Mail Answers
Answer Posted / harish
I hope size of the physical file will not change
if records deleted means the physical file will be empty
Harish poomgame shivappa
NIIT Technolgies
Kolkata
| Is This Answer Correct ? | 6 Yes | 0 No |
Post New Answer View All Answers
list some of the commonly used commands for debugging?
what is match field indicator?
what is the difference between *like and *namvar ?
What is array in as400? What are the types of array?
what is the purpose of dynslt keyword?
is there any way to dynamically merge other html scripts into a given html?
is it possible to create a physical file without dds?
can we define multi-dimensional arrays in rpg ?
where can you specify an indicator in lokup operation?
Can you summarize the steps I have to go through in writing my first cgi?
what is the difference between packed decimal and zoned decimal?
Pose, there are 100 records in the file.i need to retrieve all the records matching/equal to the particular name field. How can we do the above using search criteria other than using the if cond?
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 can I predict the performance of my cgis?
How can we update a specific field in RPG?
