Re: Commitment Control

["Rick Staebler" <Linda_Rick_Staebler@xxxxxxxxxxxxx>]

In the CL you need:
PGM
CRTJRNRCV  JRNRCV(XXXXLIB/XXXXJRCV) TEXT('Journal +
             receiver')
CRTJRN     JRN(XXXXLIB/XXXXJRN) +
             JRNRCV(XXXXLIB/XXXXJRCV) TEXT('Journal') +
             AUT(*ALL)
STRCMTCTL  LCKLVL(*CHG) NFYOBJ(*NONE) CMTSCOPE(*JOB) +
             TEXT('Commitment control')
CALL       PGM(XXXXXX)
ENDCMTCTL
ENDPGM
If yur files are already journaled, skip that part and use the receiver
assigned.
In your program use the the opcode COMIT  COMMIT(ILE) at the beginning. Then
code the program as usual reading, writing  and updating. When you reach the
point that your want the changes to take affect, use another commit. This is
when all of the writes and updates actually happen to the live files. If you
wan't to bail out, use the ROLLBACK and none of the writes or updates will
have actually happened.

-----Original Message-----
From: Brian Stapleton <brianstapleton@yahoo.com>
To: RPG List Midrange <rpg400-l@midrange.com>
Date: Sunday, November 01, 1998 4:32 PM
Subject: Commitment Control


>Greetings RPG'ers Acrross the land;
>
>Can anyone give me a brief overview of commitment control?
>
>Our files are already journaled, I just need to know how to code this
>in my RPG program.
>
>Thanks in Advance!!!
>
>Brian Stapleton
>BrianStapleton@yahoo.com
>
>
>
>
>==
>Brian Stapleton
>BrianStapleton@yahoo.com
>
>_________________________________________________________
>DO YOU YAHOO!?
>Get your free @yahoo.com address at http://mail.yahoo.com
>
>* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>* This is the RPG/400 Discussion Mailing List!  To submit a new         *
>* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
>* from this list send email to MAJORDOMO@midrange.com and specify       *
>* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
>* be directed to the list owner / operator: david@midrange.com          *
>* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>



* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *