Building and Using Data Tables › Modifying Data Tables › Demonstration (4): Regenerating a Table

Demonstration (4): Regenerating a Table

Objective

This example modifies the existing NEW-CUSTOMERS table so that it can be viewed online through ASF. The ONLINE=YES and the TYPE=GENERATE instructions cause ASF to construct a dialog and regenerate the table.

Parameters

INPUT 80

INPUT is used to meet CA Culprit's INPUT parameter requirement.

05OUTPUT TABLE=NEW-
CUSTOMERS TYPE=GENERATE 
USER=DOC1 PW=DOC1
*      CATALOG=ASFDICT
ONLINE=YES
COMMENT='REGENERATED WITH CA Culprit'

OUTPUT identifies the OUTPUT parameter, which includes the GENERATE instruction.

TABLE=NEW-CUSTOMERS identifies the table to be generated.

TYPE=GENERATE regenerates the table.

ONLINE=YES creates a dialog to allow viewing of NEW-CUSTOMERS online with ASF.

COMMENT='REGENERATED WITH CA Culprit specifies the ASF comment line text for the table.

0551*001 ' '

5 specifies a type 5 parameter to meet the CA Culprit coding requirements.

057001 DROP

DROP on the type 7 parameter stops unnecessary input processing.

Complete Code

 col. 2
 ▼
 INPUT 80
 REC FIELDA   1   1
 05OUTPUT TABLE=NEW-CUSTOMERS TYPE=GENERATE USER=DOC1 PW=DOC1
*      CATALOG=ASFDICT ONLINE=YES COMMENT='REGENERATED WITH CA-Culprit'
 0551*001 ' '
 057001   DROP

Results: Viewing the Table Through ASF

Before regenerating the table:

The ASF ASEL Screen

                      CA                   volser
  ASEL   CA - Automatic System Facility  nn.n     ** Activity Selection **
  DC560017 NO DIALOG EXISTS FOR GENERATED TABLE

  User Name: DOC1

  _ PF1 - Help                  _ PF5 - Select Data     _ PF13  - Query
  _ PF2 - Define Table          _ PF7 - Page Backward   _ PF14  - Signon
  _ PF3 - Load Data             _ PF8 - Page Forward    _ PA1   - Prior Level
  _ PF4 - Display/Change Data   _ PF9 - Passkey         _ CLEAR - Leave ASF
                                                        _ PF15  - Administrator

  Table Name.:
  Table Owner:
                                                                 Page:  1  of  1

  _ APPLICANT
  _ EMPLOYEES
  _ JOB
  _ JOBS AND APPLICANTS

After regenerating the table:

The ASF TDEF Screen

                      CA                                                volser
  TDEF   CA - Automatic System Facility  nn.n      ** Table Definition **
  DC560005 MODIFY AND/OR SELECT NEXT ACTIVITY

         _ PF1 - Help                     _ PF4 - Extended Table Definition
         _ PF2 - Define Columns           _ PF5 - Delete Table Definition
         _ PF3 - Generate                 _ PF6 - Message Screen

  Table Name.: NEW-CUSTOMERS
  Table Owner: DOC1                                   Defn Number:    190
  View/Stored: STORED                                Status.....: GENERATED
  Comments...:REGENERATED WITH Culprit

                             Table Derivation
  Source Table #1
   Table Name.:
   Table Owner:

  Source Table #2
   Table Name.:
   Table Owner:

  Column #1:
  Column #2                                    Where Column #1 EQ Column #2

The first row of data in the table as viewed online through ASF:

Output Online

                        CA
 PF1 = ADD; PF2 = CHANGE; PF3 = DELETE; ENTER = NEXT; CLEAR = EXIT
  NEW CUSTOMERS
  CUST-NUMBER                      251
  CUST-NAME                        SUSAN     ARMITAGE
  CUST-ADDRESS                     56725 OAK STREET    PITTSFIELD     MA02956