aliensbrain
  • Home
  • Study
  • Quizzes
  • 🎤AI Practicefree
  • Notebooks
  • Community
  • Sign in
  • Mainframe Programming - Natural, VSAM, Adabas, CICS
  • DEFINE DATA LOCAL 01 #A (A5) END-DEFINE MOVE '123BD' TO #...
Multiple choice technology mainframe

DEFINE DATA LOCAL 01 #A (A5) END-DEFINE MOVE '123BD' TO #A IF #A EQ MASK(NNN) WRITE '=' #A ELSE WRITE 'NO NUMERIC DATA' END-IF END What is the output of program?

  1. 123

  2. 123BD

  3. No Numeric Data

  4. Job will terminate abnormally

Reveal answer Fill a bubble to check yourself
C Correct answer

Keep practicing — related questions

  • "DEFINE DATA LOCAL 01 #A (N2) END-DEFINE RESET #A REPEAT UNTIL #A > 99 WRITE #A ADD 1 TO #A END-REPEAT END ...
  • DEFINE DATA LOCAL 1 #VAR-1 (A25) END-DEFINE MOVE 'THIS IS MY FIRST PROGRAM' TO #VAR-1 WRITE #VAR-1 END The ...
  • DEFINE DATALOCAL01 #A (N2)END-DEFINERESET #AREPEAT UNTIL #A > 99 ADD 1 TO #AEND-REPEATENDWhat is the output...
  • DEFINE DATA LOCAL 01 #A (A5) 01 #B (A5) 01 #C (A10) END-DEFINE MOVE 'ABC' TO #A MOVE '012' TO #B COMPRESS #...
  • DEFINE DATALOCAL01 #A (A15)01 #POS (N2)END-DEFINEMOVE '123BDBEBDABFBBB' TO #AEXAMINE #A FOR 'B' REPLACE FIR...
  • DEFINE DATA LOCAL 01 IDENT VIEW OF IDENTIFICATION-TABLE 02 IDENT-NAME 02 IDENT-ID 02 IDENT-AGE 02 SUPER-ID-...
  • DEFINE DATA LOCAL 01 IDENT VIEW OF IDENTIFICATION-TABLE 02 IDENT-NAME 02 IDENT-ID 02 IDENT-AGE 02 SUPER-ID-...
  • data temp; set lib1.x lib2.y; length jobcode $12.; run; What would be the length of Jobcode in temp?
Play the full quiz 🎤 Practise this topic out loud
Advertisement
© Aliensbrain | all rights reserved
  • About
  • Contact
  • Terms and Condition
  • Privacy Policy