3.  What is the importance of control/header specification in RPG IV?

ü  Control specification provide following functions:

o    Defaults formats for the program

§  h DATFMT(*ISO) TIMFMT(*ISO) CCSID(*UCS2:1200)

§  h datedit(*dmy) datedit(*DMY.)datedit(*DMY/)

§  h decedit('0,') dftname(XXXX)

o    Changes to normal processing modes

o    Special options to use when compiling the program

§  h OPTION(*SRCSTMT:*NODEBUGIO)DFTACTGRP(*NO) ACTGRP(*NEW)

o    Language environment that affect the entire program

o    h nomain – for not main sub-procedures

4.  How will you declare control specification in RPG free-format?

ü  ctl-opt;

examples:

ctl-opt datfmt(*iso) timfmt(*iso) ccsid(*ucs2:1200);

ctl-opt option(*srcstmt:*nodebugio) dftactgrp(*no) actgrp(*new);

ctl-opt dftactgrp(*no) actgrp(*caller) bnddir(‘binding directory name’);

ctl-opt datedit(*dmy) dftname(program name);

ctl-opt dftactgrp(*no) actgrp(*new)

option(*nodebugio)        

bnddir('XXXXXX')        

main(xxxxxx);       

ctl-opt main(startofpgm);

ctl-opt nomain;

ctl-opt debug(*XMLSAX);