Routine: GMPLCOPY

Information

GMPLCOPY ;ISP/TC - Copy Problem Selection Lists/Categories ;09/21/16 09:03

Name	Comments	DBIA/ICR reference
SETCLDLM(GMPFLNM,GMPIEN,GMPCLASS)	;Set the class field to GMPCLASS and update Date Last Modified
COPY(GMPPRMPT,GMPROOT,GMPWHAT,GMPVAL)	;Copy an entry of GMPROOT into a new entry.
COPYCAT(GMPVAL)	;Copy a selection list category.
COPYLIST	;Copy a selection list.
DELETE(DIK,DA)	;Delete the entry just added.
GETFOIEN(GMPROOT)	;Return the first open IEN in GMPROOT. This should be called
GETORIG
GETORIGC(GMPIENO,GMPIENN,GMPROOT,GMPWHAT,GMPVAL)	;
GETNAM
MERGE(GMPIENN,GMPIENO,GMPROOT)	;Use MERGE to copy GMPROOT(GMPIENO into GMPROOT(GMPIENN.
SETSTART(GMPROOT)	;Set the starting value to add new entries. Start
AWRITE(GMPREF)	;Write all the descendants of the array reference, including the

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"New entry not created due to invalid name!",! Line Location: DELETE+2
Function Call: WRITE	Prompt: ! Line Location: GETORIG+3
Function Call: WRITE	Prompt: !,GMPNAME," is not a unique name!" Line Location: GETNAM+14
Function Call: WRITE	Prompt: !!,"The original "_GMPWHAT_" "_GMPORGNM_" has been copied into "_GMPNAME_"." Line Location: GETNAM+24