Consultor Eletrônico



Kbase P20766: How to label fields from the values of an extent field in an
Autor   Progress Software Corporation - Progress
Acesso   Público
Publicação   25/11/2003
Status: Unverified

GOAL:

How to label fields from the values of an extent field in an SDO.

FIX:

DEF VAR labelholder AS CHARACTER EXTENT 10.


ASSIGN labelholder = DYNAMIC-FUNCTION('rowValues':U IN h_dbudprof,
INPUT "Table" /* CHARACTER */,
INPUT "CHARACTER" /* CHARACTER */,
INPUT "" /* CHARACTER */).

misc-field1:LABEL IN FRAME {&FRAME-NAME} = labelholder[1].
misc-field2:LABEL IN FRAME {&FRAME-NAME} = labelholder[2].
misc-field3:LABEL IN FRAME {&FRAME-NAME} = labelholder[3].
misc-field4:LABEL IN FRAME {&FRAME-NAME} = labelholder[4].
misc-field5:LABEL IN FRAME {&FRAME-NAME} = labelholder[5].
misc-field6:LABEL IN FRAME {&FRAME-NAME} = labelholder[6].
misc-field7:LABEL IN FRAME {&FRAME-NAME} = labelholder[7].
misc-field8:LABEL IN FRAME {&FRAME-NAME} = labelholder[8].
misc-field9:LABEL IN FRAME {&FRAME-NAME} = labelholder[9].
misc-field10:LABEL IN FRAME {&FRAME-NAME} = labelholder[10].