Difference between revisions of "Information Systems:Modifications"
| Line 15: | Line 15: | ||
DIR301 *PGM A450AP RPGLE Sales order header maintena |
DIR301 *PGM A450AP RPGLE Sales order header maintena |
||
| − | Parameters for options 5, 7 and 13 or command |
+ | Parameters for options 5, 7 and 13 or command |
===> _____________________________________________________ |
===> _____________________________________________________ |
||
F3=Exit F4=Prompt F5=Refresh F9=Retrieve F11=Display names and types |
F3=Exit F4=Prompt F5=Refresh F9=Retrieve F11=Display names and types |
||
Revision as of 13:07, 26 October 2015
No changes are made in any of the base ASW libraries. To find the latest release of the program needing to be changed, from the production environment, key in WRKOBJ <program name> and press enter. For example, WKROBJPDM DIR301.
Work with Objects
Type options, press Enter.
2=Edit authority 3=Copy 4=Delete 5=Display authority 7=Rename
8=Display description 13=Change description
Opt Object Type Library Attribute Text
DIR301 *PGM U480BP RPGLE Sales order header maintena
DIR301 *PGM U480AP RPGLE Sales order header maintena
DIR301 *PGM A454AP RPGLE Sales order header maintena
DIR301 *PGM A453AP RPGLE Sales order header maintena
DIR301 *PGM A452AP RPGLE Sales order header maintena
DIR301 *PGM A450AP RPGLE Sales order header maintena
Parameters for options 5, 7 and 13 or command
===> _____________________________________________________
F3=Exit F4=Prompt F5=Refresh F9=Retrieve F11=Display names and types
F12=Cancel F16=Repeat position to F17=Position to F24=More keys
The most recent version of this program is in library U480BP. If we wanted to make a modification, we would get the source from there. (The objects are listed in the sequence in which they are found by following the library list.)
Library XX2480BP contains all ASW programs that have been modified (or corrected). This library also contains some custom programs that are heavily related to ASW.
When an ASW program is changed, that change is documented within the source. For example, there was a problem when the buyers were creating a purchase order for internal replenishment. When the process was submitted to batch, they couldn’t tell when there was an error, and the PO had not been generated. The solution was to always press F2 to run interactively. They didn’t always remember, so that the program was changed to run inactively no matter what key the user pressed.
In the heading block is the date, programmer, and a description. Also a tag (uwd1) to identify the affected lines in the code.
H/TITLE IRO purchase order creation selection
F****************************************************************
F* P R O G R A M D E S C R I P T I O N **
F****************************************************************
F* The program is used to enter selection data **
F* for IRO PO creation **
F****************************************************************
F* Changes made to base version : **
WND F* Window generated 001114 **
F* **
F* Date / Author **
F* **
uwd1 * 2012Sep SV - No matter what key the user presses, always **
uwd1 * run interactively. That way, they can correct **
uwd1 * any problems right away; instead of not even **
uwd1 * knowing that something went wrong. **
F****************************************************************
No existing line is deleted or changed; instead they are labelled, and commented out. Any line added is labelled.
0214.00 C EXSR SR32 0215.00 C* 0216.00 uwd1 * always run interactively 0217.00 0218.00 uwd1 C* *INKB IFEQ *ON 0219.00 uwd1 C* LDCINT ANDEQ 'Y' 0220.00 C MOVEL(P) 'DIC689' XPPGM 0221.00 C CALL 'ASGR006' ASG006 0222.00 C CALL XPPGM 0223.00 uwd1 C* ELSE 0224.00 uwd1 C* MOVEL(P) 'DIC689' XPPGM 0225.00 uwd1 C* MOVE 'N' XPPMCD 0226.00 uwd1 C* CALL 'ASGC901' ASG901 0227.00 uwd1 C* END 0228.00 C* 0229.00 C/EJECT 0230.00 C*** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *** 0231.00 C* ** 0232.00 C* END OF PROGRAM ** 0233.00 C* **
If a program already in XX2480BP is changed again, a copy of the current source is made and dated.
Work with Members Using PDM BART
File . . . . . . QRPGLESRC
Library . . . . XX2480BP Position to . . . . .
Type options, press Enter.
2=Edit 3=Copy 4=Delete 5=Display 6=Print 7=Rename
8=Display description 9=Save 13=Change text 14=Compile 15=Create module...
Opt Member Type Text
DMR001 RPGLE Work with items startup
DMR001.B1 RPGLE 2005Jun22 items startup
DMR001.B2 RPGLE 2006Dec04 items startup
DMR001.B3 RPGLE 2009Oct21 items startup
DMR002 RPGLE Item basic file maintenance
DMR003 RPGLE Item inventory info maintenance
DMR008 RPGLE Item unit maintenance
DMR020 RPGLE Copy item
More...
Parameters or command
===> ________________________________________________
F3=Exit F4=Prompt F5=Refresh F6=Create
F9=Retrieve F10=Command entry F23=More options F24=More keys
This makes it easy to quickly find a change and fix it, or to even undo it entirely if necessary. Also this makes it possible to re-apply changes if ASW is every upgraded.