Original Version: April 1998
Version 2: August 1998

         ==================================================
         Restore a Save File from a PC to an AS/400 Library
         ==================================================

The PC File contain a Save File of an AS/400 library that could
be send using PC Command. Using the following instruction you
will restore the library on your system.


Installation:
============

The self-extracting file contains the library in a save file
database format and two AS/400 REXX procedures

To install, you must first unzip the compress file in an AS/400
folder, then copy the first REXX procedure to an AS/400 source file
and execute the procedure to restore the saved library

Please note that this code is copied to the library RDFONT
Ensure that you do not have a library with the same name on your system
(this library is not deleted... programs and files are simply added).

    ***********************
    **** INSTALL STEPS ****
    ***********************


All commands, unless otherwise noted, are on the AS/400:

   1. Create temporary shared folder:

      --> CRTFLR FLR(RDFONT01.V2)

   2. On the PC, copy the .EXE file to the shared folder:

      --> COPY A:RDFONT01.EXE I:\QDLS\RDFONT01.V2

   3. On the PC, Run the self-extracted file

      --> I:\QDLS\RDFONT01.V2

   4. You should now have the following files in the folder:

          RDFONT01.EXE              The compressed file
          RDFONT01.V2               The AS/400 save file
          README.TXT                This text file
          README2.TXT               This text file
          RST2LIB.REX               The first REXX Procedure
          RST2LIB2.REX              The second REXX Procedure

   5. Copy the first REXX procedure from the folder
      to a source physical file:

      --> CPYFRMPCD FROMFLR(RDFONT01.V2) TOFILE(QGPL/QREXSRC)
            FROMDOC(RST2LIB.REX) TOMBR(RST2LIB) TRNTBL(*NONE)
            TRNFMT(*NOTEXT)

   6. Run the REXX procedure RST2LIB.  This will create the
      work files RST2LIBPF and RST2LIBSF in library QGPL,
      copy the save data from the folder, use the second REXX
      procedure to copy the save object records from the physical
      file to the save file, do a RSTLIB from the save file and
      then delete work files:

      --> STRREXPRC SRCMBR(RST2LIB) SRCFILE(QGPL/QREXSRC)
            PARM('RDFONT01.V2  RDFONT')


LOADFNTC Operation:
===================

To run the command, go to a command line:

   1. Add the library to your library list:

      --> ADDLIBLE LIB(RDFONT)

   2. Load the first tape or the CD-rom on the system and prompt the command

      --> LOADFNTC          [press Function key 4]

   3. You could press the help key (or Function key 1) to get more help


TESTFONT Operation:
===================

To run the command, go to a command line:

   1. Add the library to your library list:

      --> ADDLIBLE LIB(RDFONT)

   2. Prompt the command

      --> TESTFONT          [press Function key 4]

   3. You could press the help key (or Function key 1) to get more help



Library Contents:    (Save at V2R3M0)
=================

   Name      Type    Attribut Description
   --------- ------- -------- ----------------------------------------------
   LOADFNTC  *PGM    RPG      Load AFP Font collection for OS/400
   LOADFNTC  *FILE   PF-DATA  Library list in AFP Font collection for OS/400
   LOADFNTC  *CMD             Load AFP Font collection for OS/400

   TESTFONT  *PGM    RPG      Print a sample catalog of AS/400 font
   TESTFONT  *FILE   PRTF     Print a sample catalog of AS/400 font
   TESTFONT  *CMD             Print a sample catalog of AS/400 font

   RDFONT    *PNLGRP          AFP Font commands Help panel

   QCLSRC    *FILE   PF-SRC   Control Language (CL) Source file
   QCMDSRC   *FILE   PF-SRC   Command Source file
   QDDSSRC   *FILE   PF-SRC   Data Description Specification (DDS) Source file
   QRPGSRC   *FILE   PF-SRC   RPG Source file
   QUIMSRC   *FILE   PF-SRC   User Interface Manager (UIM) Source file

Feedback:
========

Comments or input can be sent to:

           rdrolet@ca.ibm.com