****************************************************************
      *                                                              *
      * Data Structure For API:  QPZGENNM                            *
      * Format:  PTFG0100                                            *
      * Language:  Cobol                                             *
      *                                                              *
      ****************************************************************
       01 PTFG0100.
           05 BYTES-RETURNED                 PIC S9(9) COMP-4.
           05 BYTES-AVAILABLE                PIC S9(9) COMP-4.
           05 FILE-NAME                      PIC X(10).
           05 LIBRARY-NAME                   PIC X(10).
      *****************************************************************
      * Data Structure for API: QPZGENNM                              *
      * Format: PTFG0100                                              *
      * Language: RPG                                                 *
      *****************************************************************
     IRCVVAR      DS
     I                                    B   1   40BYTRTN
     I                                    B   5   80BYTAVA
     I                                        9  18 FILENM
     I                                       19  28 LIBNM

      ****************************************************************
      *                                                              *
      * Data Structure For API:  QPZGENNM                            *
      * Format:  PTFG0200                                            *
      * Language:  Cobol                                             *
      *                                                              *
      ****************************************************************
       01 PTFG0200.
           05 BYTES-RETURNED                 PIC S9(9) COMP-4.
           05 BYTES-AVAILABLE                PIC S9(9) COMP-4.
           05 FILE-NAME                      PIC X(10).
           05 LIBRARY-NAME                   PIC X(10).
           05 MEMBER-NAME                    PIC X(10).
      ****************************************************************
      * Data Structure for API : QPZGENNM                            *
      * Format : PTFG0200                                            *
      * Language : RPG                                               *
      ****************************************************************
     IRCVVAR      DS
     I                                    B   1   40BYTRTN
     I                                    B   5   80BYTAVA
     I                                        9  18 FILENM

     I                                       19  28 LIBNME
     I                                       29  38 MEMNME