Recommended Reading |
Sample ADS Code |
This is an ADSORPTS ( similar to a compilation listing ) of a small
menu program which was written some time ago. |
Sample ADS Code |
ADSORPTS S10213 COMPUTER ASSOCIATES INTERNATIONAL
PREMAP PROCESS: RVM980-PP VERS.: 0001
00000100 READY MARC-REGION USAGE-MODE IS RETRIEVAL.
00000200 READY RVPARAM-REGION USAGE-MODE IS RETRIEVAL.
00000300
00000400 IF FIRST-TIME THEN
00000500 DO.
00000600 INITIALIZE RECORDS (RVWRM-MARC-GLOBAL).
00000700 ACCEPT USER ID INTO RVWRM-G-USER-ID8.
00000800 ACCEPT PTERM ID INTO RVWRM-G-VDU-ID.
00000900
00001000 MOVE 'RVB001' TO RV36-PROGRAM-NO.
00001100 OBTAIN CALC RV36SYS.
00001200 MOVE RV36-PROGRAM-NO-FILLER-160 TO RVB001-RV36SYS-RVB001.
00001300 MOVE RVB001-COUNTRY TO RVMG-MARC-LOC-NAME.
00001400 MOVE RVB001-ML-REF-LOCN-CD TO RVMG-MARC-LOC.
00001500
00001600 IF RVMG-MARC-LOC EQ ' ' THEN DO
00001700 MOVE 'XX' TO RVMG-MARC-LOC.
00001800 END.
00001900 END.
00002000
00002100 MOVE DATE TO RVWRM-G-DATE-YMD-99.
00002200 MOVE RVWRM-G-YEAR-99 TO RVWRM-G-YEAR2-99.
00002300 MOVE RVWRM-G-MONTH-99 TO RVWRM-G-MONTp-99.
00002400 MOVE RVWRM-G-DAY-99 TO RVWRM-G-DAY2-99.
00002500 !
00002600 MOVE TIME TO RVWRM-G-TIME-HHMMSS-99.
00002700 MOVE RVWRM-G-TIME-HH TO RVWRM-G-TIME-HH-99.
00002800 MOVE RVWRM-G-TIME-MM TO RVWRM-G-TIME-MM-99.
00002900 MOVE RVWRM-G-TIME-SS TO RVWRM-G-TIME-SS-99.
00003000 !
00003100 MOVE RVMG-MARC-LOC TO RVMG-MARC-QLOC.
00003200 !
00003300 MOVE SPACES TO RVMG-MARC-QNAME.
00003400 !
00003500 MOVE ZERO TO RVMG-MARC-FILE-SEQ.
00003600 MOVE SPACES TO RVMG-MARC-INTF.
00003700 MOVE SPACES TO RVMG-SOURCE-SYSTEM.
00003800 MOVE 1 TO RVMG-MARC-FILE-VER.
00003900 MOVE ZERO TO RVMG-SELECTION.
00004000 DISPLAY.
|
Back to sample list
© Copyright IT Doctors.co.uk. 2002