PGM        PARM(&POSITION)                                         
/*-------------------------------------------------------------------*/         
/*   TATGRFCL  :   海面漁獲量ランキング                              */         
/*                                                                   */         
/*                 縦棒グラフ                                        */         
/*                                                                   */         
/*   2017/06/08  作成                                                */         
/*-------------------------------------------------------------------*/         
             DCL        VAR(&POSITION) TYPE(*CHAR) LEN(7)                       
                                                                                
             CALL       PGM(QTROBJ/DSPGRAPH) PARM('001' '*COLUMN   ' +          
                          &POSITION)                                            
             ENDPGM