gtpd2m1gData Communications Services Reference

Examples

Figure 5. Example of an ART Record to Load an ART Main Storage Table


GO1GO      GSTAR      CREATE,1.
GO1NUM     ENTIT      1-1-X'07'.          LOAD MODE 7
GO1ENT     ENTIT      1-1-X'0017'.        23 ENTRIES
GO1CRE     ENTIT      1-1-X'0005'.        5 4096 BYTE BLKS
GO1CHN     ENTIT      1-1-X'00'.
GO1FCH     ENT        X'0000'.
BSTA06     ENT        (#GLOBL)1.
GO1BID     ENT        GO.
                       |
                       |
                       v
GO1CON     ENTIT      1-21-X'83000000'    LOCATED IN GLOBAL AREA 1,
                                          SIZE, INDEX IN GL0BA
GO1EIX     ENTIT      1-21-X'0031'.       GL0BA INDEX
GO1EID     ENTIT      1-21-AR.            ART ID
GO1EON     ENTIT      1-21-X'00000030'.   STARTING ORDINAL FROM #GLOBL
GO1CON     ENTIT      1-22-X'81010010'.
GO1EIX     ENTIT      1-22-X'0000'.       NO INDEX
GO1EID     ENTIT      1-22-AR.
GO1EON     ENTIT      1-22-X'00000031'.
GO1CON     ENTIT      1-23-X'81010010'.
GO1EIX     ENTIT      1-23-X'0000'.       NO INDEX
GO1EID     ENTIT      1-23-AR.
GO1EON     ENTIT      1-23-X'00000032'.
GO1CON     ENTIT      1-24-X'81010010'.
GO1EIX     ENTIT      1-24-X'0000'.       NO INDEX
GO1EID     ENTIT      1-24-AR.
GO1EON     ENTIT      1-24-X'00000033'.
           GEND

Figure 6. Example of ART Data Necessary for the PILOT


AR0RT      GSTAR      CREATE,1.
AR0BID     ENT        AR.
BSTA06     ENT        (#GLOBL)48.
AR0TOT     ENT        X'0027'.            # OF SLOTS GEN'D=39
AR0LEN     ENT        X'52'.              VARIABLE LENGTH=82 (max.)
AR0ORD     ENT        X'0030'.            STARTING ORDINAL=48
           GEND
AR0RT      GSTAR      CREATE,3.
AR0BID     REP        AR-1-3.             INIT ART ID IN FILE COPIES
BSTA06     ADD        (#GLOBL)49-1-1-3.
           GEND