RPGプログラマー基本テスト （サンプル問題）

1 1 Tenderness and Trust CONFIDENTIAL RPG 2 Tenderness and Trust CONFIDENTIAL RPG A) B) C) D) E) A) B) C) D) E) F) A)SEU PDM B)SDA C) (STRDBG) D) E) F) G) H) ( ) OS/400 A)AS/400 3 Tenderness and Trust CONFIDENTIAL B)OS/400 C)OS/400 D)OS/400 E) F)OS/400 G) H)

2 RPGIV A) RPG B) (CRTxxxPGM CRTxxxMOD CRTPGM CRTBNDxxx ) C) ( E) D ( ) D) (*IN LOKUP SORTA MOVE MOVEA ) E) (*LOVAL *HIVAL *ALL *BLANKS *ZEROS *ON *OFF ) F) G) H) (DO DOUxx DOWxx IF/ELSE SELECT/WHEN CASxx/EXSR ) I) (+ - * / ** < > = () and or not ) J) ( 10 ) K) L) M) (CL) A) SBMJOB B) C)MONMSG 4 Tenderness and Trust CONFIDENTIAL D)CL E) CL F)CALL PARM CL G)CL 5 Tenderness and Trust CONFIDENTIAL I I RENAME ( ILE RPG )

3 ILE RPG I 10 READ DOW DOU READ %EOF %FOUND DOW DOW DOU ENDDO 4) ( ILE RPG ) II II 1) 3) ( ILE RPG ) II E(External) 01 99 ( ILE RPG ) II PREFIX PREFIX ( ILE RPG ) II SQL RPG RENAME SQL ( DB2 AS/400 SQL ) ( ILE RPG ) 6 Tenderness and Trust CONFIDENTIAL III III CCSID(5035) ILE RPG IV RCDLEN(112) DBCS IGCDTA(*YES) ( ILE RPG ) ( ADTS SEU V4 ) III STRSEU SRCFILE SRCMBR *PRV ( ADTS SEU V4 ) III PDM 14 RPGLE CRTBNDRPG ( ADTS/400 (PDM) ) IV IV CRTLIB TYPE *PROD STRDBG UPDPROD *YES *TEST UPDPROD ( AS/400 )

4 IV CVTRPGSRC RPGIII RPGIV IV DSPPGMREF IV WRKMBRPDM STRSEU DSPFD ( ADTS SEU V4 )( ADTS/400 (PDM) ) 7 Tenderness and Trust CONFIDENTIAL V IV V DATEDIT *DATE/UDATE Y ( ILE RPG ) V RPG RPG F ( ILE RPG ) V ( ILE RPG ) VI VI ILE CL CLLE ( ADTS SEU V4 ) VI (DCL) ( AS/400 CL ) VI CL *CHAR *DEC *LGL ( AS/400 CL ) VI DCLF DCL ( AS/400 CL ) VI PGM ENDPGM ENDPGM GOTO ( AS/400 CL )