H DFTNAME(TESTSORT) DATEDIT(*YMD/)                                                             
     F********** ＳＯＲＴのサンプル ****************************************                        
     F*          降順に SORT する                                                                   
     F*****************************************************************                             
     D CDR             S              4    DIM(3) CTDATA PERRCD(1)               見出し             
     D NMR             S             14    DIM(3) CTDATA PERRCD(1)               見出し             
     D STR             S             18    DIM(3) DESCEND                        見出し             
     C                   MOVEL     CDR           STR                                                
     C                   MOVE      NMR           STR                                                
     C* SORT 前のデータの表示                                                                       
     C     1             DO        3             N                 4 0                              
     C     STR(N)        DSPLY                                                                      
     C                   END                                                                        
     C     '*END OF DATA'DSPLY                   ANS               1                                
     C*                                                                                             
     C* SORTA によって降順に並べる                                                                  
     C                   SORTA     STR                                                              
     C*                                                                                             
     C     1             DO        3             N                 4 0                              
     C     STR(N)        DSPLY                                                                      
     C                   END                                                                        
     C     '*END OF SORT'DSPLY                   ANS               1                                
     C                   SETON                                        LR                            
** CDR                                                                                              
0002                                                                                                
0001                                                                                                
0003                                                                                                
** NMR                                                                                              
 ビデオデッキ                                                                                       
 カラーＴＶ                                                                                         
 コンボ