000100
000200******************************************************************
000300*      This copylib is for use on the ....MAINFRAME ONLY....     *
000400*This version of the copylib eliminates the Micro Focus non      *
000500*standard usage of "PIC 9(02) comp-X" pictures.  Instead it      *
000600*eliminates the "comp-X" from the picture clauses where it       *
000700*appears with a "PIC 9(02)" in order to avoid compile errors.    *
000800*This copylib should will likely only change when new files are  *
000900*are added for use by the PC portion of the manager program.     *
001000*This copylib should NEVER be used as a copylib on the PC in     *
001100*Micro Focus.                                                    *
001200*     HOWEVER, anytime a file is added, deleted, or changed for  *
001300*use on the PC, this copylib needs to be updated if the change   *
001400*is initiated on the PC.  If initiated on the mainframe, then it *
001500*may be downloaded to the PC and appropiate changes made in      *
001600*order for the variables to be effectively used on the PC.       *
001700*It is suggested that the commented lines be switched for ease   *
001800*of maintaince.  Of course the comments here need to be changed. *
001900******************************************************************
002000******************************************************************
002100*On the PC the '05' level here is the name of the external file  *
002200*used by the SELECT statement in the File-Contol paragraph at the*
002300*top of the program.  This allows one to use any file name (within
002400*limits) and not be fixed in using a specific name.  It is       *
002500*analogous to using another file name on the JCL on the mainframe*
002600******************************************************************
002700
002800*----------------------------------------------------------------*
002900 01  PC-FILE-STATUS-CODES.
003000*----------------------------------------------------------------*
003100     05  MSA-CBSA-STATUS            PIC 9(02).
003200     05  MSA-CBSA-STAT REDEFINES MSA-CBSA-STATUS.
003300         10  XWALK-STAT1            PIC 9.
003400         10  XWALK-STAT2            PIC 9.
003500
003600 01  PC-SPOOLER-FILE-STATUS.
003700     05  PC-SPOOL-STAT1             PIC 9(01) VALUE ZERO.
003800     05  PC-SPOOL-STAT2             PIC 9(01) VALUE ZERO.
003900*    05  PC-SPOOL-9-STAT2   REDEFINES   PC-SPOOL-STAT2
004000*                                   PIC 9(02) COMP-X.
004100
004200 01  CREATE-STATUS-CD               PIC 9(04) COMP-5.
004300*    05  CREATE-STAT1               PIC X VALUE ZERO.
004400*    05  CREATE-STAT2               PIC X VALUE ZERO.
004500*    05  CREATE-9-STAT2 REDEFINES CREATE-STAT2
004600*                                   PIC 9(02) COMP-X.
004700*    05  CREATE-9-STAT2 REDEFINES CREATE-STAT2
004800*                                   PIC 9(01).
004900
005000 01  PC-PRINT-STATUS-CODE           PIC 9(09) COMP-5.
005100*    05  PC-PRINT-STAT1             PIC X VALUE ZERO.
005200*    05  PC-PRINT-STAT2             PIC X VALUE ZERO.
005300*    05  PC-PRINT-9-STAT2 REDEFINES PC-PRINT-STAT2
005400*                                   PIC 9(02) COMP-X.
005500*    05  PC-PRINT-9-STAT2 REDEFINES PC-PRINT-STAT2
005600*                                   PIC 9(01).
005700
005800 01  FILE-STAT.
005900     05  FILE-STAT1                 PIC 9(01) VALUE ZERO.
006000     05  FILE-STAT2                 PIC 9(01) VALUE ZERO.
006100*    05  FILE-9-STAT2 REDEFINES FILE-STAT2
006200*                                   PIC 9(02) COMP-X.
006300     05  FILE-9-STAT2 REDEFINES FILE-STAT2
006400                                    PIC 9(01).
006500
006600 01  PC-GENERIC-STAT-DISPLAY.
006700     05  GENERIC-STAT1-DISPLAY      PIC X.
006800     05  GENERIC-STAT2-DISPLAY      PIC X.
006900*    05  GENERIC-9-STAT2 REDEFINES GENERIC-STAT2-DISPLAY
007000*                                   PIC 9(02) COMP-X.
007100     05  GENERIC-9-STAT2 REDEFINES GENERIC-STAT2-DISPLAY
007200                                    PIC 9(01).
007300
007400******************************************************************
007500*  FILE STATUS MESSAGE TABLE taken from Microfocus information   *
007600******************************************************************
007700 01  FILE-STATUS-MSGS.
007800     05  FILLER                     PIC X(60) VALUE
007900        '00 Successful file operation.'.
008000     05  FILLER                     PIC X(60) VALUE
008100        '02 Record found.'.
008200     05  FILLER                     PIC X(60) VALUE
008300        '04 The length of the record being processed is invalid.'.
008400     05  FILLER                     PIC X(60) VALUE
008500        '05 The referenced optional file is not present.'.
008600     05  FILLER                     PIC X(60) VALUE
008700        '07 This sequential file is a non-reel/unit medium.'.
008800     05  FILLER                     PIC X(60) VALUE
008900        '10 There is no next logical record, end of file.'.
009000     05  FILLER                     PIC X(60) VALUE
009100        '14 This relative file contains an invalid record number.
009200-       ''.
009300     05  FILLER                     PIC X(60) VALUE
009400        '21 This sequential file has encountered a sequence error
009500-       '.'.
009600     05  FILLER                     PIC X(60) VALUE
009700        '22 This indexed file has encountered a duplicate key.'.
009800     05  FILLER                     PIC X(60) VALUE
009900        '23 The record trying to be accessed is not found.'.
010000     05  FILLER                     PIC X(60) VALUE
010100        '24 This file has encountered a write boundary violation
010200-       '.'.
010300     05  FILLER                     PIC X(60) VALUE
010400        '30 An I/O error has been encountered.'.
010500     05  FILLER                     PIC X(60) VALUE
010600        '34 The I/O statement failed because of a boundary violati
010700-       'on.'.
010800     05  FILLER                     PIC X(60) VALUE
010900        '35 File cannot be opened because it does not exist.'.
011000     05  FILLER                     PIC X(60) VALUE
011100        '37 File cannot be opened with the specified open mode.'.
011200     05  FILLER                     PIC X(60) VALUE
011300        '38 This file has been locked and cannot be opened.'.
011400     05  FILLER                     PIC X(60) VALUE
011500        '39 File attributes conflict with file description.'.
011600     05  FILLER                     PIC X(60) VALUE
011700        '41 Attempt made to open this already opened file.'.
011800     05  FILLER                     PIC X(60) VALUE
011900        '42 Attempt made to close this already closed file.'.
012000     05  FILLER                     PIC X(60) VALUE
012100        '43 Record cannot be deleted or rewritten without being re
012200-       'ad.'.
012300     05  FILLER                     PIC X(60) VALUE
012400        '44 Boundary violation exists - possibly on a write/rewrit
012500-       'e.'.
012600     05  FILLER                     PIC X(60) VALUE
012700        '46 Sequential read: there is no next record to be read.'.
012800     05  FILLER                     PIC X(60) VALUE
012900        '47 Read or start attempted on this unopened file.'.
013000     05  FILLER                     PIC X(60) VALUE
013100        '48 Write attempted on this unopened file.'.
013200     05  FILLER                     PIC X(60) VALUE
013300        '49 Delete or rewrite attempted on this unopened file.'.
013400
013500 01  FILE-STATUS-TABLE REDEFINES FILE-STATUS-MSGS.
013600     05  FILE-STATUS-ENTRY OCCURS 28 TIMES
013700             ASCENDING KEY IS TBL-FILE-STATUS
013800             INDEXED BY FILE-STATUS-IDX.
013900         10  TBL-FILE-STATUS        PIC 99.
014000         10  FILLER                 PIC X.
014100         10  TBL-FILE-STATUS-MSG    PIC X(57).
014200
014300*-------------------END OF FILE STATUS TABLE---------------------*
014400
014500
014600******************************************************************
014700*EXTENDED FILE STATUS CODE MESSAGE TABLE                         *
014800*                                                                *
014900*When using ANSI'74 or ANSI'85 file status codes, the run-time   *
015000*system codes if the extended file status is more specific.      *
015100*                                                                *
015200*Extended file status codes are of the form:  9/nnn              *
015300*where nnn is one of the following values:                       *
015400*                                                                *
015500*Copyright (C) 2000 MERANT International Ltd. All rights reserved*
015600******************************************************************
015700 01  FILE-STATUS-9-MSGS.
015800     05  FILLER                     PIC X(73) VALUE
015900        '001 Insufficient buffer space - could be out of memory.'.
016000     05  FILLER                     PIC X(73) VALUE
016100        '002 File not open when access tried.'.
016200     05  FILLER                     PIC X(73) VALUE
016300        '003 Serial mode error.'.
016400     05  FILLER                     PIC X(73) VALUE
016500        '004 Illegal file name.'.
016600     05  FILLER                     PIC X(73) VALUE
016700        '005 Illegal device specified.'.
016800     05  FILLER                     PIC X(73) VALUE
016900        '006 Attempt to write to a file opened for input.'.
017000     05  FILLER                     PIC X(73) VALUE
017100        '007 Disk space exausted.'.
017200     05  FILLER                     PIC X(73) VALUE
017300        '008 Attempt to input from a file opened for output.'.
017400     05  FILLER                     PIC X(73) VALUE
017500        '009 No room in directory or directory does not exist.'.
017600     05  FILLER                     PIC X(73) VALUE
017700        '010 File name not supplied.'.
017800     05  FILLER                     PIC X(73) VALUE
017900        '012 Attempt to open a file which is already open.'.
018000     05  FILLER                     PIC X(73) VALUE
018100        '013 File not found.'.
018200     05  FILLER                     PIC X(73) VALUE
018300        '014 Too many files open simultaneously.'.
018400     05  FILLER                     PIC X(73) VALUE
018500        '015 Too many indexed files open.'.
018600     05  FILLER                     PIC X(73) VALUE
018700         '016 Too may device files open.'.
018800     05  FILLER                     PIC X(73) VALUE
018900        '017 Record error: probably zero length.'.
019000     05  FILLER                     PIC X(73) VALUE
019100        '018 Read part record error: EOF before EOR or file open i
019200-       'n wrong mode.'.
019300     05  FILLER                     PIC X(73) VALUE
019400        '019 Rewrite error: open mode or access mode.'.
019500     05  FILLER                     PIC X(73) VALUE
019600        '020 Device or resource busy.'.
019700     05  FILLER                     PIC X(73) VALUE
019800        '021 File is a directory.'.
019900     05  FILLER                     PIC X(73) VALUE
020000        '022 Illegal or impossible access mode for open.'.
020100     05  FILLER                     PIC X(73) VALUE
020200        '023 Illegal or impossible access mode for close.'.
020300     05  FILLER                     PIC X(73) VALUE
020400        '024 Disk I/O error.'.
020500     05  FILLER                     PIC X(73) VALUE
020600        '025 Operating system data error.'.
020700     05  FILLER                     PIC X(73) VALUE
020800        '026 Block I/O error.'.
020900     05  FILLER                     PIC X(73) VALUE
021000        '027 Device not available.'.
021100     05  FILLER                     PIC X(73) VALUE
021200        '028 No space on device.'.
021300     05  FILLER                     PIC X(73) VALUE
021400        '029 Attempt to delete open file.'.
021500     05  FILLER                     PIC X(73) VALUE
021600        '030 File system is read only.'.
021700     05  FILLER                     PIC X(73) VALUE
021800        '031 Not owner of file.'.
021900     05  FILLER                     PIC X(73) VALUE
022000        '032 Too many indexed files, or no such process.'.
022100     05  FILLER                     PIC X(73) VALUE
022200        '033 Physical I/O error.'.
022300     05  FILLER                     PIC X(73) VALUE
022400        '034 Incorrect mode or file descriptor.'.
022500     05  FILLER                     PIC X(73) VALUE
022600        '035 Attempt to access a file with incorrect permission.'.
022700     05  FILLER                     PIC X(73) VALUE
022800        '036 File already exists.'.
022900     05  FILLER                     PIC X(73) VALUE
023000        '037 File access denied.'.
023100     05  FILLER                     PIC X(73) VALUE
023200        '038 Disk not compatible.'.
023300     05  FILLER                     PIC X(73) VALUE
023400        '039 File not compatible.'.
023500     05  FILLER                     PIC X(73) VALUE
023600        '040 Language initialization not set up correctly.'.
023700     05  FILLER                     PIC X(73) VALUE
023800        '041 Corrupt index file.'.
023900     05  FILLER                     PIC X(73) VALUE
024000        '042 Attempt to write on broken pipe.'.
024100     05  FILLER                     PIC X(73) VALUE
024200        '043 File information missing for indexed file.'.
024300     05  FILLER                     PIC X(73) VALUE
024400        '045 Attempt to open an NLS file using an incompatible pro
024500-       'gram.'.
024600     05  FILLER                     PIC X(73) VALUE
024700        '047 Indexed structure overflow, maximum number of duplica
024800-       'te keys reached.'.
024900     05  FILLER                     PIC X(73) VALUE
025000        '065 File locked.'.
025100     05  FILLER                     PIC X(73) VALUE
025200        '066 Attempt to add duplicate record key to indexed file.'
025300-       .
025400     05  FILLER                     PIC X(73) VALUE
025500        '068 Record locked.'.
025600     05  FILLER                     PIC X(73) VALUE
025700        '069 Illegal argument to ISAM module.'.
025800     05  FILLER                     PIC X(73) VALUE
025900        '070 Too many indexed files open.'.
026000     05  FILLER                     PIC X(73) VALUE
026100        '071 Bad indexed file format.'.
026200     05  FILLER                     PIC X(73) VALUE
026300        '072 End of indexed file.'.
026400     05  FILLER                     PIC X(73) VALUE
026500        '099 Invalid sort operation.'.
026600     05  FILLER                     PIC X(73) VALUE
026700        '100 Invalid file operation.'.
026800     05  FILLER                     PIC X(73) VALUE
026900        '104 Null file name used in a file operation.'.
027000     05  FILLER                     PIC X(73) VALUE
027100        '105 Memory allocation error.'.
027200     05  FILLER                     PIC X(73) VALUE
027300        '138 File closed with lock - cannot be opened.'.
027400     05  FILLER                     PIC X(73) VALUE
027500        '139 Record length or key data inconsistency.'.
027600     05  FILLER                     PIC X(73) VALUE
027700        '141 File already open - cannot be opened.'.
027800     05  FILLER                     PIC X(73) VALUE
027900        '142 File not open - cannot be closed.'.
028000     05  FILLER                     PIC X(73) VALUE
028100        '143 Rewrite/Delete in sequential mode not preceded by suc
028200-       'cessful read.'.
028300     05  FILLER                     PIC X(73) VALUE
028400        '146 No current record defined for sequential read.'.
028500     05  FILLER                     PIC X(73) VALUE
028600        '147 Wrong open mode or access mode for read/start.'.
028700     05  FILLER                     PIC X(73) VALUE
028800        '148 Wrong open mode or access mode for write.'.
028900     05  FILLER                     PIC X(73) VALUE
029000        '149 Wrong open mode or access mode for rewrite/delete.'.
029100     05  FILLER                     PIC X(73) VALUE
029200        '161 File header not found.'.
029300     05  FILLER                     PIC X(73) VALUE
029400        '173 Called program not found.'.
029500     05  FILLER                     PIC X(73) VALUE
029600        '188 File name too large.'.
029700     05  FILLER                     PIC X(73) VALUE
029800        '194 File size too large.'.
029900     05  FILLER                     PIC X(73) VALUE
030000        '195 Delete/rewrite not preceded by a read.'.
030100     05  FILLER                     PIC X(73) VALUE
030200        '196 Record number too large in relative or indexed file.'
030300-       .
030400     05  FILLER                     PIC X(73) VALUE
030500        '210 File is closed with lock.'.
030600     05  FILLER                     PIC X(73) VALUE
030700        '213 Too many locks.'.
030800     05  FILLER                     PIC X(73) VALUE
030900        '218 Malformed multiple reel/unit file.'.
031000     05  FILLER                     PIC X(73) VALUE
031100        '219 Operating system shared file limit exceeded.'.
031200
031300 01  FILE-STATUS-9-TABLE REDEFINES FILE-STATUS-9-MSGS.
031400     05  FILE-STATUS-9-ENTRY OCCURS 74 TIMES
031500             ASCENDING KEY IS TBL-FILE-STATUS-9
031600             INDEXED BY FILE-STATUS-9-IDX.
031700         10  TBL-FILE-STATUS-9      PIC 999.
031800         10  FILLER                 PIC X.
031900         10  TBL-FILE-STATUS-9-MSG  PIC X(69).
032000
032100*-------------END OF EXTENDED FILE STATUS 9 TABLE----------------*
032200
032300******************************************************************
032400*  PC PRINT STATUS CODE TABLE                                       *
032500*Possible return codes from the printer handling library routines*
032600*are:                                                            *
032700*Copyright (C) 2000 MERANT International Ltd. All rights reserved*
032800******************************************************************
032900 01  PC-PRINT-STATUS-CODE-DESCS.
033000     05  FILLER                     PIC X(83) VALUE
033100         '00 Success.'.
033200     05  FILLER                     PIC X(83) VALUE
033300         '01 Could not open printer device.'.
033400     05  FILLER                     PIC X(83) VALUE
033500         '02 Invalid printer control code specified.'.
033600     05  FILLER                     PIC X(83) VALUE
033700         '03 No printer device associated with specified handle.'.
033800     05  FILLER                     PIC X(83) VALUE
033900         '04 Out of memory while printing.'.
034000     05  FILLER                     PIC X(83) VALUE
034100         '05 Failed to open print file.'.
034200     05  FILLER                     PIC X(83) VALUE
034300         '06 Disk full while spooling file.'.
034400     05  FILLER                     PIC X(83) VALUE
034500         '07 Print job aborted. No job sent to printer spool.'.
034600     05  FILLER                     PIC X(83) VALUE
034700         '08 Printer information structure badly constructed.'.
034800     05  FILLER                     PIC X(83) VALUE
034900         '09 No default printer found.'.
035000     05  FILLER                     PIC X(83) VALUE
035100         '10 Error attempting to display dialog.'.
035200     05  FILLER                     PIC X(83) VALUE
035300         '11 Write failure.'.
035400     05  FILLER                     PIC X(83) VALUE
035500         '12 No fonts found usable with this printer.'.
035600     05  FILLER                     PIC X(83) VALUE
035700         '13 The font requested does not exist.'.
035800     05  FILLER                     PIC X(83) VALUE
035900         '14 User aborted print job.'.
036000     05  FILLER                     PIC X(83) VALUE
036100         '15 Reserved.'.
036200     05  FILLER                     PIC X(83) VALUE
036300         '16 Reserved.'.
036400     05  FILLER                     PIC X(83) VALUE
036500         '17 Reserved.'.
036600     05  FILLER                     PIC X(83) VALUE
036700         '18 Failed to load bitmap.'.
036800     05  FILLER                     PIC X(83) VALUE
036900         '19 Invalid bitmap id.'.
037000     05  FILLER                     PIC X(83) VALUE
037100         '20 Failed to free bitmap.'.
037200     05  FILLER                     PIC X(83) VALUE
037300         '21 Failed to print bitmap.'.
037400     05  FILLER                     PIC X(83) VALUE
037500         '22 Bad parameter.'.
037600     05  FILLER                     PIC X(83) VALUE
037700         '23 Internal error.'.
037800     05  FILLER                     PIC X(83) VALUE
037900         '24 User pressed Cancel on the printer setup dialog or on
038000-        ' the font selection dialog.'.
038100
038200 01  PC-PRINT-STATUS-CODE-TABLE REDEFINES
038300                                PC-PRINT-STATUS-CODE-DESCS.
038400     05  PC-P-PRINT-STATUS-CODE-ENTRY OCCURS 24 TIMES
038500             ASCENDING KEY IS TBL-PRINT-STATUS-CODE
038600             INDEXED BY PC-P-STATUS-CODE-IDX.
038700         10  TBL-PRINT-STATUS-CODE  PIC 99.
038800         10  FILLER                 PIC X.
038900         10  PC-P-STATUS-CODE-DESC  PIC X(80).
039000
039100*------------------END OF PRINT STATUS COPYLIB-------------------*
