A phisical file has two fields like 1) Account No(10,0)
2)Phone No(15,0)Unique on both fields?Please give me the
answer for this?
- 3 Answers
- 6457 Views
- I also Faced
- E-Mail Answers
Answer Posted / gaurav
You can use File level keyword 'UNIQUE' which will accept
only unique record entry according to the key fields
defined.
| Is This Answer Correct ? | 3 Yes | 0 No |
Post New Answer View All Answers
can a indexed file be accessed in arrival sequence in rpg program?
where will control be passed after the execution of the *pssr subroutine if the factor2 of the endsr is blank ?
what is a query can be run in which mode?
Difference Between Ca & Cf?
how to toggle between single line and multi - line display of a particular record in a subfile?
how to declare a constant variable in the freeformat?
To Add A File To The 'file Selection' Option Of A Query, The Function Key To Be Pressed Is?
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 does union file maintains record formats?
Why we have multiple data types in As400 and why we use numeric, packed, decimal, zoned the basic difference between this?
define the purpose/use for sflrna?
How to Define a Procedure in RPG?
what is term cua , saa?
what are the three types of keywords associated with printer file ?
what is logical file?
