home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / o22516d1.zip / FAAAEWOF.@BL / FAAAEWOF.CBL
Text File  |  1992-04-09  |  16KB  |  293 lines
  1.       *************************************************************
  2.       *  COPYBOOK    :  FAAAEWOF                                  *
  3.       *
  4.       *  COPYRIGHT   :  NONE
  5.       *                                                           *
  6.       *  DESCRIPTION :  Offline system management parameters      *
  7.       *                 COBOL copybook.                           *
  8.       *                                                           *
  9.       *  STATUS      :  RELEASE 1.2                               *
  10.       *                                                           *
  11.       *  DEPENDENCIES: 1) COBOL/2 compiler                        *
  12.       *                2) PS/2 and PC processor                   *
  13.       *                                                           *
  14.       *************************************************************
  15.  
  16.       *
  17.       * Parameter block to FAAIMP
  18.       *
  19.  
  20.        01  FAA-IMPPARM.
  21.            02  FAA-IMP-USERID                   PIC X(8).
  22.            02  FAA-IMP-PASSWORD                 PIC X(8).
  23.            02  FAA-IMP-CICSPATH-PTR             POINTER.
  24.            02  FAA-IMP-LOGFILE-PTR              POINTER.
  25.            02  FAA-IMP-GROUP                    PIC X(8).
  26.            02  FAA-IMP-IMPFILE-PTR              POINTER.
  27.            02  FAA-IMP-PROGRAMS-FLAG            PIC X.
  28.                88 FAA-DONT-IMP-PROGRAMS         VALUE X'00'.
  29.                88 FAA-IMP-PROGRAMS              VALUE X'01'.
  30.            02  FAA-IMP-DATAFILES-FLAG           PIC X.
  31.                88 FAA-DONT-IMP-DATAFILES        VALUE X'00'.
  32.                88 FAA-IMP-DATAFILES             VALUE X'01'.
  33.            02  FAA-IMP-CVT-FLAG                 PIC X.
  34.                88 FAA-DONT-IMP-CVT              VALUE X'00'.
  35.                88 FAA-IMP-CVT                   VALUE X'01'.
  36.            02  FAA-IMP-SNT-FLAG                 PIC X.
  37.                88 FAA-DONT-IMP-SNT              VALUE X'00'.
  38.                88 FAA-IMP-SNT                   VALUE X'01'.
  39.            02  FAA-IMP-DOS-FLAG                 PIC X.
  40.                88 FAA-IMP-OS2-SYSTEM            VALUE X'00'.
  41.                88 FAA-IMP-DOS-SYSTEM            VALUE X'01'.
  42.            02  FAA-IMP-LOG-APPEND-FLAG          PIC X.
  43.                88 FAA-IMP-DONT-APPEND           VALUE X'00'.
  44.                88 FAA-IMP-APPEND                VALUE X'01'.
  45.            02  FAA-IMP-IGNORE-ERRORS-FLAG       PIC X.
  46.                88 FAA-IMP-DONT-IGNORE-ERRORS    VALUE X'00'.
  47.                88 FAA-IMP-IGNORE-ERRORS         VALUE X'01'.
  48.            02  FAA-IMP-FUNCTION                 PIC X.
  49.                88 FAA-IMP-MERGE                 VALUE 'M'.
  50.                88 FAA-IMP-REPLACE               VALUE 'R'.
  51.                88 FAA-IMP-DELETE                VALUE 'D'.
  52.            02  FAA-IMP-BACKUPFILE-PTR           POINTER.
  53.       *
  54.       * Parameter block to FAAEXP
  55.       *
  56.  
  57.        01  FAA-EXPPARM.
  58.            02  FAA-EXP-USERID                   PIC X(8).
  59.            02  FAA-EXP-PASSWORD                 PIC X(8).
  60.            02  FAA-EXP-CICSPATH-PTR             POINTER.
  61.            02  FAA-EXP-LOGFILE-PTR              POINTER.
  62.            02  FAA-EXP-GROUP                    PIC X(8).
  63.            02  FAA-EXP-EXPFILE-PTR              POINTER.
  64.            02  FAA-EXP-PROGRAMS-FLAG            PIC X.
  65.                88 FAA-DONT-EXP-PROGRAMS         VALUE X'00'.
  66.                88 FAA-EXP-PROGRAMS              VALUE X'01'.
  67.            02  FAA-EXP-DATAFILES-FLAG           PIC X.
  68.                88 FAA-DONT-EXP-DATAFILES        VALUE X'00'.
  69.                88 FAA-EXP-DATAFILES             VALUE X'01'.
  70.            02  FAA-EXP-CVT-FLAG                 PIC X.
  71.                88 FAA-DONT-EXP-CVT              VALUE X'00'.
  72.                88 FAA-EXP-CVT                   VALUE X'01'.
  73.            02  FAA-EXP-SNT-FLAG                 PIC X.
  74.                88 FAA-DONT-EXP-SNT              VALUE X'00'.
  75.                88 FAA-EXP-SNT                   VALUE X'01'.
  76.            02  FAA-EXP-DOS-FLAG                 PIC X.
  77.                88 FAA-EXP-OS2-SYSTEM            VALUE X'00'.
  78.                88 FAA-EXP-DOS-SYSTEM            VALUE X'01'.
  79.            02  FAA-EXP-LOG-APPEND-FLAG          PIC X.
  80.                88 FAA-EXP-DONT-APPEND           VALUE X'00'.
  81.                88 FAA-EXP-APPEND                VALUE X'01'.
  82.            02  FAA-EXP-IGNORE-ERRORS-FLAG       PIC X.
  83.                88 FAA-EXP-DONT-IGNORE-ERRORS    VALUE X'00'.
  84.                88 FAA-EXP-IGNORE-ERRORS         VALUE X'01'.
  85.            02  FAA-EXP-FUNCTION                 PIC X.
  86.                88 FAA-EXP-MERGE                 VALUE 'M'.
  87.                88 FAA-EXP-REPLACE               VALUE 'R'.
  88.                88 FAA-EXP-DELETE                VALUE 'D'.
  89.            02  FAA-EXP-NEW-GROUP                PIC X(8).
  90.  
  91.       *
  92.       * Parameter block to FAASTF
  93.       *
  94.  
  95.        01  FAA-STFPARM.
  96.            02  FAA-STF-USERID                    PIC X(8).
  97.            02  FAA-STF-PASSWORD                  PIC X(8).
  98.            02  FAA-STF-CICSPATH-PTR              POINTER.
  99.            02  FAA-STF-LOGFILE-PTR               POINTER.
  100.            02  FAA-STF-GROUP                     PIC X(8).
  101.            02  FAA-STF-VALUE                     POINTER.
  102.            02  FAA-STF-NAME                      PIC X(8).
  103.            02  FAA-STF-FIELD                     PIC 9(4) COMP-5.
  104.                88 FAA-SIT-DESCRIPTION            VALUE  000.
  105.                88 FAA-SIT-CWA-SIZE               VALUE  001.
  106.                88 FAA-SIT-MAX-TWA-SIZE           VALUE  002.
  107.                88 FAA-SIT-MAX-COMMAREA-SIZE      VALUE  003.
  108.                88 FAA-SIT-TEMPSTORAGE-CI-SIZE    VALUE  004.
  109.                88 FAA-SIT-TIOA-SIZE              VALUE  005.
  110.                88 FAA-SIT-SIOA-SIZE              VALUE  006.
  111.                88 FAA-SIT-SIO-REC-SIZE           VALUE  007.
  112.                88 FAA-SIT-GETMAIN-STACK-SIZE     VALUE  008.
  113.                88 FAA-SIT-IC-START-QUEUE-SIZE    VALUE  009.
  114.                88 FAA-SIT-NUM-TRACE-ENTRIES      VALUE  010.
  115.                88 FAA-SIT-MAX-NUMB-TASKS         VALUE  011.
  116.                88 FAA-SIT-MIN-FREE-TASKS         VALUE  012.
  117.  
  118.                88 FAA-SIT-HOST-LOGOFF-DELAY      VALUE  013.
  119.                88 FAA-SIT-LOCAL-SIGNON-REQUIRED  VALUE  014.
  120.                88 FAA-SIT-REMOTE-SIGNON-REQUIRED VALUE  015.
  121.                88 FAA-SIT-HOST-SYSIDNT           VALUE  016.
  122.                88 FAA-SIT-USER-CONV-TAB          VALUE  017.
  123.                88 FAA-SIT-LOCAL-SYSIDNT          VALUE  018.
  124.                88 FAA-SIT-INITIAL-TRANSID        VALUE  019.
  125.                88 FAA-SIT-DUMP-FLAG              VALUE  020.
  126.                88 FAA-SIT-DATE-FORMAT            VALUE  021.
  127.  
  128.                88 FAA-PCT-PROGRAM-NAME           VALUE  100.
  129.                88 FAA-PCT-TRANSACTION-TYPE       VALUE  101.
  130.                88 FAA-PCT-SECURE                 VALUE  102.
  131.                88 FAA-PCT-CAN-BE-PURGED          VALUE  103.
  132.                88 FAA-PCT-SYSID                  VALUE  104.
  133.                88 FAA-PCT-REMOTE-TRANSID         VALUE  105.
  134.                88 FAA-PCT-DESCRIPTION            VALUE  106.
  135.  
  136.                88 FAA-SNT-PASSWORD               VALUE  200.
  137.                88 FAA-SNT-AUTHORIZED             VALUE  201.
  138.                88 FAA-SNT-EXTERNAL-SECURITY      VALUE  202.
  139.                88 FAA-SNT-OPERATOR-ID            VALUE  203.
  140.                88 FAA-SNT-OPERATOR-CLASS         VALUE  204.
  141.                88 FAA-SNT-OPERATOR-KEYS          VALUE  205.
  142.                88 FAA-SNT-DESCRIPTION            VALUE  206.
  143.  
  144.                88 FAA-FCT-DATASET-NAME           VALUE  300.
  145.                88 FAA-FCT-OPEN-ENABLE            VALUE  301.
  146.                88 FAA-FCT-ACCESS-METHOD          VALUE  302.
  147.                88 FAA-FCT-BASE-FILE-NAME         VALUE  303.
  148.                88 FAA-FCT-SYSID                  VALUE  304.
  149.                88 FAA-FCT-REMOTE-NAME            VALUE  305.
  150.                88 FAA-FCT-DESCRIPTION            VALUE  306.
  151.  
  152.                88 FAA-TCT-NETWORK-NAME           VALUE  400.
  153.                88 FAA-TCT-TERMINAL-TYPE          VALUE  401.
  154.                88 FAA-TCT-MODEL                  VALUE  402.
  155.                88 FAA-TCT-ASSOCIATED-PRINTER     VALUE  403.
  156.                88 FAA-TCT-PRINTER-CLOSE-MODE     VALUE  404.
  157.                88 FAA-TCT-INIT-TRANS-REQUIRED    VALUE  405.
  158.                88 FAA-TCT-DESCRIPTION            VALUE  406.
  159.  
  160.                88 FAA-TCT-SCREEN-HEIGHT          VALUE  407.
  161.                88 FAA-TCT-WORK-STATION-SETUP     VALUE  408.
  162.                88 FAA-TCT-SCREEN-WIDTH           VALUE  409.
  163.                88 FAA-TCT-PM-FULL-SCREEN         VALUE  410.
  164.                88 FAA-TCT-UPPER-CASE-TRANSLATION VALUE  411.
  165.                88 FAA-TCT-TERMINAL-PRIORITY      VALUE  412.
  166.                88 FAA-TCT-GRAPHIC-CHAR-SET-ID    VALUE  413.
  167.                88 FAA-TCT-CODE-PAGE              VALUE  414.
  168.                88 FAA-TCT-3151-ASYNC-PORT        VALUE  415.
  169.                88 FAA-TCT-KATAKANA               VALUE  416.
  170.                88 FAA-TCT-3151-ASYNC-BPS         VALUE  417.
  171.                88 FAA-TCT-EXT-ATTRIB-COLOR       VALUE  418.
  172.                88 FAA-TCT-EXT-ATTRIB-HILIGHT     VALUE  419.
  173.                88 FAA-TCT-USER-AREA-SIZE         VALUE  420.
  174.  
  175.                88 FAA-TCS-CONNECTION-TYPE        VALUE  500.
  176.                88 FAA-TCS-CONNECTION-PRIORITY    VALUE  501.
  177.                88 FAA-TCS-DESCRIPTION            VALUE  502.
  178.                88 FAA-TCS-SEND-SESSION-COUNT     VALUE  503.
  179.                88 FAA-TCS-RECEIVE-SESSION-COUNT  VALUE  504.
  180.                88 FAA-TCS-SESSION-BUFFER-SIZE    VALUE  505.
  181.                88 FAA-TCS-SEND-SESSION-PREFIX    VALUE  506.
  182.                88 FAA-TCS-RECEIVE-SESSION-PREFIX VALUE  507.
  183.                88 FAA-TCS-MODE-NAME              VALUE  508.
  184.                88 FAA-TCS-LU-ALIAS               VALUE  509.
  185.                88 FAA-TCS-PARTNER-LU-ALIAS       VALUE  510.
  186.                88 FAA-TCS-NETB-ADAPTER           VALUE  511.
  187.                88 FAA-TCS-SNA-NETNAME            VALUE  512.
  188.                88 FAA-TCS-ATTACH-SECURITY        VALUE  513.
  189.                88 FAA-TCS-PARTNER-CODE-PAGE      VALUE  514.
  190.  
  191.                88 FAA-TCS-LU2-SYSTEM-SHORT-NAME  VALUE  515.
  192.                88 FAA-TCS-LU2-HOST-APPLID        VALUE  516.
  193.                88 FAA-TCS-3270-EXTERNAL-SECURITY VALUE  517.
  194.                88 FAA-TCS-HOST-SIGNOFF-ACTION    VALUE  518.
  195.                88 FAA-TCS-DISABLE-KEYBOARD       VALUE  519.
  196.  
  197.                88 FAA-TST-RECOVERABLE-QUEUE      VALUE  601.
  198.                88 FAA-TST-SYSID                  VALUE  602.
  199.                88 FAA-TST-REMOTE-QUEUE           VALUE  603.
  200.                88 FAA-TST-DESCRIPTION            VALUE  604.
  201.  
  202.                88 FAA-DCT-FACILITY-TYPE          VALUE  700.
  203.                88 FAA-DCT-DESCRIPTION            VALUE  701.
  204.                88 FAA-DCT-RECOVERABLE-QUEUE      VALUE  702.
  205.                88 FAA-DCT-TRIGGER-LEVEL          VALUE  703.
  206.                88 FAA-DCT-TRANSID                VALUE  704.
  207.                88 FAA-DCT-TERMINAL-ID            VALUE  705.
  208.                88 FAA-DCT-INPUT-OUTPUT           VALUE  706.
  209.                88 FAA-DCT-FIXED-VARIABLE         VALUE  707.
  210.                88 FAA-DCT-DEVICE-TYPE            VALUE  708.
  211.                88 FAA-DCT-DEVICE-FILENAME        VALUE  709.
  212.  
  213.                88 FAA-DCT-SYSID                  VALUE  710.
  214.                88 FAA-DCT-RECORD-LENGTH          VALUE  711.
  215.                88 FAA-DCT-REMOTE-DESTINATION     VALUE  712.
  216.                88 FAA-DCT-INDIRECT-DESTINATION   VALUE  713.
  217.  
  218.                88 FAA-PPT-RESIDENT-REMOTE        VALUE  800.
  219.                88 FAA-PPT-RMT-SYSID              VALUE  801.
  220.                88 FAA-PPT-RMT-PROGRAM            VALUE  802.
  221.                88 FAA-PPT-TYPE                   VALUE  803.
  222.                88 FAA-PPT-DESCRIPTION            VALUE  804.
  223.  
  224.            02  FAA-STF-LOG-APPEND-FLAG           PIC X.
  225.                88 FAA-STF-DONT-APPEND            VALUE X'00'.
  226.                88 FAA-STF-APPEND                 VALUE X'01'.
  227.            02  FAA-STF-IGNORE-ERRORS-FLAG        PIC X.
  228.                88 FAA-STF-DONT-IGNORE-ERRORS     VALUE X'00'.
  229.                88 FAA-STF-IGNORE-ERRORS          VALUE X'01'.
  230.            02  FAA-STF-TABLE                     PIC X.
  231.                88 FAA-DCT                        VALUE 'D'.
  232.                88 FAA-FCT                        VALUE 'F'.
  233.                88 FAA-PCT                        VALUE 'P'.
  234.                88 FAA-PPT                        VALUE 'O'.
  235.                88 FAA-SIT                        VALUE 'Z'.
  236.                88 FAA-SNT                        VALUE 'S'.
  237.                88 FAA-TCS                        VALUE '%'.
  238.                88 FAA-TCT                        VALUE 'T'.
  239.                88 FAA-TST                        VALUE 'Q'.
  240.  
  241.       *
  242.       * Return codes.  RETURN-CODE variable is moved to FAA-RETURN-CODE
  243.       * for interpretation.
  244.       *
  245.  
  246.        01  FAA-RETURN-CODE.
  247.            02  FAA-RETURN-MINOR         PIC X.
  248.                88  FAA-NONE             VALUE X'00'.
  249.                88  FAA-OPENFAIL         VALUE X'01'.
  250.                88  FAA-IOERROR          VALUE X'02'.
  251.                88  FAA-NOSPACE          VALUE X'03'.
  252.                88  FAA-SPECIFIED        VALUE X'04'.
  253.                88  FAA-INVALID          VALUE X'05'.
  254.                88  FAA-TABLE            VALUE X'06'.
  255.                88  FAA-VALUE            VALUE X'07'.
  256.                88  FAA-MAP              VALUE X'09'.
  257.                88  FAA-CTL              VALUE X'0A'.
  258.                88  FAA-CTLMAP           VALUE X'0B'.
  259.                88  FAA-MSG              VALUE X'0C'.
  260.                88  FAA-FILESERVER       VALUE X'0D'.
  261.                88  FAA-IMPERR           VALUE X'0E'.
  262.                88  FAA-INVREQ           VALUE X'0F'.
  263.                88  FAA-SYNTAX           VALUE X'10'.
  264.                88  FAA-NEWGROUP         VALUE X'11'.
  265.                88  FAA-USERID           VALUE X'12'.
  266.                88  FAA-PASSWORD         VALUE X'13'.
  267.                88  FAA-MAPSET           VALUE X'14'.
  268.                88  FAA-KEYNOTFOUND      VALUE X'15'.
  269.                88  FAA-DUPLICATE        VALUE X'16'.
  270.                88  FAA-PERMISSIONERROR  VALUE X'17'.
  271.                88  FAA-AUTHORITY        VALUE X'18'.
  272.            02  FAA-RETURN-MAJOR         PIC X.
  273.                88  FAA-OK               VALUE X'00'.
  274.                88  FAA-IMPFILE          VALUE X'01'.
  275.                88  FAA-EXPFILE          VALUE X'02'.
  276.                88  FAA-CTLFILE          VALUE X'03'.
  277.                88  FAA-MAPFILE          VALUE X'04'.
  278.                88  FAA-LOGFILE          VALUE X'05'.
  279.                88  FAA-BAKFILE          VALUE X'06'.
  280.                88  FAA-PRGFILE          VALUE X'07'.
  281.                88  FAA-DATFILE          VALUE X'08'.
  282.                88  FAA-CICSPATH         VALUE X'09'.
  283.                88  FAA-INVFIELD         VALUE X'0B'.
  284.                88  FAA-INVTABLE         VALUE X'0C'.
  285.                88  FAA-RECORDNOTFOUND   VALUE X'0D'.
  286.                88  FAA-NORESOURCES      VALUE X'0E'.
  287.                88  FAA-INVFUNCTION      VALUE X'0F'.
  288.                88  FAA-FAIL             VALUE X'10'.
  289.                88  FAA-INVGROUP         VALUE X'11'.
  290.                88  FAA-SECURITY         VALUE X'12'.
  291.                88  FAA-INVNEWGROUP      VALUE X'13'.
  292.  
  293.