Library Definition
The purpose of this tab is to define a Library. You specify the COBOL type, the skeleton language, and the options that are associated with dates.
- COBOL type
- This field is used to automatically adapt the extracted elements from a higher-level Library to
the COBOL type specified. The extracted elements include the Data Element internal usages, COBOL literals, Programs, Data Structure calls, and Reports with a WRITE AFTER mode (if the language variant recommends the WRITE BEFORE mode).Note: Some variants are deprecated or not supported. Furthermore, the value 0 is forced to X upon the migration of Pacbase applications.
Table 1. List of COBOL types Value Comments 0 IBM MVS OS/390 1 IBM DOS/VSE 3 UNIX, WINDOWS 4 BULL GCOS7 5 BULL GCOS8 7 COBOL HP-3000 8 For COBOL UNISYS Series A, this variant is required at the Library level to work in half-byte packed mode. Note: If this value is entered on the Library Definition after the Data Element formats are defined, the formats of the elements that are entered on the definition and Segment or Screen call of elements (including fillers and undefined elements), must be reentered to take the lengths into account.This option can also be used with BULL GCOS8. In that case, the generation variant 5 must be entered in the Programs and Screens.
C COBOL source code. F COBOL TANDEM. I COBOL DEC/VAX VMS. K COBOL ICL 2900. M COBOL BULL GCOS6. N No adaptation to any language variant (default option in the definition). O COBOL AS/400. U COBOL UNISYS 2200 Series. X COBOL II IBM MVS OS/390. Q ACUCOBOL. Z IBM AIX.
- Generated language
- You select the program generation language, according to the hardware in use.
- C: COBOL.
- COBOL II, 85, LE. It is the default value. When Pacbase applications are migrated, this value is forced by default on all the migrated Libraries.
COBOL target
By default, the generated COBOL files are stored with the design files in a root folder whose default name you can change. You can separate them from the design files or even change the generation project and folder.
In a Library, the default values of the COBOL project, COBOL folder, and Map folder (for Screens only) are the values of the current project. If the project and folders are not indicated, the default values in a Dialog are the values of the Library or current project, as applicable. In a Screen or Server, the default values are the values of the Dialog, Library or current project, as applicable.
- A library. It then constitutes the default value for all the Dialogs and Screens or Servers of this Library.
- A Dialog. It then constitutes the default value for all the Screens or Servers of this Dialog.
- A Screen or Server. It then applies to the instance only.
- COBOL project
- The files that are generated from this instance are stored in the project that is indicated in
this field.
The project of the corresponding design file is the default project. If it is kept, Default is displayed between parentheses next to the project. However, if it is explicitly changed in the instance, only the project is displayed in this field, without any other indication. If it is explicitly changed in the Dialog, Inherited from Dialog is then displayed between parentheses next to the project. If it is explicitly changed in the generation Library, Inherited from Library is then displayed between parentheses next to the project. In the instance, you can overwrite the value that is inherited from the Library.
You can select a new project in the list.
If you change the project, the COBOL folder and map folder (for Screens) are automatically set to the default value (rpp). The new project then applies to the next generation.
- COBOL folder
- The files that are generated from this instance are stored in the folder that is displayed in
this field, inside the project displayed in the previous field.
The folder of the corresponding design file is the default folder. If it is kept, Default is displayed between parentheses next to the folder. However, if it is explicitly changed in the instance, only the folder is displayed in this field, without any other indication. If it is explicitly changed in the Dialog, Inherited from Dialog is then displayed between parentheses next to the folder. If it is explicitly changed in the generation Library, Inherited from Library is then displayed between parentheses next to the folder. In the instance, you can overwrite the value that is indicated in the Library.
If the default folder is kept, you can specify a root path for the generated files in the Properties wizard (accessed by clicking Change project properties). This path is then automatically inserted in this field, at the beginning of the folder.
You can select a new folder in the drop-down list. Creating a folder is impossible at this stage. Folders must have already been created in the project, for example from the Resource perspective.
If you change the folder, it applies to the next generation.
- Change project properties
- Click to open the Properties wizard, where you can complete the following actions:
- Change the default folder. This folder contains the design files and is the default target of the generated and metadata files.
- Indicate a root path for the generated files, provided the default generation folder is kept.
- Indicate a root path for the metadata files, which are stored by default in the same folder as the other generated files.
Note: A detailed help is available from the Properties wizard of the project.
- Map folder
- This folder is used upon a Screen generation only. The map file that is generated from this
instance is stored in the folder that is displayed in this field, inside the project from the
COBOL project field.
The folder of the corresponding design file is the default folder. If it is kept, Default is displayed between parentheses next to the folder. However, if it is explicitly changed in the instance, only the folder is displayed in this field, without any other indication. If it is explicitly changed in the Dialog, Inherited from Dialog is then displayed between parentheses next to the folder. If it is explicitly changed in the generation Library, Inherited from Library is then displayed between parentheses next to the folder. In the instance, you can overwrite the value indicated in the Library.
If the default folder is kept, you can specify a root path for the generated files in the Properties wizard (accessed by clicking Change project properties). This path applies both to the COBOL files and the map files. It is automatically inserted in this field, at the beginning of the folder.
If the COBOL file is changed and if the map file contains the default value, then the map file takes on the same value as the COBOL folder.
If you change the map folder, the new folder applies to the next generation.
- Map type
- Enter the TP monitor variant.
Table 2. Possible values of the TP monitor variant, according to the selected COBOL type Values Comments N No generation. 0 - Variants 0, 1, X
- Variant Q for ACUCOBOL
- Variant 3 for UNIX, WINDOWS
- Variants 4, 5 for BULL GCOS7 and GCOS8
- Variant I for IBM DOS/VSE
- Variant U for UNISYS 2200 Series
- Variant 8 for UNISYS A Series
- Variant O for COBOL AS/400.
- Variant Z for AIX.
1 - Variants 0, X.
- Variant 3.
- Variants 4, 5.
2 - Variants 0, 1, X.
- Variant 3.
3 Variants 0, X. 4 - Variants 0, X.
- Variant 3.
5 Variants 0, X for CICS (IBM) monitor. C - Variants 4, 5, U.
- Variants 0, 1, X.
- Variant K.
- Variant 8.
F - Variant 4 for (BULL GCOS7).
R Variant F for REQUESTER type program or variant R for a CLIENT type program. S Variant F for SERVER type program or variant R for SERVICE type program.
- Alphanumeric delimiter
- This character delimits alphanumeric literals in the generated COBOL programs.
Depending on the value in the COBOL type field, this option can be a quotation mark (') for an IBM COBOL type or double quotation marks (") for the other COBOL types.
- Decimal point delimiter
- This field specifies the character to be used as the decimal separator:
- . period,Example: 1000.00
- , comma, Example: 1000,00
- . period,
- Century system date
- With this option, the system date indicates the century in the
generated applications:
Table 3. Specification of the century system date Values Comments N With COBOL II or COBOL 85. It is the default value.
If the year is smaller than the value entered in the Century reference date field, it is prefixed by 20. If it is greater, it is prefixed by 19.
C With COBOL II or COBOL 85 compatible with the year 2000. Direct retrieval of the system date with the century according to the COBOL capabilities.
W With other COBOL languages. A value is set for the century as with the N value.
- Century reference date
- This year is used to calculate the century if the date includes
the year only. The default value upon the creation of the generation
parameters is 61.This calculation occurs in the following cases:
- The system date does not include the century. The century is calculated by entering N or W in the Century system date field.
- A date transformation operator is used. The calculation mode depends on the operator used.
- Generated date format
- This field contains the date format to be used in generated programs:
Table 4. Specification of the English or French date format Values Comments E MM/DD/YY format. F DD/MM/YY format.
- Generated skeleton language
- If you extracted instances from Pacbase and imported
them into your workspace, this field contains the value of the skeleton language in Pacbase. When you generate from your workspace, you are sure to use
the same skeleton language. The COBOL code of both generations is then consistent.It automatically applies to all the entities generated from the Library:
- Program,
- Screen,
- Dialog,
- Server Dialog,
- Server,
- Database Block,
- Data Structure.