home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hall of Fame
/
HallofFameCDROM.cdr
/
3x400
/
dspm.lzh
/
FFD500FM.DSP
< prev
Wrap
Text File
|
1989-01-11
|
7KB
|
121 lines
A* 15:06:28 PKPGMR REL-R08M00 5714-UT1
A DSPSIZ(24 80 *DS3)
A CHGINPDFT
A PRINT(QSYSPRT.*LIBL)
A CF01
A INDARA
A R FFD500S1 SFL
A* 15:06:28 PKPGMR REL-R08M00 5714-UT1
A MLMTXT 50A H
A SFREC1 3S 0H
A SFTEST 1A I 12 2DSPATR(HI)
A N95 DSPATR(UL)
A VALUES(' ' '1' 'C' 'R' 'F' 'T')
A 95 DSPATR(PR)
A MLNAME 10A O 12 4TEXT('Member Name')
A 95 DSPATR(RI)
A MLNRCD R O 12 16REFFLD(MLNRCD.QWHFDML DSPFDMWK)
A TEXT('Current Number of Records')
A MLCHGD 6A O 12 26TEXT('Date last Changed')
A MLCHGT 6A O 12 33TEXT('Time Last Changed')
A SFMTXT 40A O 12 40TEXT('Member Text')
A R FFD500C1 SFLCTL(FFD500S1)
A* 15:06:28 PKPGMR REL-R08M00 5714-UT1
A SFLSIZ(0999)
A SFLPAG(0012)
A CF04
A BLINK
A OVERLAY
A SFLDSP
A SFLDSPCTL
A 90 SFLEND
A SFLRCD 4S 0H SFLRCDNBR(CURSOR)
A 1 3'User'
A USERID 10A O 1 8TEXT('User Name')
A N98 1 22'File Member Maintenance & Selectio-
A n'
A DSPATR(HI)
A DSPATR(UL)
A 98 DSPATR(ND)
A 98 1 27'File Member Selection'
A DSPATR(HI)
A DSPATR(UL)
A N98 DSPATR(ND)
A 1 59DATE
A EDTCDE(Y)
A 1 68TIME
A 3 3'File Name----->'
A MLFILE 10A O 3 19TEXT('File Name')
A DSPATR(HI)
A 3 41'( 1 )'
A DSPATR(HI)
A 3 47'- Select Member for Processing'
A 4 3'Library Name-->'
A MLLIB 10A O 4 19DSPATR(HI)
A 4 41'( C )'
A DSPATR(HI)
A 98 DSPATR(ND)
A 4 47'- Clear Member, CLRPFM'
A 98 DSPATR(ND)
A 5 3'File Type----->'
A MLFILA 4A O 5 19DSPATR(HI)
A 5 41'( R )'
A DSPATR(HI)
A 98 DSPATR(ND)
A 5 47'- Remove Member, RMVM'
A 98 DSPATR(ND)
A 6 3'# of Members-->'
A MLNOMB R O 6 19REFFLD(MLNOMB.QWHFDML DSPFDMWK)
A DSPATR(HI)
A 6 41'( F )'
A DSPATR(HI)
A 98 DSPATR(ND)
A 6 47'- From Member, CPYF'
A 98 DSPATR(ND)
A 7 3'Selected Mbr-->'
A MEMBER 10A O 7 19DSPATR(HI)
A TEXT('Selected Member Name')
A 7 41'( T )'
A DSPATR(HI)
A 98 DSPATR(ND)
A 7 47'- To Member, CPYF'
A 98 DSPATR(ND)
A 8 17'(*REPLACE,*ADD)'
A 98 DSPATR(ND)
A 9 3'CPYF'
A DSPATR(HI)
A 98 DSPATR(ND)
A 9 8'Option--->'
A 98 DSPATR(ND)
A WCOPT 8A B 9 19DSPATR(UL)
A DSPATR(HI)
A 98 DSPATR(ND)
A 98 DSPATR(PR)
A VALUES('*REPLACE' '*ADD')
A 10 32'Press'
A 10 38'ENTER'
A DSPATR(HI)
A 10 44'to Process'
A 10 58'CMD 1'
A DSPATR(HI)
A 10 64'- End Of Job'
A 11 4' Member # Records Last Change-
A d Member Text ( 1st 40 bytes -
A ) '
A DSPATR(UL)
A R MSGRCD SFL
A* 10:03:26 DAVE REL-R06M00 5714-UT1
A SFLMSGRCD(24)
A MSGKEY SFLMSGKEY
A PGMSGQ SFLPGMQ
A R MSGCTL SFLCTL(MSGRCD)
A* 10:03:26 DAVE REL-R06M00 5714-UT1
A OVERLAY
A SFLDSP
A SFLDSPCTL
A SFLINZ
A N91 SFLEND
A SFLSIZ(0010)
A SFLPAG(0001)
A PGMSGQ SFLPGMQ