3gl for sensitivity labelling

Below is the simple 3gl script to add sessions,scripts and reports for sensitivity labelling.



|******************************************************************************
|* Sensitivity Labeling 3gl
|* devloc
|* 13-01-11 [15:05]
|******************************************************************************
|* Script Type: 0
|******************************************************************************
                                                                             
table tttadv200
table tttaad352

function main()
{
select ttadv200.*
from ttadv200
where ttadv200._compnr = {0}
selectdo
ttaad352.allc = ttyeno.no
ttaad352.comp = 999
ttaad352.rese = ttaad.rese.session
ttaad352.ccod = ttadv200.cpac & ttadv200.cmod & ttadv200.cses
ttaad352.lrep = ttyeno.yes
ttaad352.slvl = 10
ttaad352._compnr = 0

db.insert(tttaad352, db.skip.dupl)

| ttaad352.allc = ttyeno.no
| ttaad352.comp = 901
| ttaad352.rese = ttaad.rese.session
| ttaad352.ccod = ttadv200.cpac & ttadv200.cmod & ttadv200.cses
| ttaad352.lrep = ttyeno.yes
| ttaad352.slvl = 30
| ttaad352._compnr = 0
|
| db.insert(tttaad352, db.skip.dupl)

commit.transaction()
endselect

}