You are here: Development Standards > Routines > General Routines > GENSETRC.PUB

# GENSETRC.PUB

GENSETRC.PUB is a public program that allows entries to be made into the Print Manager Archive file. This allows for an easy interface so that users can see archived reports and forms thru Print Manager.

`0030 ENTER FILE[ALL],ARCHIVE$,ARCHIVECHAN,OSSE$,OSSECH,RMRH$,RMRHCH`

Variable | Description
FILE[ALL] | Standard file array.
ARCHIVE$ | Template containing information for this function.
ARCHIVECHAN | Channel RMRAx file is opened on. If this is set to 0, the RMRAx file will be opened.
OSSE$ | String template for the OSSE file.
OSSECH | Channel the OSSE file is opened on.
RMRH$ | String template for the RMRHx file.
RMRHCH | Channel RMRHx file is opened on. If this is set to 0, and the option for saving report history is on, then the RMRHx file is opened.

Exit Points | Explanation
EXIT | GENSETRC.PUB does not return any errors.

The ARCHIVE$ template is the same as the RMRHx file template. Fields from the ARCHIVE$ are copyied to the RMRHx, or are specifically set if those fields are blank in the ARCHIVE$ template.

Field | Description
SEQ:C(8*) | Sequence number for entry. This is always set from a call to GENSEQ.PUB.
FILE:C(150*) | This contains the path to the file that's being archived. This should always be set from the calling program.
FILESHR:C(150*) | This contains the path to the file that's being archived, relative to the server. This should always be set from the calling program.
DAT:N(7*) | Date the entry is created. If DAT < 1, STBL("JULDATE") is used to populate the date.
CLS:C(3*) | Report class. While this field is copied to the RMRH.CLS$ field, it is not used in version 7.6.
TIME:C(6*) | This will always be the system time the entry was created, in an HH:MMx format.
DESC:C(30*) | Description of entry. If this is blank, STBL("MENUDESC") is used.
USER:C(12*) | Current user ID. If blank, STBL("USERID") is used.
TERM:C(4*) | Current terminal ID. If blank, FID(0) is used.
RSV1:N(1*) | Reserved for OSD
RSV2:N(1*) | Reserved for OSD
DEVICE$:C(3*) | Not Used
CODECOMP:C(3*) | Company ID. If blank, STBL("CID") is used.
CODECODE:C(12*) | Not used
CODEMENU:C(1*) | Menu level. If blank, STBL("MITEM") is used.
CODENAME:C(12*) | Name of program creaeting entry. If blank, STBL("MPROG") is used.
CODEPARM:C(12*) | Parameter of menu function. If blank, STBL("MPARAM") is used.
MENUREC:C(12*) | Menu record ID. If blank, STBL("MENUREC") is used.
MENUFILE:C(12*) | Menu file. If blank, STBL("MENUFILE") is used.
RSV3:C(1*) | Reserved for OSD
ISVA:C(1*) | Reserved for ISV
ISVN[2]:N(1*) | Reserved for ISV