Objective
This report lists the name, password, and address of employees. The passwords are created from the first, third, and fifth letters of the employees' first names.
Procedure
Complete Code
col. 2 ▼ IN 200 REC NAME 5 20 REC FIRST-NAME 5 10 REC LAST-NAME 15 10 REC STREET 30 20 REC CITY 50 15 REC STATE 65 2 REC ZIP-CODE 67 5 SEL STATE EQ 'MA' 01SORT LAST-NAME 010 NAME-0.0 ' ' $Redefines NAME-1 into 1-byte occurrences 010 NAME-1 ' ' $Holds the first name 010 WRKFLD-0.0 ' ' $3 bytes to hold the letters for the password 010 WRKFLD-1 ' ' $Holds a single letter 010 WRKFLD-2 ' ' 010 WRKFLD-3 ' ' 010 ADDRESS-0.0 ' ' 010 ADDRESS-1 'STREET ' 010 ADDRESS-2 'CITY ' 010 ADDRESS-3 ' ' 010 ADDRESS-4 ' ' 010 ADDRESS-5 'ZIP ' 0151*010 NAME HH 'NAME' 0151*020 WRKFLD-0.1 HH 'PASSWORD' 0151*030 ADDRESS-0.1 HH ' ADDRESS' 017020 MOVE FIRST-NAME TO NAME-1 017 MOVE NAME-0.1 TO WRKFLD-1 $First letter of the password 017 MOVE NAME-0.3 TO WRKFLD-2 $Second letter of the password 017 MOVE NAME-0.5 TO WRKFLD-3 $Third letter of the password 017 MOVE STREET TO ADDRESS-1 017 MOVE CITY TO ADDRESS-2 017 MOVE STATE TO ADDRESS-3 017 MOVE ZIP-CODE TO ADDRESS-5
Result
NAME PASSWORD ADDRESS ROY ANDALE RY 44 TRIGGER RD FRAMINGHAM MA 03461 MICHAEL ANGELO MCA 507 CISTINE DR WELLESLEY MA 01568 HARRY ARM HRY 77 SUNSET STRIP NATICK MA 02178 MONTE BANK MNE 45 EAST GROVE DR HANIBAL MA 02415 JUNE BLOOMER JN 14 ZITHER TERR LEXINGTON MA 01675 CHARLES BOWER CAL 30 RALPH ST WELLESLEY MA 01568 C. BREEZE C 200 NIGHTINGALE ST FRAMINGHAM MA 03461 TERRY CLOTH TRY 5 ASPHALT ST EASTON MA 05491 BETH CLOUD BT 3456 PINKY LN NATICK MA 02178 CAROLYN CROW CRL 891 SUMMER ST WESTWOOD MA 02090 ALAN DONOVAN AA 6781 CORNWALL AVE MELROSE MA 02176 JANE DOUGH JN 15 LOCATION DR NEWTON MA 02456 JANE FERNDALE JN 60 FOREST AVE NEWTON MA 02576 PHINEAS FINN PIE 79 HIGH ST WESTON MA 04371 TOM FITZHUGH TM 450 THRUWAY ST MANSFIELD MA 03458 GEORGE FONRAD GOG 99 VERDE ST STOUGHTON MA 02456 JAMES GALLWAY JMS 15 DAWSON ST MEDFORD MA 02432 ROBIN GARDNER RBN 68 75TH ST LOWELL MA 02945 JENNIFER GARFIELD JNI 110A FIRTH ST STONEHAM MA 02928 PERCY GRANGER PRY 14 BYTE WAY TAUNTON MA 02678 VLADIMIR HEAROWITZ VAI 19 TERRACE TERR TAUNTON MA 02678 HENRIETTA HENDON HNI 16 HENDON DR WELLESLEY MA 02198 EDWARD HUTTON EWR 781 CROSS ST MELROSE MA 02176 JOCK JACKSON JC 65 BROWN ST WALTHAM MA 01476 JAMES JACOBI JMS 555 JAKAS DR GROVER MA 02976 JULIE JENSEN JLE 15 THINGER AVE SAUGUS MA 02276 RUPERT JENSON RPR 999 HARVEY ST MELROSE MA 02176 CYNTHIA JOHNSON CNH 17 MANIFESTO DR WALPOLE MA 02546 DOUGLAS KAHALLY DUL 56 SPELLING AVE READING MA 02317 JOE KASPAR JE 133 NORTH ST WESTBORO MA 03156 MARIANNE KIMBALL MRA 561 LEXINGTON AVE LITTLETON MA 01239 DORIS KING DRS 716 MORRIS ST MELROSE MA 02176 TERENCE KLWELLEN TRN 12 RAUNCH ST., APT1 DEDHAM MA 02034 SANDY KRAAMER SNY 56 NASTY WAY WESTWOOD MA 02090 BURT LANCHESTER BR 45 PINKERTON AVE WALTHAM MA 01476 HERBERT LIPSICH HRE 6 FORENOON ST WALDEN MA 02986 LARRY LITERATA LRY 123 SATURDAY TERR WILMINGTON MA 02476 RENE MAKER RN 10 DROVER DR BOSTON MA 02123 CAROL MCDOUGALL CRL 19 URITOP DR WELLESLEY MA 01568 DANIEL MOON DNE 16 SKYHIGH DR WESTON MA 04371 RICHARD MUNYON RCA 17 BLACKHILL DR WESTWOOD MA 02090 BRIAN NICEMAN BIN 60 FLORENCE AVE MELROSE MA 02176 KATHERINE O'HEARN KTE 12 EAST SPEEN ST NATICK MA 02364 MADELINE ORGRATZI MDL 67 RAINBOW DR KENDON MA 06182 THEMIS PAPAZEUS TEI 234 TRANSWORLD ST NORTHBORO MA 03256 LAURA PENMAN LUA 45 THRUSH LN WALTHAM MA 01476 ELEANOR PEOPLES EEN 756 YELLOWSTONE DR BOSTON MA 02834 JOHN RUPEE JH 114 WEST INDIA ST METHUEN MA 02312 NANCY TERNER NNY 14 TYPO TERR READING MA 02317 MARK TIME MR 44 CLOCK ST MALDEN MA 01776 RALPH TYRO RLH 888 FORTITHE ST SINGER MA 02254 RICHARD WAGNER RCA 677 GERMANY LN NATICK MA 02178 ROGER WILCO RGR 671A SNOWBANK RD TYNGSBORO MA 01879 ROBBY WILDER RBY 4567 E. GROWTH ST SOUTHBORO MA 03145 BETSY ZEDI BTY 34 VALE AVE SOUTHBORO MA 03145
|
Copyright © 2014 CA.
All rights reserved.
|
|