The  Retrieve  CCSID  From  PF  command  retrieves  the  CCSID  from  a
physical file.   If the  file has multiple  CCSIDs, TAA9896 is  sent as
an escape message.

A typical series of commands would be:

             DCL        &CCSID *DEC LEN(5 0)
              .
             RTVCCSID   FILE(xxx) CCSID(&CCSID)

RTVCCSIDPF escape messages you can monitor for
----------------------------------------------

      TAA9896    The file has multiple CCSIDs

Escape messages from based on functions will be re-sent.

RTVCCSIDPF Command parameters                         *CMD
-----------------------------

   FILE          The  qualified name  of the physical  file to retrieve
                 the CCSID for.   Either a data  or source file may  be
                 specified.   A  specific library  or *CURLIB  may also
                 be used.

   CCSID         The  Coded  Character Set  ID  returned.   It  must be
                 specified as *DEC LEN(5 0).


Restrictions
------------

Because RTVCCSIDPF returns  a variable,  the command may  only be  used
in a CL program.

Prerequisites
-------------

The following TAA Tools must be on your system:

     CHKOBJ3         Check Object 3
     RSNLSTMSG       Resend last message
     RTVDBFA         Retrieve data base file attributes
     SNDESCINF       Send escape information
     SNDESCMSG       Send escape message

Implementation
--------------

None, the tool is ready to use.

Objects used by the tool
------------------------

   Object        Type    Attribute      Src member    Src file
   ------        ----    ---------      ----------    ----------

   RTVCCSIDPF    *CMD                   TAADBNO       QATTCMD
   TAADBNOC      *PGM       CLP         TAADBNOC      QATTCL