Can any body post a sample code of using Except opcode to modify only certain fields of a file
Regards
sai
Regards
sai
C *IN10 WHENEQ *ON
C JBAKY2 CHAIN JBAJOBSR 80
C MOVE CCM1 JACCM1
C MOVE CCM2 JACCM2
C MOVE CCM3 JACCM3
C MOVE CCM4 JACCM4
C EXCEPT UPDJBA
C JACONT IFEQ *BLANKS
C JASL# CHAIN ARACUSTR 80
C MOVEL AASLNM JACONT
C ENDIF
*
OJBAJOBSR E UPDJBA
O JACCM1
O JACCM2
O JACCM3
O JACCM4
update CICADLC %fields(CCBRNIPP:CCCYCLE#:CCCYCLTM: CCTOTLTM:CCCOST:CCUNITP);
Comment