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
More than ever, there is a demand for IT to deliver innovation. Your IBM i has been an essential part of your business operations for years. However, your organization may struggle to maintain the current system and implement new projects. The thousands of customers we've worked with and surveyed state that expectations regarding the digital footprint and vision of the company are not aligned with the current IT environment.
TRY the one package that solves all your document design and printing challenges on all your platforms. Produce bar code labels, electronic forms, ad hoc reports, and RFID tags – without programming! MarkMagic is the only document design and print solution that combines report writing, WYSIWYG label and forms design, and conditional printing in one integrated product. Make sure your data survives when catastrophe hits. Request your trial now! Request Now.
Forms of ransomware has been around for over 30 years, and with more and more organizations suffering attacks each year, it continues to endure. What has made ransomware such a durable threat and what is the best way to combat it? In order to prevent ransomware, organizations must first understand how it works.
Disaster protection is vital to every business. Yet, it often consists of patched together procedures that are prone to error. From automatic backups to data encryption to media management, Robot automates the routine (yet often complex) tasks of iSeries backup and recovery, saving you time and money and making the process safer and more reliable. Automate your backups with the Robot Backup and Recovery Solution. Key features include:
Business users want new applications now. Market and regulatory pressures require faster application updates and delivery into production. Your IBM i developers may be approaching retirement, and you see no sure way to fill their positions with experienced developers. In addition, you may be caught between maintaining your existing applications and the uncertainty of moving to something new.
IT managers hoping to find new IBM i talent are discovering that the pool of experienced RPG programmers and operators or administrators with intimate knowledge of the operating system and the applications that run on it is small. This begs the question: How will you manage the platform that supports such a big part of your business? This guide offers strategies and software suggestions to help you plan IT staffing and resources and smooth the transition after your AS/400 talent retires. Read on to learn:
LATEST COMMENTS
MC Press Online