DDS:
-------------------------------------------------------------------------------------
A*%%TS SD 20080723 111721 VCJIANZK REL-V5R3M0 5722-WDS
A*%%EC
A DSPSIZ(24 80 *DS3)
A CF03(03)
A R SFD700A SFL
A SFLMSGRCD(22)
A @KEY SFLMSGKEY
A @PGMQ SFLPGMQ
A R SFD700B SFLCTL(SFD700A)
A SFLDSP
A SFLDSPCTL
A SFLINZ
A N03 SFLEND
A SFLSIZ(0020)
A SFLPAG(0003)
A @PGMQ SFLPGMQ
A R SFD700C
A BLINK
A OVERLAY
A 1 4DATE
A EDTCDE(Y)
A COLOR(BLU)
A 1 70USER
A COLOR(BLU)
A 2 4DATE
A COLOR(BLU)
A 2 70'SFR700'
A COLOR(BLU)
A 1 25'EXAMPLE OF A MESSAGE SUBFILE'
A COLOR(WHT)
A 20 2'F3-EXIT'
A COLOR(WHT)
A 9 1'ENTER YOUR LAST NAME........:'
A COLOR(PNK)
A 7 1'ENTER YOUR FIRST NAME.......:'
A COLOR(PNK)
A 11 1'ENTER YOUR SOCIAL SECURITY #:'
A COLOR(PNK)
A 13 1'ENTER THE STATE IF RESIDENCE:'
A COLOR(PNK)
A @FNAME 30 B 7 32COLOR(WHT)
A @LNAME 30 B 9 32COLOR(WHT)
A @SSN 9Y 0B 11 32COLOR(WHT) EDTWRD(' - - ')
A @STATE 2 B 13 32COLOR(WHT)
A*%%EC
A DSPSIZ(24 80 *DS3)
A CF03(03)
A R SFD700A SFL
A SFLMSGRCD(22)
A @KEY SFLMSGKEY
A @PGMQ SFLPGMQ
A R SFD700B SFLCTL(SFD700A)
A SFLDSP
A SFLDSPCTL
A SFLINZ
A N03 SFLEND
A SFLSIZ(0020)
A SFLPAG(0003)
A @PGMQ SFLPGMQ
A R SFD700C
A BLINK
A OVERLAY
A 1 4DATE
A EDTCDE(Y)
A COLOR(BLU)
A 1 70USER
A COLOR(BLU)
A 2 4DATE
A COLOR(BLU)
A 2 70'SFR700'
A COLOR(BLU)
A 1 25'EXAMPLE OF A MESSAGE SUBFILE'
A COLOR(WHT)
A 20 2'F3-EXIT'
A COLOR(WHT)
A 9 1'ENTER YOUR LAST NAME........:'
A COLOR(PNK)
A 7 1'ENTER YOUR FIRST NAME.......:'
A COLOR(PNK)
A 11 1'ENTER YOUR SOCIAL SECURITY #:'
A COLOR(PNK)
A 13 1'ENTER THE STATE IF RESIDENCE:'
A COLOR(PNK)
A @FNAME 30 B 7 32COLOR(WHT)
A @LNAME 30 B 9 32COLOR(WHT)
A @SSN 9Y 0B 11 32COLOR(WHT) EDTWRD(' - - ')
A @STATE 2 B 13 32COLOR(WHT)
RPG
-------------------------------------------------------------------------------
FSFD700 CF E WORKSTN
F**STATES IF E K DISK
F*
I**
I IDS
I B 1
I B 5
I B 9
C*
C WRITESFD700B
C*
C EXFMTSFD700C
C*
C EXSR @CMD
C**
C* 50 DO
C MOVEL*BLANK @KEY
C CALL
C* ENDDO
C* SETON 50
C*
C*
C @FNAME IFEQ *BLANK
C MOVE 'ACC0101' @MSGID
C CALL
C ENDIF
C*
C @LNAME IFEQ *BLANK
C MOVE 'ACC0102' @MSGID
C CALL
C ENDIF
C*
C @SSN IFEQ *ZEROS
C MOVE 'ACC0103' @MSGID
C CALL
C ENDIF
C*
C @STATE IFEQ *BLANK
C MOVE 'ACC0104' @MSGID
C CALL
C ENDIF
C*********************
C *INZSR BEGSR
C MOVEL'*' @PGMQ
C MOVEL'*DIAG' @TYPE
C MOVEL'*LIBL' @LIB 10
C MOVE @LIB @MSGF 20
C MOVEL'INTMSGF' @MSGF
C*
C MOVEL'*ALL' @RMV 10
C MOVE *BLANK @KEY 4
C**
C @PARM1 PLIST
C PARM @PGMQ
C PARM @STK
C PARM @KEY
C PARM @RMV
C PARM @ERR
C*
C @PARM2 PLIST
C PARM @MSGID 7
C PARM @MSGF
C PARM @DTA 80
C PARM @LEN
C PARM @TYPE 10
C PARM @PGMQ
C PARM @STK
C PARM @KEY
C PARM @ERR
C*
C ENDSR
C****************
C @CMD BEGSR
C *IN03 IFEQ *ON
C MOVE *ON *INLR
C RETRN
C ENDIF
C ENDSR
F**STATES IF E K DISK
F*
I**
I IDS
I B 1
I B 5
I B 9
C*
C WRITESFD700B
C*
C EXFMTSFD700C
C*
C EXSR @CMD
C**
C* 50 DO
C MOVEL*BLANK @KEY
C CALL
C* ENDDO
C* SETON 50
C*
C*
C @FNAME IFEQ *BLANK
C MOVE 'ACC0101' @MSGID
C CALL
C ENDIF
C*
C @LNAME IFEQ *BLANK
C MOVE 'ACC0102' @MSGID
C CALL
C ENDIF
C*
C @SSN IFEQ *ZEROS
C MOVE 'ACC0103' @MSGID
C CALL
C ENDIF
C*
C @STATE IFEQ *BLANK
C MOVE 'ACC0104' @MSGID
C CALL
C ENDIF
C*********************
C *INZSR BEGSR
C MOVEL'*' @PGMQ
C MOVEL'*DIAG' @TYPE
C MOVEL'*LIBL' @LIB 10
C MOVE @LIB @MSGF 20
C MOVEL'INTMSGF' @MSGF
C*
C MOVEL'*ALL' @RMV 10
C MOVE *BLANK @KEY 4
C**
C @PARM1 PLIST
C PARM @PGMQ
C PARM @STK
C PARM @KEY
C PARM @RMV
C PARM @ERR
C*
C @PARM2 PLIST
C PARM @MSGID 7
C PARM @MSGF
C PARM @DTA 80
C PARM @LEN
C PARM @TYPE 10
C PARM @PGMQ
C PARM @STK
C PARM @KEY
C PARM @ERR
C*
C ENDSR
C****************
C @CMD BEGSR
C *IN03 IFEQ *ON
C MOVE *ON *INLR
C RETRN
C ENDIF
C ENDSR