* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      * * "If it's squinky, then you know it's BrilligWare!"            * *
      * *                                                               * *
      * * Source available at http://pando.org/downloads                * *
      * * Brillig Enterprises (aka Chris Pando) (C)2004                 * *
      * *                                                               * *
      * * This work is licensed under a Creative Commons                * *
      * * Attribution-NonCommercial-ShareAlike License:                 * *
      * * http://creativecommons.org/licenses/by-nc-sa/2.0/legalcode    * *
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      * *                                                               * *
      * * *  translate F00821 into CP1220F                            * * *
      * *                                                               * *
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      * CRTBNDRPG PGM(CPANDO/CP1221R) SRCFILE(CPANDO/SRC)                 *
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
     h dftactgrp(*no) actgrp(*caller)
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *                                                                   *
      * ... files ...                                                     *
      *                                                                   *
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
     ff00821    if   e           k disk
     fcp1220f   o    e             disk
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *                                                                   *
      * ... procedure interfaces ...                                      *
      *                                                                   *
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
     d cp1221r         pr
     d cp1221r         pi
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *                                                                   *
      * ... data structures ...                                           *
      *                                                                   *
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *                                                                   *
      * ... standalone variables ...                                      *
      *                                                                   *
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *                                                                   *
      * ... constants ...                                                 *
      *                                                                   *
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
     d MENU_IN         C                   '1'
     d PROGRAM_IN      C                   '6'
     d MENU_OUT        C                   'M'
     d PROGRAM_OUT     C                   'P'
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      * *                                                               * *
      * * *                        Mainline                           * * *
      * *                                                               * *
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      /free
       *InLR = *On;

       Read f00821;
       DoW ( Not %Eof(f00821) );

          Select;

          When ( MZSLTY = MENU_IN );
             AAMENU     = MZMNI;
             AAOBJECT   = MZMTOE;
             AAOBJECTYP = MENU_OUT;
             AAOPTION   = MZSELN;
             Write cp1220;

          When ( MZSLTY = PROGRAM_IN );
             AAMENU     = MZMNI;
             AAOBJECT   = MZJTOE;
             AAOBJECTYP = PROGRAM_OUT;
             AAOPTION   = MZSELN;
             Write cp1220;

          EndSl;

          Read f00821;
       EndDo;
       Return;
      /end-free