Screens
PRMN Process Manipulation, copies an existing process to new name.
This option is often used when creating a new process by copying an existing process
to a new name and then modifing the new process.
1. FS - Define the file specification.
--------------------------------------------------------------------------------
| 12/13/01 09:48 DEFINE FILE SPECIFICATIONS ST FS |
| *** Z99.GEODEMIC *** |
| Created On: 12/10/01 By: Changed On: 12/10/01 By: |
|------------------------------------------------------------------------------|
| 1 Physical File Name..: Z99.GEODEMIC |
| 2 Alias File Names....: 1: |
| 3 Freeze Fld Placement: No |
| 4 Release Status......: D Developing |
| 5 Release Modules.....: 1: BASE 2: 3: |
| 6 File Type...........: DYNAMIC Dynamic allocation |
| 7 Category............: T - Transaction |
| 8 * Purpose.: 1: |
| 9 * Tech Doc: 1: |
| 10 Maximum Composite Field Size (Oracle ONLY): |
| 11 Maximum Expected Row Size (Oracle ONLY)...: |
| |
| |
| |
| |
| |
| |
|XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX|
2. DEL - Define each of the file's fields.
--------------------------------------------------------------------------------
| 12/13/01 09:52 DATABASE ELEMENT LINKAGES ST DEL |
| *** X.GEO.ZIP *** |
|------------------------------------------------------------------------------|
| 1 * Usage Type: K Key Assoc: |
| 2 * Purpose...: 1: |
| 2: |
|------------------------------------------------------------------------------|
| 3 Source/File..: Z99.GEODEMIC Keys..: X.GEO.ZIP |
| 4 Field Number.: 1 Highest Field Number.: 1 |
| 5 Internal Size: Empty Field Count....: |
| 6 Truncation...: No File Status..........: Modifiable |
| |
| 7 Reference File Name Reference File Key |
| 1: |
| |
| 8 Logical File Prefix....: |
| 9 Points to Element......: |
| 10 Pointed to from Element: |
| 11 Linkage Deletion Type..: |
| 12 Relation/Join File Name: |
| 13 * Join File Key Routine: 1: |
|XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX|
--------------------------------------------------------------------------------
| 12/13/01 09:52 DATABASE ELEMENT LINKAGES ST DEL |
| *** X.GEO.CODE *** |
|------------------------------------------------------------------------------|
| 1 * Usage Type: D Data Assoc: |
| 2 * Purpose...: 1: |
| 2: |
|------------------------------------------------------------------------------|
| 3 Source/File..: Z99.GEODEMIC Keys..: X.GEO.ZIP |
| 4 Field Number.: 1 Highest Field Number.: 1 |
| 5 Internal Size: Empty Field Count....: |
| 6 Truncation...: No File Status..........: Modifiable |
| |
| 7 Reference File Name Reference File Key |
| 1: |
| |
| 8 Logical File Prefix....: |
| 9 Points to Element......: |
| 10 Pointed to from Element: |
| 11 Linkage Deletion Type..: |
| 12 Relation/Join File Name: |
| 13 * Join File Key Routine: 1: |
|XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX|
3. SGP - Enter screen global parameters.
1 Process Mnemonic should be entered before placing screen on the menu. The
menu program gets its information from the information entered on this screen.
--------------------------------------------------------------------------------
| 12/13/01 09:55 SCREEN GLOBAL PARAMETERS ST SGP |
| Menu.......: XGEO GEO Code Entry Screen. Process: XAMS01 |
| Gen Version: 99/10/17 Process Type: Screen |
| Created On.: 12/10/01 By: Changed On: 12/13/01 By: |
|------------------------------------------------------------------------------|
| 1 Process Mnemonic: XGEO |
| 2 Description.....: GEO Code Entry Screen. |
| 3 VOC Synonyms....: 1: |
| 4 Release Status..: R Releasable |
| 5 Release Modules.: 1: BASE 2: AC 3: |
| 6 * Tech Doc......: 1: Dec 10 2001 02:25pm |
|------- Process Characteristics -------- |
| 7 Catalog Disposition.........: L |--------- Screen Dimensions ----------|
| 8 Allow Delete of Primary Rec.: Yes | 12 Maximum/Minimum Lines...: 22 22 |
| 9 Inquiry Process (No Update).: No | 13 Maximum/Minimum Columns.: 80 80 |
| 10 Detail Process (Not on Menu): No | 14 Absolute Origin Line/Col: 1 1 |
| 11 Process Uses Standard I/O...: Yes | 15 Issue Final Prompt Before End.: Y |
|--------- Entry Argument List ------------------------------------------------|
| 16 Argument Name Argument Description |
| 1: A.GEO.ID GEODEMIC ID |
| 2: |
|XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX|
4. SXR - Add common code to the screen's program.
--------------------------------------------------------------------------------
| 12/13/01 09:58 SCREEN EXTERNAL RESOURCES ST SXR |
| Menu...: GEO Code Entry Screen. Process: XAMS01 |
|------------------------------------------------------------------------------|
| Allow |
| 1 Additional Data Elements Write Pointer to Data Element |
| 1: |
| 2: |
| 3: |
| 4: |
| 5: |
| 6: |
| 7: |
|------------------------------------------------------------------------------|
| 2 * Additional Initialization INSERT Modules Needed |
| 1: $INSERT I_XCOMMON FROM CUSTOM.SOURCE |
| 2: |
| 3: |
| 3 * Internal Subroutine Code/Insert Modules: |
| 1: |
| 2: |
| 3: |
|XX Controller XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX No Values XXXXXXXXX|
5. P - Create the screen in Painter.
Information entered in this screen is used to create a UniBasic program that
is placed in [appl].SOURCE with the process ID as the record ID.
--------------------------------------------------------------------------------
| aaaaaaaa bbbbbb e ccccccccccccccccccccccccccccc dddddd |
| |
| Zip Code: fffffffffff |
|------------------------------------------------------------------------------|
| |
| 1 GEO Code: gggg |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
|X ST XAMS01 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX|
6. Enter "Output Editing" information in the SEIO screen. Access with F2
in the key field (usually f).
--------------------------------------------------------------------------------
| 12/13/01 10:03 SCREEN ELEMENT INPUT/OUTPUT ST SEIO |
| Menu: GEO Code Entry Screen. Process: XAMS01 |
| File: *** VAR1 *** Inqry Only |
| Output Convert: Mask: |
|------------------------------------------------------------------------------|
| 1 * Output Editing: 1: OUTPUT.DATA = V.X.GEO.ZIP |
| 2: |
| 3: |
|------------------------------------------------------------------------------|
| 2 * Input Editing.: 1: Code to call detail screen |
| 2: |
| 3: |
| 3 * Delete Hook...: 1: |
| 2: |
| 4 * Input Source..: 1: |
| 2: |
|------------------------------------------------------------------------------|
| 5 Field Label...........: |
| 6 * Val/Xlat Table......: 1: |
| 7 * Default Code........: 1: |
| 8 CDD Element To Inherit: |
|XX Controller Output Editing XXXXXXXXXXXXXXXXXXXXXXXXXXXXX Value 1/1 XXXXXXXXX|
This code is a sample of the code needed to detail to a second screen. Test, if
COMMAND = CMD.DT, then call CALL_SCREEN ProcessName(parameters for ID of secend
screen).
001: VALIDATION OFF
002: LOOKUP
003:
004: A.AWARD = V.X.CNTRT.AWARD.TYPE
005: A.YEAR = V.X.CNTRT.YEAR
006: IF COMMAND = CMD.DT & (A.AWARD = 'MWS' ! A.AWARD = 'FWS') THEN
007: IF NUM(A.YEAR) AND LEN(A.YEAR) = 4 THEN
008:
009: OPEN 'PERSON' TO F1 ELSE CRT "CAN'T OPEN PERSON"
010: OPEN 'Z99.CNTRT.DEPTS' TO F2 ELSE CRT "CAN'T OPEN Z99.CNTRT.DETPS"
011:
012: READ PERSON.TEST FROM F1, V.X.CNTRT.STU.ID THEN
013: READ DEPT.TEST FROM F2, V.X.CNTRT.DEPT THEN
014: A.GEO.ID = V.X.CNTRT.STU.ID
015: * A.YEAR = V.X.CNTRT.YEAR
016: A.DEPT = V.X.CNTRT.DEPT
017: CALL_SCREEN XJAS02(A.GEO.ID, A.YEAR, A.DEPT, A.AWARD)
018: END
019: END
020:
021: END
022: END
Bottom.
*--:
7. Link the file ID to the "OUTPUT.DATA" variable in SFLD or SEIO. Both of
these screens can be access with F2 in the ID field in the Painter screen
(usually f).
--------------------------------------------------------------------------------
| 12/13/01 10:11 SCREEN ELEMENT FIELDS ST SFLD |
| Menu: GEO Code Entry Screen. Process: XAMS01 |
| File: *** VAR1 *** Inqry Only |
| CDD Output Conv: Mask: |
|------------------------------------------------------------------------------|
| 1 * At Entry......: 1: |
| 2 * Input Source..: 1: |
| 3 * Input Editing.: 1: |
| 4 * Delete Hook...: 1: |
| 5 * At Exit.......: 1: |
| 6 * Output Editing: 1: OUTPUT.DATA = V.X.GEO.ZIP |
| 7 * Field Refresh.: 1: |
| 8 * Window Refresh: 1: |
| 9 * Val/Xlat Table: 1: |
|------------------------------------------------------------------------------|
| 10 Forced Valid Commands..: 1: |
| 11 Forced Invalid Commands: 1: |
| 12 Security Synonym.......: |
| 13 * Default Code.........: 1: |
| 14 Field Label............: |
| 15 CDD Element to Inherit.: |
|XX Controller Field Refresh XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX No Values XXXXXXXXX|
--------------------------------------------------------------------------------
| 12/13/01 10:12 SCREEN ELEMENT INPUT/OUTPUT ST SEIO |
| Menu: GEO Code Entry Screen. Process: XAMS01 |
| File: *** VAR1 *** Inqry Only |
| Output Convert: Mask: |
|------------------------------------------------------------------------------|
| 1 * Output Editing: 1: OUTPUT.DATA = V.X.GEO.ZIP |
| 2: |
| 3: |
|------------------------------------------------------------------------------|
| 2 * Input Editing.: 1: |
| 2: |
| 3: |
| 3 * Delete Hook...: 1: |
| 2: |
| 4 * Input Source..: 1: |
| 2: |
|------------------------------------------------------------------------------|
| 5 Field Label...........: |
| 6 * Val/Xlat Table......: 1: |
| 7 * Default Code........: 1: |
| 8 CDD Element To Inherit: |
|XX Controller Output Editing XXXXXXXXXXXXXXXXXXXXXXXXXXXXX Value 1/1 XXXXXXXXX|
8. Setup the lookup information in LCTD, LURS, and SFLD. Access LCTD with F2
in the lookup field in the Painter (usually e).
--------------------------------------------------------------------------------
| 12/13/01 10:17 ELEMENT LOOKUP SPECIFICATIONS ST LCTD |
| Element Name: X.GEO.ZIP |
|------------------------------------------------------------------------------|
| 1 Prompt Text..........: Enter Zip Code |
| 2 Allow New Records....: Yes |
| 3 File Name............: Z99.GEODEMIC |
| 4 Current Key Var......: CRNT.GEO.ID |
| 5 Argument Var.........: A.GEO.ID |
| 6 * Attribute Table....: Z99.GEODEMIC |
| 7 Inherit From File....: Yes |
| 8 * New Key Options....: |
| 9 * Sort/Select Options: |
|------------------------------------------------------------------------------|
| 10 * Do Before Resolve: 1: |
| 11 * Do For Resolution: 1: |
| 12 * Do After Resolve.: 1: |
|------------------------------------------------------------------------------|
| 13 * Do If Not Found..: 1: |
| 14 * Do If Found......: 1: |
| 15 * Do If Add Record.: 1: |
| |
|XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX|
8.a Setup the "Lookup Resolution Screen" on LURS. Access LURS with F2 in
field 6 of LCTD.
--------------------------------------------------------------------------------
| 12/13/01 10:19 LOOKUP RESOLUTION SPECS LURS |
| |
| Resolution ID: Z99.GEODEMIC |
| Added On: 12/10/01 By: Changed On: 12/13/01 By: |
|------------------------------------------------------------------------------|
| 1 Resolution File: Z99.GEODEMIC |
| 2 Maximum Lines..: 2 |
| 3 Description....: |
| 4 Key Subroutine.: |
| 5 * Set Defaults.: |
| 6 * Resolution Specification |
| Ln Col Len Just Block Definition / Header Conversion ID |
| -- --- --- ----- ----------------------------------------- ---------- -- |
| 1: 1 9 11 Left @ID a |
| |
| 2: 1 22 20 Left X.GEO.CODE b |
| |
| 3: |
| |
| 4: |
| |
|XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX|
Resolution File LookUp: Z99.GEODEMIC
8.b SFLD - Setup the "Input Editing" field.
Access SFLD with F2 in the Lookup field of the Painter (usually e).
--------------------------------------------------------------------------------
| 12/13/01 10:22 SCREEN ELEMENT FIELDS ST SFLD |
| Menu: GEO Code Entry Screen. Process: XAMS01 |
| File: Z99.GEODEM *** X.GEO.ZIP *** Phantom Reqd |
| CDD Output Conv: Mask: |
|------------------------------------------------------------------------------|
| 1 * At Entry......: 1: |
| 2 * Input Source..: 1: |
| 3 * Input Editing.: 1: LOOKUP |
| 4 * Delete Hook...: 1: |
| 5 * At Exit.......: 1: |
| 6 * Output Editing: 1: |
| 7 * Field Refresh.: 1: |
| 8 * Window Refresh: 1: |
| 9 * Val/Xlat Table: 1: |
|------------------------------------------------------------------------------|
| 10 Forced Valid Commands..: 1: |
| 11 Forced Invalid Commands: 1: |
| 12 Security Synonym.......: |
| 13 * Default Code.........: 1: |
| 14 Field Label............: |
| 15 CDD Element to Inherit.: |
|XX Controller At Entry XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX No Values XXXXXXXXX|
10. DEP - To add a lookup to the [appl].VALCODES table. Put TRANSLATE in field 12 and
$VR.[VAL Code Name] in field 14. Add OPT for Optional.
This process will place a record in the appl.CDD file. It is used to define dictionary
items.
--------------------------------------------------------------------------------
| 01/07/02 16:25 DATABASE ELEMENT PRESENTATION CORE DEP |
| *** PREFIX *** |
| File: PERSON Field No.: 5 |
| Type: Data Reference: |
|------------------------------------------------------------------------------|
| 1 Sample Data.: Mr. |
| 2 * Short Help: Enter a code for the prefix used to address the person, suc |
| 3 * Purpose...: 1: Title or prefix used to address this person |
| 4 * Tech Doc..: 1: |
| |
| 5 Display Size.......: 25 Format Used.: 25L |
| 6 Justification......: L Left |
| 7 Perform Zero Pad...: No |
| 8 Conversion String..: |
| 9 Default Field Label: Prefix |
| 10 Report Header......: 1: Prefix |
| 11 Output Mask........: |
| |
| 12 * Default Output Editing..: 1: TRANSLATE |
| 13 * Default Input Editing...: 1: |
| 14 * Validate/Translate Table: $VR.PREFIXES OPT |
|XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX|
