Title : IMS 3.1 Usermod to swap FEOV/NOFEOV keywords on /DBR & /DBD commands Submitter : Doug Lawson National Westminster Bank plc IT Central Computer Services Technical Development Goodmans Fields 74 Alie Street London E1 8HL Phone : 071-480-4118 Release Submitter Details - Y Text :- ++USERMOD (xxxxxxx) /* This usermod is designed to change the processing option for the /DBRecovery and /DBDump commands so that by default they do not generate a forced end of volume for the IMS log. This is achieved by replacing the NOFEOV keyword with a new keyword FEOV. */ . ++VER (P115) FMID (HMK3102) . ++MACUPD (KEYPAK) . ./ CHANGE NAME=KEYPAK &IKEY(88) SETC 'FEO' NOV replaced by FEO for FEOV KWD @xxxxxxx 00086960 ++SRCUPD (DFSCKWD0) . ./ CHANGE NAME=DFSCKWD0 IKEY FEO LINE ADDED BY ==============> @xxxxxxx 00093300 KEYWD FEOV LINE ADDED BY ==============> @xxxxxxx 00093600 * IKEY NOV LINE DELETED BY ==============> @xxxxxxx 00142700 * KEYWD NOFEOV LINE DELETED BY ==============> @xxxxxxx 00142800 ++SRCUPD (DFSICL20) . ./ CHANGE NAME=DFSICL20 * 01042000 * User modified to change the NOFEOV keyword to FEOV and reverse the 01044000 * processing for /DBR and /DBD commands. FEOV is a pain in the butt. 01046000 * 01048000 OI FLAG2,NOFEOVKW make NOFEOV the default @xxxxxxx 13039000 SR R6,R6 CLEAR R6 (FEOV KWD pointer). @xxxxxxx 13077000 CLC 1(3,R7),FEOV FEOV Keyword ? @xxxxxxx 13086000 * * FEOV Keyword found 13090000 NI FLAG2,X'FF'-NOFEOVKW reset NOFEOV in flag2. @xxxxxxx 13095000 LR R6,R7 Remember FEOV specified. @xxxxxxx 13096000 SR R8,R8 CLEAR R8 (FEOV KWD pointer). @xxxxxxx 13177000 CLC 1(3,R7),FEOV FEOV keyword ? @xxxxxxx 13192000 * * FEOV Keyword found 13196000 LR R8,R7 Remember FEOV specified. @xxxxxxx 13201000 NI FLAG2,X'FF'-NOFEOVKW reset NOFEOV in flag2. @xxxxxxx 13202000 FEOV DC C'FEO' FEOV - value passed from ICLI0 @xxxxxxx 13741000 ++SRCUPD (DFSICLI0) . ./ CHANGE NAME=DFSICLI0 NOV DC C'FEO' FEOV - Cheap and cheerful one line chg. @xxxxxxx 09940000