1 UPDATE
1 UPD
2 DATAGRP NAME(datagrpname)
3 START(ACCESS)
3.1? SET(ACCTYPE(
3.1.1 BRWS
3.1.1 EXCL
3.1.1 READ
3.1.1 UPD
3.1.2 ))
3 STOP
3.1 (ACCESS)
3.1 (SCHD)
4? OPTION(
4.1+ ,
4.1 ALLRSP
4.1 DBALLOC
4.1 FEOV
4.1 NODBALLOC
4.1 NOFEOV
5! SCOPE(ALL)
5?
5 SCOPE(ACTIVE)