image of READY prompt

Wang2200.org

Listing of file='IDS2sADD' on disk='vmedia/701-2740.wvd.zip'

### Logical Record 0
"\E1IDS2sADD\86I\00\84\0C\A5\8E\FC\A4\03K\C0\D2\\F4\02Ht\84\09\A9\B2P\00        1IDSLIBR0                           DATAFI"
"LE                                                ~\0C\01\03\03\00\00  5TJB111111              "
"                                                                                   "
"  SAMPLE SCREEN TO ADD A RECORD TO FILE # 1                                 KEY IS "
"'FIELD001'; MESSAGE TO SAVE IS ON FIELD 'LAST'                                    S"
"AVE RECORD IS ON LAST FIELD 'LAST'                       FIELD001:                 "
"                                                                                   "
"                                                   FIELD002:                       "
"                                                                                   "
"                                             FIELD003:                             "
"                                                                                   "
"                                       FIELD004:                                   "
"                                                                                   "
"                                 FIELD005:                                         "
"                                                                                   "
"                           FIELD006:                                               "
"                                                                                   "
"                     FIELD007:                                                     "
"                                                                                   "
"               FIELD008:                                                           "
"                                                                                   "
"         FIELD009:                                                                 "
"                                                                                   "
"   FIELD010:                                                                       "
### Logical Record 1
"\0A\00\18 \15y\814\00\0A\00\B80\15q\804\00\0A\01P@\15q\80\14\00\0A\01\F0P\15q\80\14\00\0A\02\90`\15q\80\14\00\0A\030p\15q\80\14\00\0A\03\D0\80\15q\80\14\00\0A\04p\90\15q\80\14\00\0A\05\10\A0\15q\80\14\00\0A\05"
"\B0\B0\15q\80\14\00\0A\06p :p\00\14\00\01\06`\B8\9F\98\01\14\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00"
"\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\01\11\03W"
### Logical Record 2
"FIELD001FIELD002FIELD003FIELD004FIELD005FIELD006FIELD007FIELD008FIELD009FIELD010DUM"
"MYFLDLAST                                                                          "
"                                                                                   "
### Logical Record 3
" f\02.\00IDS2sADDFIELD001                                                              "
"                                                                                   "
"                                                                                   "
### Logical Record 4
" h\02.\00IDS2sADDFIELD001                                    BHDISPMSG1                "
"                                                                                   "
"                                                                                   "
### Logical Record 5
" l\02.\00IDS2sADDFIELD001Enter key field for record to be added                        "
"                                                                                   "
"                                                                                   "
### Logical Record 6
" \86".\00IDS2sADDFIELD001 FILE # 11   NIDUMMYFLDFIELD001FYFFIELD001                    "
"        10                                                                         "
"                                                                                   "
### Logical Record 7
" \88".\00IDS2sADDFIELD001                                                      PHDISPER"
"R1        PQFIELD001                          FHDISPERR1IFFLGFONFQFIELD001IFFLGFON "
"                                                                                   "
### Logical Record 8
" \8C".\00IDS2sADDFIELD001Record already exists-- please re-enter                       "
"                                                                                   "
"                                                                                   "
### Logical Record 9
" f\03.\00IDS2sADDLAST                                                                  "
"                                                                                   "
"                                                                                   "
### Logical Record 10
" h\03.\00IDS2sADDLAST                                                          BHDISPMS"
"G1                                                                                 "
"                                                                                   "
### Logical Record 11
" l\03.\00IDS2sADDLAST    Key 'EXEC' to save record, 'EDIT' to edit.                    "
"                                                                                   "
"                                                                                   "
### Logical Record 12
" f%.\00IDS2sADDLAST                                                                  "
"                                                                                   "
"                                                                                   "
### Logical Record 13
" h%.\00IDS2sADDLAST                      B SKIP06PFIFLFK=33B SKIP01PFIFLFK=32BQLAST  "
"          BHDISPMSG1        BOFILE # 1        BIBLANKFLDIDS2sADDBUFIELD001        B"
"QFIELD001                                                                          "
### Logical Record 14
" l%.\00IDS2sADDLAST    Saving record to data file                                    "
"                                                                                   "
"                                                                                   "