H*-------------------------------------------------------------------
     H* Task Description:
     H*
     H*   Given: Table file contains key in positions 11 to 13.
     H*          Sort table file by key.
     H*
     H*
     H*-------------------------------------------------------------------
     H
     F* SAMPLE PDL PROGRAM - SORT TABLE USING MACRO SORTM
     FIN      IP  V5120 256            DISK
     FOUT     O   V8200  82            DISK
     FSCREEN  O   F      79            CRT
     E                    TBL       200 80               TABLE DATA
     E                    SEQ       200 15               TABLE KEY
     IIN      NS  01
    +A* DD    RECORD   1  80            .INPUT RECORD
     I            DS
    +A* DD    RECORD   1  80            .DEFINE IN DATA STRUCTRE
    +A* DD    TBLKY1  11  15            .SORT FIELD ONE
    +A* DD    TBLKY2   1  10            .SORT FIELD TWO
    +A* DD    TBLSEQ  41  43            .NUMBER OUPTU SEQUENCE
     C*------------------------------------------------------------------
     C* MAIN PROCESS CYCLE
     C*------------------------------------------------------------------
    +C* IF    FIRST-CYCLE
    +C*       MOVE  'READING' TO COMMNT 7
    +C* ENDIF
    +C* SELECT CASE RPG
    +C* CASE  01
    +C*       ADD   1 TO TX 3.0
    +C*       IF    TX LE 200
    +C*             EXPTAB RECORD
    +C*             MOVE  RECORD TO TBL,TX
    +C*             MOVEL TBLKY1 TO SEQ,TX
    +C*             MOVE  TBLKY2 TO SEQ,TX
    +C*             EXCPT STATUS
    +C*       ENDIF
    +C* ENDSEL
    +C* LEVEL LR
    +C* MOVE  'SORTING' TO COMMNT
    +C* EXCPT SORTIN
    +C* SORTM SEQ TBL 200
    +C* MOVE  'WRITING' TO COMMNT
    +C* DO    200 TIMES USING TX
    +C*       MOVE  TX TO TBLSEQ
    +C*       EXCPT SORTED
    +C* ENDDO
     O*------------------------------------------------------------------
     O*  TABLE OUTPUT
     O*------------------------------------------------------------------
     OOUT     E                SORTED
    +A* DD    TBL,TX   1  80
     O*------------------------------------------------------------------
     O*  SCREEN STATUS DISPLAY
     O*------------------------------------------------------------------
     OSCREEN  E  0             STATUS
    +A* DD    COMMNT   1   7
    +A* DD    TX       9  11
    +A* DD    SEQ,TX  13  27
     O        E 11             SORTIN
    +A* DD    COMMNT   1   7
     O        E  0             SORTED
    +A* DD    COMMNT   1   7
    +A* DD    TX       9  11
     O* END OF SOURCE