This month we present a tool that could be useful to just about anyone in your organization. The Print AS/400 Calendar (PRT400CAL) command prints a year's worth of monthly calendars in an 8.5-by-11 format. You can print a calendar for any year in the range of 1992 through 2000. The calendars printed by this command are not used by other products (such as OfficeVision).

1 contains the calendar for the month of June 1994 created by PRT400CAL. The calendar shows the current month and year and a box for each date. Each date includes either the consecutive day number of the year or a description of the day. For example, the description for June 21 identifies the AS/400's announcement date in 1988. The calendar also shows the previous and next month at the bottom of the page.

Figure 1 contains the calendar for the month of June 1994 created by PRT400CAL. The calendar shows the current month and year and a box for each date. Each date includes either the consecutive day number of the year or a description of the day. For example, the description for June 21 identifies the AS/400's announcement date in 1988. The calendar also shows the previous and next month at the bottom of the page.

You can create you own description for any special day of the year by modifying the utility. Two arrays (one for fixed dates and one for variable dates) are used by the PRT400CAL tool. The array for fixed dates, called FXD, resides in RPG program TAACALAR in source file QUSRTOOL/QATTRPG. The compile-time array record uses a four-digit date (MMDD) followed by a 12-character description. For example:

1225Christmas

For variable dates, use array VRD. The record for this date is a six-digit date (YYMMDD) followed by a 12-character description. For example:

940403Easter

Required Parameters

YEAR

Specify the year for which the calendar is to be printed. A four-digit year value from 1992 to 2000 must be entered.

Optional Parameters

HORCHAR

Specify the horizontal separator character that is used to print rows on the calendar.

'-': A dash is used as the default separator character.

character: Specify the character that is to be used.

VERCHAR

Specify the vertical separator character that is used to print columns on the calendar.

'I': The uppercase letter I is used as the default separator character.

character: Specify the character to be used.

PRTFILE

Specify the qualified name of the printer file used to print the calendars. The possible library name values are:

*LIBL: By default, the library list is used to locate the printer file.

library-name: Specify the name of the library where the printer file is located.

The possible printer file name values are:

QPRINT: Printer file QPRINT is used as the default.

printer-file-name: Specify the name of the printer file that is to be used.

Example

PRT400CAL YEAR(1994)

This command prints 12 monthly calendars for the year 1994.

Source Members

INFO: PRT400CAL (QATTINFO)

CDO: TAACALA (QATTCMD)

CPP: TAACALAC (QATTCL)

The foregoing article was adapted from Midrange Computing's QUSRTOOL Command Reference. The manual contains explanations and syntax diagrams for more than 300 obscure yet useful tools.

The Print AS/400 Calendar (PRT400CAL) Command

Figure 1 A PRT400CAL Calendar

 Sunday Monday Tuesday Wednesday Thursday Friday Saturday ------------------------------------------------------------------------------- |||| |||| |||| |||| 1 |||| 2 |||| 3 |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| 152 |||| 153 |||| ------------------------------------------------------------------------------- |||| 5 |||| 6 |||| 7 |||| 8 |||| 9 |||| 10 |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| 156 |||| 157 |||| 158 |||| 159 |||| 160 |||| ------------------------------------------------------------------------------- |||| 12 |||| 13 |||| 14 |||| 15 |||| 16 |||| 17 |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| 163 |||| 164 |||| 165 |||| 166 |||| 167 |||| ------------------------------------------------------------------------------- |||| 19 |||| 20 |||| 21 |||| 22 |||| 23 |||| 24 |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| ||||Father's |||| |||| AS/400 |||| |||| |||| ||||Day |||| 171 |||| 1988 |||| 173 |||| 174 |||| ------------------------------------------------------------------------------- |||| 26 |||| 27 |||| 28 |||| 29 |||| 30 |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| 177 |||| 178 |||| 179 |||| 180 |||| 181 |||| ------------------------------------------------------------------------------- May July June 1 2 3 4 5 6 7 1 2 QUSRTOOL 1994 8 9 10 11 12 13 14 3 4 5 6 7 8 9 15 16 17 18 19 20 21 10 11 12 13 14 15 16 TAA Tool of Printed by 22 23 24 25 26 27 28 17 18 19 20 21 22 23 the month TAA tool 29 30 31 24 25 26 27 28 29 30 PRTDBFEXP PRT400CAL 31