!JOB C7308398,CPV000003121(GALDEV01),7.CA00.ASSIGN M:OPEN, M:DCB TO STREAM
!TITLE *TEST ASSIGN,M:OPEN,M:DCB TO A LOGICAL DEVICE*
!MESSAGE ** OUTPUT FROM THIS JOB GIVES THE INFORMATION
!MESSAGE ** NECESSARY TO COMPLETE THIS SERIES OF TESTS
!PCL
WEOF LP
COPY CR TO LP
         THIS SERIES OF JOBS REQUIRES SOME OPERATOR INTERVENTION.
*
*        GALDEV01 WILL PRODUCE TWO LMN'S SNAKE AND SUPERCLS.
*                 BOTH SHOULD ASSEMBLE ERROR FREE.
*                 THESE LMNS WILL BE USED FURTHER ON IN SEQUENCE
*
*        GALDEV01                   CHECKS TO MAKE
*                 THERE SHOULD BE A PAGE WITH 3 LINES PER EACH OF
*                 3 DCB'S CALLING STREAM P1.
*
*
*                 THERE SHOULD BE A PAGE WITH A FRIENDLY GREETING
*                 FROM THE LINE PRINTER ENDING WITH BYE NOW.
*                 SINGLE SPACED WITH THE NUMBER 1 IN COLUMN 100
*
*
*        GALDEV02                   CHECKS TO MAKE
*                 THERE ARE 4 SETS OF PRINOUT NEEDED (A) THRU (B)
*                 THE PRINTOUTS EXPLAIN WHAT THEY SHOULD LOOK LIKE
*
*        GALDEV03                   CHECKS TO MAKE
*                 THIS JOB SHOULD PRODUCE CARDS IF SYSTEM HAS A
*                 CARD PUNCH.  IF NO CARD PUNC SYSGENED IT WILL
*                 PROBABLY ABORT.  IF IT'S OUR TEST SYTEM WITH
*                 A SYSGENED NON EXISTENT CARD PUNCH. WAIT TIL THE
*                 END OF THIS RUN AND USE SNAKE TO SPILL THE OUTPUT
*                 TO A FILE AND THEN PCL COPY THAT FILE TO THE LINE
*                 PRINTER IN HEX AND LOOK AT THE DATAS TO VERIFY
*                 THAT IT WAS GENERATED PROPERLY.
*
*
*        GALDEV04                   CHECKS TO MAKE
*                 AND SHOUL NOT PRODUCE AN ASSEMBLY LISTING.
*
*        GALDEV05                   CHECKS TO MAKE
*                 THIS JOB SHOULD FORCE OUT AN EXPLANATION OF 5
*                 PRINT BLOCKS TO FOLLOW.  BASED ON THE SYSGEN
*                 IT MAY PRODUCE ONLY 4. THAT IS OK. THE # OF
*                 PRINT BLOCKS REFERS TO THE DISPLAY OF THE SYMBIONT
*                 DATA AT THE END OF THIS SERIES.  THE FORM NAMES
*                 APPLICABLE TO THIS JOB ARE 05AA AND 05BB ONLY.
*                 WAIT TIL THE SERIES IS DONE BEFORE DOING THE FORMS
*                 IT IS AN ERROR IF ANY FORM ABCD SHOWS UP
*
*        GALDEV06                   CHECKS TO MAKE
*
*                 AGAIN THIS SECTION REQUIRES YOU TO DUMP THE
*                 OUTPUT VIA THE SLPXXX,F'ZZZZ' TYPE KEYIN'S
*                 THE JOB SHOULD PRODUSE FORMS 11L9,11L8,11L6,11L5
*                 11L2,11C2,11P1.
*                 EACH OF THESE SHOULD BE DUMPED IN THAT SEQUENCE
*                 EACH SHOULD SAY I AM A GOOD STREAM TWICE
*                 FOLLOWED BY  **** I DO AS I'M TOLD**
*                 ANYTHING ELSE IS AN ERROR.
*        GALDEV07                   CHECKS TO MAKE
*                 THIS SECTION DEPENDS ON A WORKING CARD PUNCH TO
*                 DETERMINE  IF IT WORKED PROPERLY.  IF IT'S OUT
*                 TEST SYSTEM WITH SYSGENED DUMMY PUNCH USE SNAKE TO
*                 SPILL THE OUTPUT AND VERIFY THAT ON THE LINE PRINTER
*                 THE SAME AS YOU DID FOR GALDEV03.
*                 WHAT WE ARE AFTER IS TO MAKE SURE PCL OVERRODE
*                 THE SEQUENCE NUMBERS IN THE FIRST DECK, AND THAT
*                 THE INTERNAL NUMBERS ARE RIGHT IN THE OTHERS.
*        GALDEV08
*
         THRU     THESE JOBS SHOULD ABORT AND SAY SO ON OPS CONSOLE

*        GALDEV12
*
*        GALDEV13                   CHECKS TO MAKE
*                 ONLY A LDEV L1,(FORM,DUMY) PAGE IS PUT OUT
*                 AFTER THE BATCH BANNER. THE REST OF THE
*                 OUTPUT SHOULD BE UNDER FORM NAME FFFF WHICH
*                 YOU GET AT THE END OF THIS SEQUENCE.
*
*                 WHEN YOU DO GET IT CHECK AGAINST THE MASTER TO
*                 SEE THAT THE SEQUENCE IS RIGHT. IT WILL ALSO
*                 HAVE ASKED YOU TO INPUT THE LETTERS MMMM IN
*                 RESPONSE TO A FORM: REQUEST ON THE OC.
*
*        GALDEV14

         THRU     THESE JOBS INFORM U ON THE OPS CONSOLE HOW THEY DID

*        GALDEV24
*
*        FINAL CLEANUP NOW.
*
*        DO A DISP KEYIN TO GET THE DISP ON LP
*
*        DO A DISP KEYIN TO GET THE DISP ON THE OC
*
*        KEYIN THE FORM NAMES IN THE ORDER SHOWN AND
*
*        DUMP THE LISTINGS TO THE LINE PRINTER
*
*        IF YOU HAVE A CARD PUNCH INTERPERT ALL THE CARDS
*
*
*        AND VERIFY THEY HAVE ON THEM THE PROPER DATA
*
*        IF YOU HAVE THE TEST SYTEM WITH NO CARD PUNCH
*        BUT THE DUMMY CARD PUNCH DO THE FOLLOWING
*
*        KEYIN GJOB SNAKE.C7308398
*
*        TYPE THE ANS TO THE QUESTION AS
*
*        SPILL,0000,00,22,0000,0,CP,0001,A
*
*        DO THAT 4 TIMES CHANGING THE LAST DIGIT BEFORE THE ,A
*        TO A DIFFERENT # EACH TIME.
*
*        SYA HELP
*
*        NOW SAY END
*
*        NOW GJOB PCL AND COPY 0001.C7308398 TO LP(X)
*
*        REPEAT THE COPY LINE UNTIL IT SAYS FILE DOES NOT EXIST
*
*        YOU CAN NOW TYPE END TO PCL AND THE LINE PRINTER OUTPUT
*
*        AND THE OPS CONSOLE OUTPUT VERIFIED AGAINST THE MASTERS
*
*        FOR F00.
*
*        THANK YOU VERY MUCH.
*
*
!EOD
!EOD
PRINT
!METASYM SI,GO,LO
START    DATA     X'04900006'       SUPER CLOSE (CAL1,9 6)
         DATA     X'04900001'       M:EXIT
         END      START
!LOAD (GO),(LMN,SUPERCLS),(PERM)
!RUN (LMN,SUPERCLS)
!ASSIGN M:CI,(FILE,SNAKECI)
!ASSIGN M:SI,(FILE,SNAKESI)
!ASSIGN M:BO,(FILE,SNAKEBO),(SAVE)
!AP SI,LU,CI,LO,BO,SD,DC
!ASSIGN M:SI,(DEVICE,CR)
!LOAD (LMN,SNAKE),(MAP),(PERM),(SL,F),(EF,(SNAKEBO))
!ASSIGN M:EI,(FILE,SNAKE)
!SYMCON
BUILD
END
!LDEV  P1,(DEV,LP),(OUT),(FFORM,ABCD)
!ASSIGN  M:EI,(DEVICE,P1),(OUT),(SEQ,GUF)
!ASSIGN M:SI,(FILE,DEV01SI),(SAVE)
!METASYM SI,LO,GO
!LOAD (GO),(MAP),(NOSYSLIB),(LMN,LMNGA01)
!RUN
!PMDE (00),(01)
!LDEV P1,(ASAVE),(COUNT,100)
!ASSIGN M:SI,(DEVICE,SI)
!PCL
WEOF CP
COPY CR TO CP
        ***** HI THERE *****
THIS SHOULD BE YOUR FRIENDLY LINE PRINTER SPEAKING...
IF THIS IS NOT YOUR FRIENDLY LINE PRINTER,
IT IS PROBABLY THE NASTY CARD PUNCH...
INDICATING THE LAST LDEV TO P1 WAS IGNORED
        ***** BYE NOW  *****
!EOD
!EOD
!STEP  NE,0
!MESSAGE  *****GALDEV01 ABORTING AND SHOULDN'T *****
!JOB C7308398,CPV000003121(GALDEV02),7.CA00.M:LDEV LISTING ATTRIBUTES
!TITLE      GALDEV02
!ASSIGN M:SI,(FILE,DEV02SI),(SAVE)
!METASYM SI,LO,GO
!RUN
!PMDE (00),(01)
!STEP  NE,0
!MESSAGE  *****GALDEV02 ABORTING AND SHOULDN'T
!JOB C7308398,CPV000003121(GALDEV03),7.CA00.M:LDEV SEQ OPTION
!MESSAGE *THIS JOB (GALDEV03) RUNS PROPERLY ONLY ON
!MESSAGE *SYSTEM WITH CARD PUNCH SYSGENED AND WORKING.
!TITLE   *TEST PUNCH SEQ OPTION OF M:LDEV*
!METASYM SI,LO,GO
         SYSTEM   SIG7
         SYSTEM   BPM
         REF      M:EO
ST       M:LDEV   'P1',(SEQ,'AOK')
         M:WRITE  M:EO,(BUF,BUF1),(SIZE,80)
         M:WRITE  M:EO,(BUF,BUF2),(SIZE,80)
         M:WRITE  M:EO,(BUF,BUF3),(SIZE,80)
         M:PRINT  (MESS,MESS1)
         M:PRINT  (MESS,MESS2)
         M:EXIT
BUF1 TEXT ' THESE CARDS SHOULD BE CHECKED AGAINST LISTING '
         TEXT     '                                        '
BUF2 TEXT ' TO VERIFY THEM                       '
         TEXT     '                                        '
BUF3 TEXT ' AS HAVING BEEN SEQUENCED PROPERLY IF PUNCHED  '
         TEXT     '                                      '
MESS1 TEXTC ' JOB SHOULD HAVE PRODUCED 3 CARDS WITH SEQUENCE '
MESS2 TEXTC ' NUMBERS 0-3 AND ID AOK IF SYSTEM HAS C.P. '
         END      ST
!LOAD (GO),(MAP),(NOSYSLIB),(LMN,LMNGA03)
!ASSIGN M:EO,(DEVICE,CP),(OUT)
!RUN
!STEP  NE,0
!MESSAGE  *****GALDEV03 ABORTING AND SHOULDN'T *****
!JOB C7308398,CPV000003121(GALDEV04),7.CA00.SINGLE STREAM OPEN/CLOSE
!TITLE  *TEST DELETE OPTION OF M:LDEV
!RUN (LMN,SUPERCLS)
!PCL
COPY CR TO LP
WEOF LP
  THIS JOB (GALDEV04) SHOULD HAVE FORCED OUT THE BANNER BY NOW.
  ALSO, THE STATEMENT RUN (LMN,SUPERCLS) IS OUT. AND THESE LINES
SHOULD HAVE BEEN FORCED OUT BEFORE THE DO NOT BE SURPRISED
SECTION OF THIS JOB. AND THE PRINT COMMAND IN PCL WILL FORCE
THIS OUT ALSO. OR ELSE WE HAVE A BUG SOMEWHERE.
!EOD
!EOD
PRINT
END
!RUN (LMN,SUPERCLS)
!ASSIGN M:SI,(FILE,DEV04SI),(SAVE)
!METASYM SI,LO,GO
!LOAD (GO),(MAP),(NOSYSLIB),(LMN,LMNGA04)
!RUN
!STEP  NE,0
!MESSAGE  *****GALDEV04 ABORTING AND SHOULDN'T*****
!JOB C7308398,CPV000003121(GALDEV05),7.CA00.LDEV LISTING ATTRIBUTES
!TITLE * TEST LISTING-TYPE STREAM ATTRIBUTES ON LDEV COMMAND *
!LDEV L2,(DEV,LP),(FORM,ABCD),(OUT)
!PCL
COPY CR TO L2
THERE SHOULD NOT BE ANY OF THESE TWO LINES
 REMAINING WHEN THE JOB IS FINISHED OR ELSE LDEV DELETE FAILED
!EOD
!EOD
!LDEV L2,(DELETE)
!LDEV L2,(DEV,LP),(FORM,05AA),(COUNT,50),(LABEL, SEE THIS ONCE ONLY)
!PCL
WEOF L2
COPY CR TO L2
THESE LINES ARE FROM JOB GALDEV05 AND SHOULD BE ASSOCIATED WITH STREAM L2
THEY SHOULD HAVE A COUNT IN COLUMN 60. AND THE LAST LINE FROM THIS SECTION
SHOULD SAY THIS IS THE LAST LINE GALDEV05 SECTION1.
THESE LINES ARE FROM JOB GALDEV05 AND SHOULD BE ASSOCIATED WITH STREAM L2
THEY SHOULD HAVE A COUNT IN COLUMN 60. AND THE LAST LINE FROM THIS SECTION
SHOULD SAY THIS IS THE LAST LINE GALDEV05 SECTION1.
THESE LINES ARE FROM JOB GALDEV05 AND SHOULD BE ASSOCIATED WITH STREAM L2
THEY SHOULD HAVE A COUNT IN COLUMN 60. AND THE LAST LINE FROM THIS SECTION
SHOULD SAY THIS IS THE LAST LINE GALDEV05 SECTION1.
THESE LINES ARE FROM JOB GALDEV05 AND SHOULD BE ASSOCIATED WITH STREAM L2
THEY SHOULD HAVE A COUNT IN COLUMN 60. AND THE LAST LINE FROM THIS SECTION
SHOULD SAY THIS IS THE LAST LINE GALDEV05 SECTION1.
THESE LINES ARE FROM JOB GALDEV05 AND SHOULD BE ASSOCIATED WITH STREAM L2
THEY SHOULD HAVE A COUNT IN COLUMN 60. AND THE LAST LINE FROM THIS SECTION
SHOULD SAY THIS IS THE LAST LINE GALDEV05 SECTION1.
THEY SHOULD HAVE A COUNT IN COLUMN 60. AND THE LAST LINE FROM THIS SECTION
SHOULD SAY THIS IS THE LAST LINE GALDEV05 SECTION1.
THESE LINES ARE FROM JOB GALDEV05 AND SHOULD BE ASSOCIATED WITH STREAM L2
THEY SHOULD HAVE A COUNT IN COLUMN 60. AND THE LAST LINE FROM THIS SECTION
SHOULD SAY THIS IS THE LAST LINE GALDEV05 SECTION1.
THESE LINES ARE FROM JOB GALDEV05 AND SHOULD BE ASSOCIATED WITH STREAM L2
THEY SHOULD HAVE A COUNT IN COLUMN 60. AND THE LAST LINE FROM THIS SECTION
SHOULD SAY THIS IS THE LAST LINE GALDEV05 SECTION1.
THESE LINES ARE FROM JOB GALDEV05 AND SHOULD BE ASSOCIATED WITH STREAM L2
THEY SHOULD HAVE A COUNT IN COLUMN 60. AND THE LAST LINE FROM THIS SECTION
SHOULD SAY THIS IS THE LAST LINE GALDEV05 SECTION1.
THESE LINES ARE FROM JOB GALDEV05 AND SHOULD BE ASSOCIATED WITH STREAM L2
THEY SHOULD HAVE A COUNT IN COLUMN 60. AND THE LAST LINE FROM THIS SECTION
SHOULD SAY THIS IS THE LAST LINE GALDEV05 SECTION1.
THESE LINES ARE FROM JOB GALDEV05 AND SHOULD BE ASSOCIATED WITH STREAM L2
THEY SHOULD HAVE A COUNT IN COLUMN 60. AND THE LAST LINE FROM THIS SECTION
SHOULD SAY THIS IS THE LAST LINE GALDEV05 SECTION1.
THESE LINES ARE FROM JOB GALDEV05 AND SHOULD BE ASSOCIATED WITH STREAM L2
THEY SHOULD HAVE A COUNT IN COLUMN 60. AND THE LAST LINE FROM THIS SECTION
SHOULD SAY THIS IS THE LAST LINE GALDEV05 SECTION1.
THESE LINES ARE FROM JOB GALDEV05 AND SHOULD BE ASSOCIATED WITH STREAM L2
THEY SHOULD HAVE A COUNT IN COLUMN 60. AND THE LAST LINE FROM THIS SECTION
SHOULD SAY THIS IS THE LAST LINE GALDEV05 SECTION1.
THESE LINES ARE FROM JOB GALDEV05 AND SHOULD BE ASSOCIATED WITH STREAM L2
THEY SHOULD HAVE A COUNT IN COLUMN 60. AND THE LAST LINE FROM THIS SECTION
SHOULD SAY THIS IS THE LAST LINE GALDEV05 SECTION1.
THESE LINES ARE FROM JOB GALDEV05 AND SHOULD BE ASSOCIATED WITH STREAM L2
THEY SHOULD HAVE A COUNT IN COLUMN 60. AND THE LAST LINE FROM THIS SECTION
SHOULD SAY THIS IS THE LAST LINE GALDEV05 SECTION1.
THESE LINES ARE FROM JOB GALDEV05 AND SHOULD BE ASSOCIATED WITH STREAM L2
THEY SHOULD HAVE A COUNT IN COLUMN 60. AND THE LAST LINE FROM THIS SECTION
SHOULD SAY THIS IS THE LAST LINE GALDEV05 SECTION1.
THIS IS THE LAST LINE GALDEV05 SECTION1.
!EOD
!EOD
!LDEV L2,(ASAVE),(COUNT,60),(CONCURR)
!PCL
WEOF L2
COPY CR TO L2
THESE LINES ARE FROM GALDEV05 AND ARE ASSOCIATED WITH A CONCURRENT SECTION
OF JOB GALDEV05 AND YOU SHOULD HAVE SEEN A MESSAGE THAT THIS JOB (GALDEV05)
WAS IN CONCURRENT OUTPUT WHILE THIS WAS PRINTING.  IT SHOWS A VERY BAD USE
OF CONCURRENT OUTPUT MODE, SINCE IT TOOK UP 1 OR 2 EXTRA OUTPUT FILE SLOTS IN
THE OUTPUT QUEUE DEPENDING ON SYSGEN AND DID NOT GET PRINTED ANY FASTER.
THESE LINES ARE FROM GALDEV05 AND ARE ASSOCIATED WITH A CONCURRENT SECTION
OF JOB GALDEV05 AND YOU SHOULD HAVE SEEN A MESSAGE THAT THIS JOB (GALDEV05)
WAS IN CONCURRENT OUTPUT WHILE THIS WAS PRINTING.  IT SHOWS A VERY BAD USE
OF CONCURRENT OUTPUT MODE, SINCE IT TOOK UP 1 OR 2 EXTRA OUTPUT FILE SLOTS IN
THE OUTPUT QUEUE DEPENDING ON SYSGEN AND DID NOT GET PRINTED ANY FASTER.
THESE LINES ARE FROM GALDEV05 AND ARE ASSOCIATED WITH A CONCURRENT SECTION
OF JOB GALDEV05 AND YOU SHOULD HAVE SEEN A MESSAGE THAT THIS JOB (GALDEV05)
WAS IN CONCURRENT OUTPUT WHILE THIS WAS PRINTING.  IT SHOWS A VERY BAD USE
OF CONCURRENT OUTPUT MODE, SINCE IT TOOK UP 1 OR 2 EXTRA OUTPUT FILE SLOTS IN
THE OUTPUT QUEUE DEPENDING ON SYSGEN AND DID NOT GET PRINTED ANY FASTER.
THESE LINES ARE FROM GALDEV05 AND ARE ASSOCIATED WITH A CONCURRENT SECTION
WAS IN CONCURRENT OUTPUT WHILE THIS WAS PRINTING.  IT SHOWS A VERY BAD USE
OF CONCURRENT OUTPUT MODE, SINCE IT TOOK UP 1 OR 2 EXTRA OUTPUT FILE SLOTS IN
THE OUTPUT QUEUE DEPENDING ON SYSGEN AND DID NOT GET PRINTED ANY FASTER.
THESE LINES ARE FROM GALDEV05 AND ARE ASSOCIATED WITH A CONCURRENT SECTION
OF JOB GALDEV05 AND YOU SHOULD HAVE SEEN A MESSAGE THAT THIS JOB (GALDEV05)
WAS IN CONCURRENT OUTPUT WHILE THIS WAS PRINTING.  IT SHOWS A VERY BAD USE
OF CONCURRENT OUTPUT MODE, SINCE IT TOOK UP 1 OR 2 EXTRA OUTPUT FILE SLOTS IN
THE OUTPUT QUEUE DEPENDING ON SYSGEN AND DID NOT GET PRINTED ANY FASTER.
THESE LINES ARE FROM GALDEV05 AND ARE ASSOCIATED WITH A CONCURRENT SECTION
OF JOB GALDEV05 AND YOU SHOULD HAVE SEEN A MESSAGE THAT THIS JOB (GALDEV05)
WAS IN CONCURRENT OUTPUT WHILE THIS WAS PRINTING.  IT SHOWS A VERY BAD USE
OF CONCURRENT OUTPUT MODE, SINCE IT TOOK UP 1 OR 2 EXTRA OUTPUT FILE SLOTS IN
THE OUTPUT QUEUE DEPENDING ON SYSGEN AND DID NOT GET PRINTED ANY FASTER.
THESE LINES ARE FROM GALDEV05 AND ARE ASSOCIATED WITH A CONCURRENT SECTION
OF JOB GALDEV05 AND YOU SHOULD HAVE SEEN A MESSAGE THAT THIS JOB (GALDEV05)
WAS IN CONCURRENT OUTPUT WHILE THIS WAS PRINTING.  IT SHOWS A VERY BAD USE
OF CONCURRENT OUTPUT MODE, SINCE IT TOOK UP 1 OR 2 EXTRA OUTPUT FILE SLOTS IN
THE OUTPUT QUEUE DEPENDING ON SYSGEN AND DID NOT GET PRINTED ANY FASTER.
THESE LINES ARE FROM GALDEV05 AND ARE ASSOCIATED WITH A CONCURRENT SECTION
OF JOB GALDEV05 AND YOU SHOULD HAVE SEEN A MESSAGE THAT THIS JOB (GALDEV05)
WAS IN CONCURRENT OUTPUT WHILE THIS WAS PRINTING.  IT SHOWS A VERY BAD USE
OF CONCURRENT OUTPUT MODE, SINCE IT TOOK UP 1 OR 2 EXTRA OUTPUT FILE SLOTS IN
THE OUTPUT QUEUE DEPENDING ON SYSGEN AND DID NOT GET PRINTED ANY FASTER.
THESE LINES ARE FROM GALDEV05 AND ARE ASSOCIATED WITH A CONCURRENT SECTION
OF JOB GALDEV05 AND YOU SHOULD HAVE SEEN A MESSAGE THAT THIS JOB (GALDEV05)
WAS IN CONCURRENT OUTPUT WHILE THIS WAS PRINTING.  IT SHOWS A VERY BAD USE
OF CONCURRENT OUTPUT MODE, SINCE IT TOOK UP 1 OR 2 EXTRA OUTPUT FILE SLOTS IN
THE OUTPUT QUEUE DEPENDING ON SYSGEN AND DID NOT GET PRINTED ANY FASTER.
THESE LINES ARE FROM GALDEV05 AND ARE ASSOCIATED WITH A CONCURRENT SECTION
OF JOB GALDEV05 AND YOU SHOULD HAVE SEEN A MESSAGE THAT THIS JOB (GALDEV05)
WAS IN CONCURRENT OUTPUT WHILE THIS WAS PRINTING.  IT SHOWS A VERY BAD USE
OF CONCURRENT OUTPUT MODE, SINCE IT TOOK UP 1 OR 2 EXTRA OUTPUT FILE SLOTS IN
THE OUTPUT QUEUE DEPENDING ON SYSGEN AND DID NOT GET PRINTED ANY FASTER.
THESE LINES ARE FROM GALDEV05 AND ARE ASSOCIATED WITH A CONCURRENT SECTION
OF JOB GALDEV05 AND YOU SHOULD HAVE SEEN A MESSAGE THAT THIS JOB (GALDEV05)
WAS IN CONCURRENT OUTPUT WHILE THIS WAS PRINTING.  IT SHOWS A VERY BAD USE
OF CONCURRENT OUTPUT MODE, SINCE IT TOOK UP 1 OR 2 EXTRA OUTPUT FILE SLOTS IN
THE OUTPUT QUEUE DEPENDING ON SYSGEN AND DID NOT GET PRINTED ANY FASTER.
THESE LINES ARE FROM GALDEV05 AND ARE ASSOCIATED WITH A CONCURRENT SECTION
OF JOB GALDEV05 AND YOU SHOULD HAVE SEEN A MESSAGE THAT THIS JOB (GALDEV05)
WAS IN CONCURRENT OUTPUT WHILE THIS WAS PRINTING.  IT SHOWS A VERY BAD USE
OF CONCURRENT OUTPUT MODE, SINCE IT TOOK UP 1 OR 2 EXTRA OUTPUT FILE SLOTS IN
THE OUTPUT QUEUE DEPENDING ON SYSGEN AND DID NOT GET PRINTED ANY FASTER.
THESE LINES ARE FROM GALDEV05 AND ARE ASSOCIATED WITH A CONCURRENT SECTION
OF JOB GALDEV05 AND YOU SHOULD HAVE SEEN A MESSAGE THAT THIS JOB (GALDEV05)
WAS IN CONCURRENT OUTPUT WHILE THIS WAS PRINTING.  IT SHOWS A VERY BAD USE
OF CONCURRENT OUTPUT MODE, SINCE IT TOOK UP 1 OR 2 EXTRA OUTPUT FILE SLOTS IN
THE OUTPUT QUEUE DEPENDING ON SYSGEN AND DID NOT GET PRINTED ANY FASTER.
OF JOB GALDEV05 AND YOU SHOULD HAVE SEEN A MESSAGE THAT THIS JOB (GALDEV05)
WAS IN CONCURRENT OUTPUT WHILE THIS WAS PRINTING.  IT SHOWS A VERY BAD USE
OF CONCURRENT OUTPUT MODE, SINCE IT TOOK UP 1 OR 2 EXTRA OUTPUT FILE SLOTS IN
THE OUTPUT QUEUE DEPENDING ON SYSGEN AND DID NOT GET PRINTED ANY FASTER.
THESE LINES ARE FROM GALDEV05 AND ARE ASSOCIATED WITH A CONCURRENT SECTION
OF JOB GALDEV05 AND YOU SHOULD HAVE SEEN A MESSAGE THAT THIS JOB (GALDEV05)
WAS IN CONCURRENT OUTPUT WHILE THIS WAS PRINTING.  IT SHOWS A VERY BAD USE
OF CONCURRENT OUTPUT MODE, SINCE IT TOOK UP 1 OR 2 EXTRA OUTPUT FILE SLOTS IN
THE OUTPUT QUEUE DEPENDING ON SYSGEN AND DID NOT GET PRINTED ANY FASTER.
THESE LINES ARE FROM GALDEV05 AND ARE ASSOCIATED WITH A CONCURRENT SECTION
OF JOB GALDEV05 AND YOU SHOULD HAVE SEEN A MESSAGE THAT THIS JOB (GALDEV05)
WAS IN CONCURRENT OUTPUT WHILE THIS WAS PRINTING.  IT SHOWS A VERY BAD USE
OF CONCURRENT OUTPUT MODE, SINCE IT TOOK UP 1 OR 2 EXTRA OUTPUT FILE SLOTS IN
THE OUTPUT QUEUE DEPENDING ON SYSGEN AND DID NOT GET PRINTED ANY FASTER.
THIS IS THE LAST LINE OF SECTION 2 UNDER FORM 05AA
!EOD
!EOD
!LDEV L2,(ASAVE),(COUNT,70)
!PCL
WEOF L2
COPY CR TO L2
THE LAST SECTION SHOULD HAVE GONE CONCURRENT MODE WITH COUNT IN COLUMN 60
 THIS SECTION SHOULD ALSO BE CONCURRENT BUT HAVE COUNT IN COLUMN 70
   WHEN IT'S DONE WE WILL DO A PRINT (SUPERCLOSE) FROM PCL AND TRY THE NO
BANNER SECTION. THIS IS SECTION 3
THE LAST SECTION SHOULD HAVE GONE CONCURRENT MODE WITH COUNT IN COLUMN 60
 THIS SECTION SHOULD ALSO BE CONCURRENT BUT HAVE COUNT IN COLUMN 70
   WHEN IT'S DONE WE WILL DO A PRINT (SUPERCLOSE) FROM PCL AND TRY THE NO
BANNER SECTION. THIS IS SECTION 3
 THIS SECTION SHOULD ALSO BE CONCURRENT BUT HAVE COUNT IN COLUMN 70
   WHEN IT'S DONE WE WILL DO A PRINT (SUPERCLOSE) FROM PCL AND TRY THE NO
BANNER SECTION. THIS IS SECTION 3
THE LAST SECTION SHOULD HAVE GONE CONCURRENT MODE WITH COUNT IN COLUMN 60
 THIS SECTION SHOULD ALSO BE CONCURRENT BUT HAVE COUNT IN COLUMN 70
   WHEN IT'S DONE WE WILL DO A PRINT (SUPERCLOSE) FROM PCL AND TRY THE NO
BANNER SECTION. THIS IS SECTION 3
THE LAST SECTION SHOULD HAVE GONE CONCURRENT MODE WITH COUNT IN COLUMN 60
 THIS SECTION SHOULD ALSO BE CONCURRENT BUT HAVE COUNT IN COLUMN 70
THE LAST SECTION SHOULD HAVE GONE CONCURRENT MODE WITH COUNT IN COLUMN 60
BANNER SECTION. THIS IS SECTION 3
THE LAST SECTION SHOULD HAVE GONE CONCURRENT MODE WITH COUNT IN COLUMN 60
 THIS SECTION SHOULD ALSO BE CONCURRENT BUT HAVE COUNT IN COLUMN 70
   WHEN IT'S DONE WE WILL DO A PRINT (SUPERCLOSE) FROM PCL AND TRY THE NO
BANNER SECTION. THIS IS SECTION 3
THE LAST SECTION SHOULD HAVE GONE CONCURRENT MODE WITH COUNT IN COLUMN 60
 THIS SECTION SHOULD ALSO BE CONCURRENT BUT HAVE COUNT IN COLUMN 70
   WHEN IT'S DONE WE WILL DO A PRINT (SUPERCLOSE) FROM PCL AND TRY THE NO
BANNER SECTION. THIS IS SECTION 3
THE LAST SECTION SHOULD HAVE GONE CONCURRENT MODE WITH COUNT IN COLUMN 60
 THIS SECTION SHOULD ALSO BE CONCURRENT BUT HAVE COUNT IN COLUMN 70
   WHEN IT'S DONE WE WILL DO A PRINT (SUPERCLOSE) FROM PCL AND TRY THE NO
BANNER SECTION. THIS IS SECTION 3
THE LAST SECTION SHOULD HAVE GONE CONCURRENT MODE WITH COUNT IN COLUMN 60
 THIS SECTION SHOULD ALSO BE CONCURRENT BUT HAVE COUNT IN COLUMN 70
   WHEN IT'S DONE WE WILL DO A PRINT (SUPERCLOSE) FROM PCL AND TRY THE NO
BANNER SECTION. THIS IS SECTION 3
 THIS SECTION SHOULD ALSO BE CONCURRENT BUT HAVE COUNT IN COLUMN 70
   WHEN IT'S DONE WE WILL DO A PRINT (SUPERCLOSE) FROM PCL AND TRY THE NO
BANNER SECTION. THIS IS SECTION 3
THE LAST SECTION SHOULD HAVE GONE CONCURRENT MODE WITH COUNT IN COLUMN 60
 THIS SECTION SHOULD ALSO BE CONCURRENT BUT HAVE COUNT IN COLUMN 70
   WHEN IT'S DONE WE WILL DO A PRINT (SUPERCLOSE) FROM PCL AND TRY THE NO
BANNER SECTION. THIS IS SECTION 3
THE LAST SECTION SHOULD HAVE GONE CONCURRENT MODE WITH COUNT IN COLUMN 60
 THIS SECTION SHOULD ALSO BE CONCURRENT BUT HAVE COUNT IN COLUMN 70
   WHEN IT'S DONE WE WILL DO A PRINT (SUPERCLOSE) FROM PCL AND TRY THE NO
BANNER SECTION. THIS IS SECTION 3
THE LAST SECTION SHOULD HAVE GONE CONCURRENT MODE WITH COUNT IN COLUMN 60
 THIS SECTION SHOULD ALSO BE CONCURRENT BUT HAVE COUNT IN COLUMN 70
THE LAST SECTION SHOULD HAVE GONE CONCURRENT MODE WITH COUNT IN COLUMN 60
BANNER SECTION. THIS IS SECTION 3
THE LAST SECTION SHOULD HAVE GONE CONCURRENT MODE WITH COUNT IN COLUMN 60
 THIS SECTION SHOULD ALSO BE CONCURRENT BUT HAVE COUNT IN COLUMN 70
   WHEN IT'S DONE WE WILL DO A PRINT (SUPERCLOSE) FROM PCL AND TRY THE NO
BANNER SECTION. THIS IS SECTION 3
THE LAST SECTION SHOULD HAVE GONE CONCURRENT MODE WITH COUNT IN COLUMN 60
 THIS SECTION SHOULD ALSO BE CONCURRENT BUT HAVE COUNT IN COLUMN 70
   WHEN IT'S DONE WE WILL DO A PRINT (SUPERCLOSE) FROM PCL AND TRY THE NO
BANNER SECTION. THIS IS SECTION 3
THE LAST SECTION SHOULD HAVE GONE CONCURRENT MODE WITH COUNT IN COLUMN 60
 THIS SECTION SHOULD ALSO BE CONCURRENT BUT HAVE COUNT IN COLUMN 70
   WHEN IT'S DONE WE WILL DO A PRINT (SUPERCLOSE) FROM PCL AND TRY THE NO
BANNER SECTION. THIS IS SECTION 3
   WHEN IT'S DONE WE WILL DO A PRINT (SUPERCLOSE) FROM PCL AND TRY THE NO
BANNER SECTION. THIS IS SECTION 3
THE LAST SECTION SHOULD HAVE GONE CONCURRENT MODE WITH COUNT IN COLUMN 60
 THIS SECTION SHOULD ALSO BE CONCURRENT BUT HAVE COUNT IN COLUMN 70
THE LAST SECTION SHOULD HAVE GONE CONCURRENT MODE WITH COUNT IN COLUMN 60
BANNER SECTION. THIS IS SECTION 3
THE LAST SECTION SHOULD HAVE GONE CONCURRENT MODE WITH COUNT IN COLUMN 60
 THIS SECTION SHOULD ALSO BE CONCURRENT BUT HAVE COUNT IN COLUMN 70
   WHEN IT'S DONE WE WILL DO A PRINT (SUPERCLOSE) FROM PCL AND TRY THE NO
BANNER SECTION. THIS IS SECTION 3
THE LAST SECTION SHOULD HAVE GONE CONCURRENT MODE WITH COUNT IN COLUMN 60
 THIS SECTION SHOULD ALSO BE CONCURRENT BUT HAVE COUNT IN COLUMN 70
   WHEN IT'S DONE WE WILL DO A PRINT (SUPERCLOSE) FROM PCL AND TRY THE NO
BANNER SECTION. THIS IS SECTION 3
THE LAST SECTION SHOULD HAVE GONE CONCURRENT MODE WITH COUNT IN COLUMN 60
 THIS SECTION SHOULD ALSO BE CONCURRENT BUT HAVE COUNT IN COLUMN 70
   WHEN IT'S DONE WE WILL DO A PRINT (SUPERCLOSE) FROM PCL AND TRY THE NO
BANNER SECTION. THIS IS SECTION 3
THIS IS THE LAST LINE OF SECTION3
!EOD
!EOD
END
!PCL
COPY CR TO LP
 THIS JOB GALDEV05 WILL GENERATE VARIOUS OUTPUT'S SHOWING THE LDEV
 INTERFACE WITH THE CONTEXT STREAM. VIA L2
 IT SHOULD HAVE PRODUCED 4 OR 5 BLOCKS OF OUTPUT .
  THE ONES  WITH FORM 05AA YOU SHOULD PRINT FIRST. WHAT YOU SHOULD
   VERIFY IS THAT YOU HAVE A SINGLE SPACED BANNER WITH THE WORDS
    SEE THIS ONCE ONLY ADDED.  FOLLOWED BY WHAT YOU SHOULD BE ABLE TO
    IDENTIFY AS SECTION 1. THEN VERIFY THE COUNT OVERLAID THE WORD
    COMMAND SO IT SAYS COM1AND. ON PAGE 1 AND ETC.
 SECTION 3 HAS THE COUNT MOVED TO COLUMN 70 PREECEEDED
 BY A SINGLE SPACED BANNER PAGE WITH NO LABEL.
*
    WITH  A SINGLE SPACED BANNER SEPARATING IT AND THE COLUMN COUNT IN
    COLUMN 60.
NEXT YOU SHOULD HAVE TO INPUT THE FORM NAME 05AB WHICH HAS TWO NO BANNER
SECTIONS          WITH THE COUNT IN COLUMN 90 FOR BOTH SECTIONS.
THE NO BANNER OPTION HAS OVERRIDDEN THE LABEL FEATURE VIA THE LDEV ASAVE
OPERATION.
     AND FINALLY THERE SHOULD NOT BE ANYTHING WITH FORM NAME ABCD ON IT
     REMEMBER THE BEST WAY TO SEE WHAT'S IN THE SYMBIONT IS TO DO
     A DISPLAY KEYIN FROM THE OC.  !DISP
     THE OUTPUT ON THE LINE PRINTER SHOULD BE CHECKED AGAINST
      THE SAME TYPE OF DATA OBTAINED ON THE OC BY A DIS OC KEYIN.
!EOD
!EOD
PRINT
!MESSAGE *GALDEV05 REQUIRES READING ITS OUTPUT*
!MESSAGE *PRINTING ABOUT NOW, TO DETERMINE THE*
!MESSAGE *STEPS TO TAKE TO FINISH VERIFYING JOB*
!LDEV L2,(NOBANNER),(FORM,05AB),(COUNT,90)
!PCL
WEOF L2
COPY CR TO L2
THIS SECTION (GALDEV05) SECTION4 WILL BE UNDER FORM 05AB AND
SHOULD NOT HAVE A BANNER IN FRONT OF IT COUNT IS IN COL 90
THIS SECTION (GALDEV05) SECTION4 WILL BE UNDER FORM 05AB AND
SHOULD NOT HAVE A BANNER IN FRONT OF IT COUNT IS IN COL 90
THIS SECTION (GALDEV05) SECTION4 WILL BE UNDER FORM 05AB AND
SHOULD NOT HAVE A BANNER IN FRONT OF IT COUNT IS IN COL 90
THIS SECTION (GALDEV05) SECTION4 WILL BE UNDER FORM 05AB AND
SHOULD NOT HAVE A BANNER IN FRONT OF IT COUNT IS IN COL 90
THIS SECTION (GALDEV05) SECTION4 WILL BE UNDER FORM 05AB AND
SHOULD NOT HAVE A BANNER IN FRONT OF IT COUNT IS IN COL 90
THIS SECTION (GALDEV05) SECTION4 WILL BE UNDER FORM 05AB AND
SHOULD NOT HAVE A BANNER IN FRONT OF IT COUNT IS IN COL 90
THIS SECTION (GALDEV05) SECTION4 WILL BE UNDER FORM 05AB AND
SHOULD NOT HAVE A BANNER IN FRONT OF IT COUNT IS IN COL 90
SHOULD NOT HAVE A BANNER IN FRONT OF IT COUNT IS IN COL 90
THIS SECTION (GALDEV05) SECTION4 WILL BE UNDER FORM 05AB AND
SHOULD NOT HAVE A BANNER IN FRONT OF IT COUNT IS IN COL 90
THIS SECTION (GALDEV05) SECTION4 WILL BE UNDER FORM 05AB AND
SHOULD NOT HAVE A BANNER IN FRONT OF IT COUNT IS IN COL 90
THIS SECTION (GALDEV05) SECTION4 WILL BE UNDER FORM 05AB AND
SHOULD NOT HAVE A BANNER IN FRONT OF IT COUNT IS IN COL 90
THIS SECTION (GALDEV05) SECTION4 WILL BE UNDER FORM 05AB AND
SHOULD NOT HAVE A BANNER IN FRONT OF IT COUNT IS IN COL 90
THIS SECTION (GALDEV05) SECTION4 WILL BE UNDER FORM 05AB AND
SHOULD NOT HAVE A BANNER IN FRONT OF IT COUNT IS IN COL 90
THIS SECTION (GALDEV05) SECTION4 WILL BE UNDER FORM 05AB AND
SHOULD NOT HAVE A BANNER IN FRONT OF IT COUNT IS IN COL 90
THIS SECTION (GALDEV05) SECTION4 WILL BE UNDER FORM 05AB AND
SHOULD NOT HAVE A BANNER IN FRONT OF IT COUNT IS IN COL 90
THIS SECTION (GALDEV05) SECTION4 WILL BE UNDER FORM 05AB AND
SHOULD NOT HAVE A BANNER IN FRONT OF IT COUNT IS IN COL 90
THIS SECTION (GALDEV05) SECTION4 WILL BE UNDER FORM 05AB AND
SHOULD NOT HAVE A BANNER IN FRONT OF IT COUNT IS IN COL 90
THIS SECTION (GALDEV05) SECTION4 WILL BE UNDER FORM 05AB AND
SHOULD NOT HAVE A BANNER IN FRONT OF IT COUNT IS IN COL 90
THIS SECTION (GALDEV05) SECTION4 WILL BE UNDER FORM 05AB AND
SHOULD NOT HAVE A BANNER IN FRONT OF IT COUNT IS IN COL 90
THIS SECTION (GALDEV05) SECTION4 WILL BE UNDER FORM 05AB AND
SHOULD NOT HAVE A BANNER IN FRONT OF IT COUNT IS IN COL 90
THIS SECTION (GALDEV05) SECTION4 WILL BE UNDER FORM 05AB AND
SHOULD NOT HAVE A BANNER IN FRONT OF IT COUNT IS IN COL 90
THIS SECTION (GALDEV05) SECTION4 WILL BE UNDER FORM 05AB AND
SHOULD NOT HAVE A BANNER IN FRONT OF IT COUNT IS IN COL 90
SHOULD NOT HAVE A BANNER IN FRONT OF IT COUNT IS IN COL 90
THIS SECTION (GALDEV05) SECTION4 WILL BE UNDER FORM 05AB AND
SHOULD NOT HAVE A BANNER IN FRONT OF IT COUNT IS IN COL 90
THIS SECTION (GALDEV05) SECTION4 WILL BE UNDER FORM 05AB AND
SHOULD NOT HAVE A BANNER IN FRONT OF IT COUNT IS IN COL 90
THIS SECTION (GALDEV05) SECTION4 WILL BE UNDER FORM 05AB AND
SHOULD NOT HAVE A BANNER IN FRONT OF IT COUNT IS IN COL 90
THIS SECTION (GALDEV05) SECTION4 WILL BE UNDER FORM 05AB AND
SHOULD NOT HAVE A BANNER IN FRONT OF IT COUNT IS IN COL 90
THIS SECTION (GALDEV05) SECTION4 WILL BE UNDER FORM 05AB AND
SHOULD NOT HAVE A BANNER IN FRONT OF IT COUNT IS IN COL 90
THIS SECTION (GALDEV05) SECTION4 WILL BE UNDER FORM 05AB AND
SHOULD NOT HAVE A BANNER IN FRONT OF IT COUNT IS IN COL 90
THIS SECTION (GALDEV05) SECTION4 WILL BE UNDER FORM 05AB AND
SHOULD NOT HAVE A BANNER IN FRONT OF IT COUNT IS IN COL 90
THIS SECTION (GALDEV05) SECTION4 WILL BE UNDER FORM 05AB AND
SHOULD NOT HAVE A BANNER IN FRONT OF IT COUNT IS IN COL 90
THIS SECTION (GALDEV05) SECTION4 WILL BE UNDER FORM 05AB AND
SHOULD NOT HAVE A BANNER IN FRONT OF IT COUNT IS IN COL 90
    THIS IS THE LAST LINE OF SECTION 4
!EOD
!EOD
END
!LDEV L2,(ASAVE),(LABEL,THIS SHOULD NEVER SHOW UP)
!PCL
WEOF L2
COPY CR TO L2
THIS SECTION SHOULD ALSO HAVE COUNT IN COLUMN 90 AND SHOULD NOT BE
PRECEEDED WITH ANY KIND OF BANNER THAT SAYS ANYTHING ABOUT
THIS SHOULD NOT SHOW UP.  THIS IS SECTION 5
THIS SECTION SHOULD ALSO HAVE COUNT IN COLUMN 90 AND SHOULD NOT BE
PRECEEDED WITH ANY KIND OF BANNER THAT SAYS ANYTHING ABOUT
THIS SHOULD NOT SHOW UP.  THIS IS SECTION 5
THIS SECTION SHOULD ALSO HAVE COUNT IN COLUMN 90 AND SHOULD NOT BE
THIS SHOULD NOT SHOW UP.  THIS IS SECTION 5
THIS SECTION SHOULD ALSO HAVE COUNT IN COLUMN 90 AND SHOULD NOT BE
PRECEEDED WITH ANY KIND OF BANNER THAT SAYS ANYTHING ABOUT
THIS SHOULD NOT SHOW UP.  THIS IS SECTION 5
THIS SECTION SHOULD ALSO HAVE COUNT IN COLUMN 90 AND SHOULD NOT BE
PRECEEDED WITH ANY KIND OF BANNER THAT SAYS ANYTHING ABOUT
THIS SHOULD NOT SHOW UP.  THIS IS SECTION 5
THIS SECTION SHOULD ALSO HAVE COUNT IN COLUMN 90 AND SHOULD NOT BE
PRECEEDED WITH ANY KIND OF BANNER THAT SAYS ANYTHING ABOUT
THIS SHOULD NOT SHOW UP.  THIS IS SECTION 5
THIS SECTION SHOULD ALSO HAVE COUNT IN COLUMN 90 AND SHOULD NOT BE
PRECEEDED WITH ANY KIND OF BANNER THAT SAYS ANYTHING ABOUT
THIS SHOULD NOT SHOW UP.  THIS IS SECTION 5
THIS SECTION SHOULD ALSO HAVE COUNT IN COLUMN 90 AND SHOULD NOT BE
PRECEEDED WITH ANY KIND OF BANNER THAT SAYS ANYTHING ABOUT
THIS SHOULD NOT SHOW UP.  THIS IS SECTION 5
THIS SECTION SHOULD ALSO HAVE COUNT IN COLUMN 90 AND SHOULD NOT BE
PRECEEDED WITH ANY KIND OF BANNER THAT SAYS ANYTHING ABOUT
THIS SHOULD NOT SHOW UP.  THIS IS SECTION 5
THIS SECTION SHOULD ALSO HAVE COUNT IN COLUMN 90 AND SHOULD NOT BE
PRECEEDED WITH ANY KIND OF BANNER THAT SAYS ANYTHING ABOUT
THIS SHOULD NOT SHOW UP.  THIS IS SECTION 5
THIS SECTION SHOULD ALSO HAVE COUNT IN COLUMN 90 AND SHOULD NOT BE
PRECEEDED WITH ANY KIND OF BANNER THAT SAYS ANYTHING ABOUT
THIS SHOULD NOT SHOW UP.  THIS IS SECTION 5
THIS SECTION SHOULD ALSO HAVE COUNT IN COLUMN 90 AND SHOULD NOT BE
PRECEEDED WITH ANY KIND OF BANNER THAT SAYS ANYTHING ABOUT
THIS SHOULD NOT SHOW UP.  THIS IS SECTION 5
THIS SECTION SHOULD ALSO HAVE COUNT IN COLUMN 90 AND SHOULD NOT BE
PRECEEDED WITH ANY KIND OF BANNER THAT SAYS ANYTHING ABOUT
THIS SHOULD NOT SHOW UP.  THIS IS SECTION 5
THIS SECTION SHOULD ALSO HAVE COUNT IN COLUMN 90 AND SHOULD NOT BE
PRECEEDED WITH ANY KIND OF BANNER THAT SAYS ANYTHING ABOUT
THIS SHOULD NOT SHOW UP.  THIS IS SECTION 5
THIS SECTION SHOULD ALSO HAVE COUNT IN COLUMN 90 AND SHOULD NOT BE
PRECEEDED WITH ANY KIND OF BANNER THAT SAYS ANYTHING ABOUT
THIS SHOULD NOT SHOW UP.  THIS IS SECTION 5
THIS SECTION SHOULD ALSO HAVE COUNT IN COLUMN 90 AND SHOULD NOT BE
PRECEEDED WITH ANY KIND OF BANNER THAT SAYS ANYTHING ABOUT
THIS SHOULD NOT SHOW UP.  THIS IS SECTION 5
THIS SECTION SHOULD ALSO HAVE COUNT IN COLUMN 90 AND SHOULD NOT BE
THIS SHOULD NOT SHOW UP.  THIS IS SECTION 5
THIS SECTION SHOULD ALSO HAVE COUNT IN COLUMN 90 AND SHOULD NOT BE
PRECEEDED WITH ANY KIND OF BANNER THAT SAYS ANYTHING ABOUT
THIS SHOULD NOT SHOW UP.  THIS IS SECTION 5
THIS SECTION SHOULD ALSO HAVE COUNT IN COLUMN 90 AND SHOULD NOT BE
PRECEEDED WITH ANY KIND OF BANNER THAT SAYS ANYTHING ABOUT
THIS SHOULD NOT SHOW UP.  THIS IS SECTION 5
THIS SECTION SHOULD ALSO HAVE COUNT IN COLUMN 90 AND SHOULD NOT BE
PRECEEDED WITH ANY KIND OF BANNER THAT SAYS ANYTHING ABOUT
THIS SHOULD NOT SHOW UP.  THIS IS SECTION 5
THIS SECTION SHOULD ALSO HAVE COUNT IN COLUMN 90 AND SHOULD NOT BE
PRECEEDED WITH ANY KIND OF BANNER THAT SAYS ANYTHING ABOUT
THIS SHOULD NOT SHOW UP.  THIS IS SECTION 5
THIS SECTION SHOULD ALSO HAVE COUNT IN COLUMN 90 AND SHOULD NOT BE
PRECEEDED WITH ANY KIND OF BANNER THAT SAYS ANYTHING ABOUT
THIS SHOULD NOT SHOW UP.  THIS IS SECTION 5
THIS SECTION SHOULD ALSO HAVE COUNT IN COLUMN 90 AND SHOULD NOT BE
PRECEEDED WITH ANY KIND OF BANNER THAT SAYS ANYTHING ABOUT
THIS SHOULD NOT SHOW UP.  THIS IS SECTION 5
THIS SECTION SHOULD ALSO HAVE COUNT IN COLUMN 90 AND SHOULD NOT BE
PRECEEDED WITH ANY KIND OF BANNER THAT SAYS ANYTHING ABOUT
THIS SHOULD NOT SHOW UP.  THIS IS SECTION 5
THIS SECTION SHOULD ALSO HAVE COUNT IN COLUMN 90 AND SHOULD NOT BE
PRECEEDED WITH ANY KIND OF BANNER THAT SAYS ANYTHING ABOUT
THIS SHOULD NOT SHOW UP.  THIS IS SECTION 5
THIS SECTION SHOULD ALSO HAVE COUNT IN COLUMN 90 AND SHOULD NOT BE
PRECEEDED WITH ANY KIND OF BANNER THAT SAYS ANYTHING ABOUT
THIS SHOULD NOT SHOW UP.  THIS IS SECTION 5
THIS SECTION SHOULD ALSO HAVE COUNT IN COLUMN 90 AND SHOULD NOT BE
PRECEEDED WITH ANY KIND OF BANNER THAT SAYS ANYTHING ABOUT
THIS SHOULD NOT SHOW UP.  THIS IS SECTION 5
THIS SECTION SHOULD ALSO HAVE COUNT IN COLUMN 90 AND SHOULD NOT BE
PRECEEDED WITH ANY KIND OF BANNER THAT SAYS ANYTHING ABOUT
THIS SHOULD NOT SHOW UP.  THIS IS SECTION 5
THIS SECTION SHOULD ALSO HAVE COUNT IN COLUMN 90 AND SHOULD NOT BE
PRECEEDED WITH ANY KIND OF BANNER THAT SAYS ANYTHING ABOUT
THIS SHOULD NOT SHOW UP.  THIS IS SECTION 5
THIS SECTION SHOULD ALSO HAVE COUNT IN COLUMN 90 AND SHOULD NOT BE
PRECEEDED WITH ANY KIND OF BANNER THAT SAYS ANYTHING ABOUT
THIS SHOULD NOT SHOW UP.  THIS IS SECTION 5
THIS SECTION SHOULD ALSO HAVE COUNT IN COLUMN 90 AND SHOULD NOT BE
PRECEEDED WITH ANY KIND OF BANNER THAT SAYS ANYTHING ABOUT
THIS SHOULD NOT SHOW UP.  THIS IS SECTION 5
THIS SECTION SHOULD ALSO HAVE COUNT IN COLUMN 90 AND SHOULD NOT BE
PRECEEDED WITH ANY KIND OF BANNER THAT SAYS ANYTHING ABOUT
THIS SHOULD NOT SHOW UP.  THIS IS SECTION 5
   THIS IS THE LAST LINE OF SECTION 5
!EOD
!EOD
!STEP  NE,0
!MESSAGE *****GALDEV05 ABORTING AND SHOULDN'T *****
!JOB C7308398,CPV000003121(GALDEV06),7.CA00.MULTIPLE STREAM BUFFER MANAGEMENT
!MESSAGE  **THIS JOB(GALDEV06) RUNS PROPERLY ONLY **
!MESSAGE  ** IF THE SYSGEN HAS PROPER SET OF STREAMS
!PCL
COPY CR OVER X
I AM A GOOD STREAM
!EOD
!EOD
COPY CR OVER Y
***I DO AS I'M TOLD***
!EOD
!EOD
COPY CR OVER Z
I AM A BAD STREAM
I SHOULD DISAPPEAR BUT I DON'T
!EOD
!EOD
!LDEV L5,(DEV,LP),(FORM,11L5)
!LDEV P1,(DEV,LP),(FORM,11P1)
!LDEV L1,(DEV,LP),(FORM,11L1)
!LDEV C3,(DEV,LP),(FORM,11C3)
!LDEV L7,(DEV,LP),(FORM,11L7)
!LDEV L8,(DEV,LP),(FORM,11L8)
!PCL
COPY X,X,Y TO P1
COPY Z TO L7
COPY Z TO L1
COPY X,X,Y TO L5
COPY Z TO C3
COPY X,X,Y TO L8
END
!LDEV L1,(DELETE),(AREL)
!LDEV C3,(DELETE),(AREL)
!LDEV P2,(DEV,LP),(FORM,11P2)
!LDEV L9,(DEV,LP),(FORM,11L9)
!PCL
COPY Z TO P2
COPY X,X,Y TO L9
END
!LDEV P3,(DEV,LP),(FORM,11P3)
!LDEV C2,(DEV,LP),(FORM,11C2)
!LDEV L2,(DEV,LP),(FORM,11L2)
!LDEV L4,(DEV,LP),(FORM,11L4)
!LDEV L3,(DEV,LP),(FORM,11L3)
!LDEV L6,(DEV,LP),(FORM,11L6)
!PCL
COPY X,X,Y TO L6
COPY Z TO L3
COPY Z TO P3
COPY Z TO L4
COPY X,X,Y TO C2
COPY X,X,Y TO L2
END
!LDEV P2,(DELETE),(AREL)
!LDEV L7,(DELETE)
!LDEV P3,(DELETE),(AREL)
!LDEV L4,(DELETE),(AREL)
!LDEV L3,(DELETE),(AREL)
!LDEV C3,(FORM,22C3),(DEV,CR),(IN)
!LDEV L7,(FORM,22L7)
!LDEV P2,(FORM,22P2),(DEV,CR),(IN)
!LDEV P3,(FORM,22P3),(DEV,CR),(IN)
!LDEV L4,(FORM,22L4)
!LDEV L3,(FORM,22L3)
!MESSAGE **(GALDEV06) REMEMBER TO DISP OC LATER **
!PCL
DELETE X,Y,Z
END
!STEP  NE,0
!MESSAGE  *****GALDEV06 ABORTING AND SHOULDN'T *****
!JOB C7308398,CPV000003121(GALDEV07),7.CA00.LDEV SEQ OPTION (PUNCH OUTPUT)
!TITLE  *TEST LDEV SEQ OPTION*
!MESSAGE **(GALDEV07) THIS JOB WORKS PROPERLY ONLY
!MESSAGE ** SYSTEM HAS SYSGENED WORKING CARD PUNCH
!LDEV P1,(DEV,CP),(SEQ,AOK)
!PCL
COPY CR TO CP
        ***HELP, HELP***
I'M CAUGHT IN A PUNCH STREAM
AND I MIGHT DROWN
ESPECIALLY IF COLUMMS 73-75 OF THESE CARDS ARE NOT
 SEQUENCED 0001 THRU 0004 WITH ID OF AOK. AND 3 !EOD CARDS.
!EOD
!EOD
!ASSIGN M:SI,(FILE,DEV07SI),(SAVE)
!METASYM SI,LO,GO
!LOAD  (GO),(MAP),(SL,4),(LMN,GALDEV07),(PERM)
!LDEV  P1,(SEQ)
!RUN   (LMN,GALDEV07)
!LDEV P1,(SEQ,AOK)
!RUN  (LMN,GALDEV07)
!ASSIGN M:EO,(SEQ)
!RUN  (LMN,GALDEV07)
!ASSIGN M:EO,(SEQ,DCB)
!RUN  (LMN,GALDEV07)
!STEP  NE,0
!MESSAGE ** GALDEV07 ABORTING AND SHOULDN'T**
!JOB C7308398,CPV000003121(GALDEV08),7.CA00.ILLEGAL FUNCTION
!MESSAGE (GALDEV08) THIS WORKS PROPERLY ONLY ON
!MESSAGE (GALDEV08) PROPERLY SYSGENED SYSTEM AND
!MESSAGE (GALDEV08) SHOULD ABORT
!LDEV C2,(DEV,CP),(IN)
!STEP EQ,0
!MESSAGE **(GALDEV08) JOB DIDN'T ABORT AND SHOULD*
!STEP NE,0
!MESSAGE **(GALDEV08) ABORTING PROPERLY**
!JOB C7308398,CPV000003121(GALDEV09),7.CA00.LDEV TO C1 (ILLEGAL)
!MESSAGE THIS JOB SHOULD ABORT ON THE LDEV COMMAND***
!LDEV C1,(DEV,LP)
!STEP EQ,0
!MESSAGE  *****GALDEV09 DIDN'T ABORT *****
!STEP  NE,0
!MESSAGE  *****GALDEV09 ABORTING *****.
!JOB C7308398,CPV000003121(GALDEV10),7.CA00.ILLEGAL WORK STATION
!MESSAGE THIS JOB SHOULD ABORT ON THE LDEV COMMAND***
!LDEV L1,(DEV,LP),(WSN,BADN),(OUT)
!STEP EQ,0
!MESSAGE  *****GALDEV10 DIDN'T ABORT *****
!STEP  NE,0
!MESSAGE  *****GALDEV10 ABORTING *****.
!JOB C7308398,CPV000003121(GALDEV11),7.CA00.BAD STREAM NAME
!MESSAGE THIS JOB SHOULD ABORT ON THE LDEV COMMAND***
!LDEV OP,(DEV,LP),(OUT)
!STEP EQ,0
!STEP  NE,0
!MESSAGE  *****GALDEV11 ABORTING *****.
!JOB C7308398,CPV000003121(GALDEV12),7.CA00.BAD DEVICE SPECIFICATION
!MESSAGE THIS JOB SHOULD ABORT ON THE LDEV COMMAND***
!LDEV  L1,(DEV,XY),(IN)
!STEP EQ,0
!MESSAGE  *****GALDEV12 DIDN'T ABORT *****
!STEP  NE,0
!MESSAGE  *****GALDEV12 ABORTING *****.
!JOB C7308398,CPV000003121(GALDEV13),7.CA00.M:DEVICE FORM/LDEV INTERFACE
!LDEV L1,(FORM,DUMY)
!TITLE  ***M:DEVICE FORM...EXERCISE FNAME OPTION***
!METASYM SI,LO,GO
         SYSTEM   SIG7
         SYSTEM   BPM
         REF      M:LO
ST       M:PRINT  (MESS,PREMSG)
         M:DEVICE M:LO,(FORM,FMSG),(FNAME,'FFFF')
         M:PRINT  (MESS,POSTMSG)
         M:EXIT
PREMSG   TEXTC    'HOLD ON GANG,  WERE GONNA DO A FORMS CHANGE...'
FMSG     TEXTC    'THIS IS AN ERROR...RETURN NAME XXXX'
POSTMSG  TEXTC    'NOW BUILDING PRINTER FILE WITH FORM NAME "FFFF".'
         END      ST
!LOAD (GO),(MAP),(NOSYSLIB),(LMN,LMNGA13)
!RUN
!PMDE (00),(01)
!TITLE  ***M:DEVICE FORM...EXERCISE OPERATOR MESSAGE***
!METASYM SI,LO,GO
         SYSTEM   SIG7
         SYSTEM   BPM
         REF      M:LO
ST       M:PRINT  (MESS,PREMSG)
         M:DEVICE M:LO,(FORM,FMSG)
         M:PRINT  (MESS,POSTMSG)
         M:EXIT
PREMSG   TEXTC    'HOLD ON GANG,  WERE GONNA DO A FORMS CHANGE...'
FMSG     TEXTC    'CHANGE TO PRINTER FORM MMMM'
POSTMSG  TEXTC    'NOW BUILDING PRINTER FILE WITH FORM NAME "MMMM".'
         END      ST
!LOAD (GO),(MAP),(NOSYSLIB),(LMN,GALDEV13)
!RUN   (LMN,GALDEV13)
!PMDE (00),(01)
!LDEV L1,(DEV,LP),(FFORM,LLLL)
!TITLE    *M:DEVICE FORM...CHECK PRIORITY OF CONTEXT FFORM OVER OPTIONS*
!RUN   (LMN,GALDEV13)
!PMDE (00),(01)
!STEP  NE,0
!MESSAGE  ***** GALDEV13 ABORTING AND SHOULDN'T *****
!JOB :SYS,LBE(GALDEV14),7.CA00.SET UP AUTHORIZATION
!TITLE *TEST LDEV PERIPHERAL DEVICE AUTHORIZATION,PART I*
!MESSAGE (GALDEV14) JOBS GALDEV14 THRU GALDEV 16 WORK
!MESSAGE (GALDEV14) PROPERLY ONLY IF SYTEM HAS SYSGENED
!MESSAGE (GALDEV14) CARD PUNCH.
!SUPER
CREATE GALDCF,ME
 BPCP=N
 BPCR=Y
 BPLP=Y
LIST GALDCF,ME
 ALL
END
!STEP  NE,0
!MESSAGE  *****GALDEV14 ABORTING AND SHOULDN'T *****
!JOB GALDCF,ME(GALDEV15),7.CA00.OPEN TO UNAUTHORIZED LOGICAL DEVICE
!RUN (LMN,SUPERCLS,C7308398)
!TITLE  *TEST PERIPHERAL DEVICE AUTHORIZATION, PART II*
!MESSAGE  THIS JOB SHOULD ABORT WITH I/O ERROR 48-00***
!PCL
COPY UTS.:SYS TO CP
END
!STEP EQ,0
!MESSAGE (GALDEV15) DIDN'T ABORT AND SHOULD HAVE**
!STEP  NE,0
!MESSAGE  *****GALDEV15 ABORTING AND PROPERLY *****
!JOB GALDCF,ME(GALDEV16),7.CA00.LDEV TO UNAUTHORIZED LOGICAL DEVICE
!TITLE   *TEST PERIPHERAL DEVICE AUTHORIZATION, PART III*
!MESSAGE THIS JOB SHOULD ABORT ON LDEV COMMAND***
!LDEV L2,(DEV,CP),(OUT)
!PCL
COPY CR TO L2
THIS SHOULD NEVER BE ACCESSED
AS WE SHOULD HAVE QUIT BY NOW.
!EOD
!EOD
!STEP EQ,0
!MESSAGE (GALDEV16) DIDN'T ABORT AND SHOULD HAVE**
!STEP  NE,0
!MESSAGE  *****GALDEV16 ABORTING AND PROPERLY *****
!JOB C7308398,CPV000003121(GALDEV17),7.CA00.LDEV WITH NO STREAM
!MESSAGE ** THIS JOB SHOULD ABORT **
!LDEV             . NO STREAM ID
!STEP EQ,0
!MESSAGE  *****GALDEV17 DIDN'T ABORT *****
!STEP NE,0
!MESSAGE  *****GALDEV17 ABORTED *****
!JOB C7308398,CPV000003121(GALDEV18),7.CA00.LDEV WITH UNRECOGNIZED STREAM
!MESSAGE ** THIS JOB SHOULD ABORT **
!LDEV L1          . OK
!LDEV TOOBIG      . ILLEGAL STREAM ID
!STEP EQ,0
!MESSAGE  *****GALDEV18 DIDN'T ABORT *****
!STEP NE,0
!MESSAGE  *****GALDEV18 ABORTED *****
!JOB C7308398,CPV000003121(GALDEV19),7.CA00.LDEV WITH UNRECOGNIZED KEY WORD
!MESSAGE ** THIS JOB SHOULD ABORT **
!LDEV L1,(T)      . OK
!LDEV L1,(T),(NONESUCH)
!STEP EQ,0
!MESSAGE  *****GALDEV19 DIDN'T ABORT *****
!STEP NE,0
!MESSAGE  *****GALDEV19 ABORTED *****
!JOB C7308398,CPV000003121(GALDEV20),7.CA00.LDEV WITH ILLEGAL VALUE
!MESSAGE ** THIS JOB SHOULD ABORT **
!LDEV L1,(T),(COPIES,500)           .  TOO BIG
!STEP EQ,0
!MESSAGE  *****GALDEV20 DIDN'T ABORT *****
!STEP NE,0
!MESSAGE  *****GALDEV20 ABORTED *****
!JOB C7308398,CPV000003121(GALDEV21),7.CA00.LDEV WITH ILLEGAL VALUE
!MESSAGE ** THIS JOB SHOULD ABORT **
!LDEV L1,(T),(FORM,TOOBIG)
!STEP EQ,0
!MESSAGE  *****GALDEV21 DIDN'T ABORT *****
!STEP NE,0
!MESSAGE  *****GALDEV21 ABORTED *****
!JOB C7308398,CPV000003121(GALDEV22),7.CA00.LDEV WITH UNRECOGNIZED WORK STATION
!MESSAGE ** THIS JOB SHOULD ABORT **
!LDEV L1,(WSN,NONESUCH)             .NO WSN RECORD
!STEP EQ,0
!MESSAGE  *****GALDEV22 DIDN'T ABORT *****
!STEP NE,0
!MESSAGE  *****GALDEV22 ABORTED *****
!JOB :SYS,LBE(GALDEV23SU),7.CA00.AUTHORIZE WORKSTATION
!SUPER
WORKSTATION  LDEVTEST
 TYPE=STND
END
!JOB C7308398,CPV000003121(GALDEV23),7.CA00.LDEV WITH WSN AND NO DEVICE
!MESSAGE ** THIS JOB SHOULD ABORT **
!LDEV L1,(WSN,LDEVTEST).            . NO DEVICE
!STEP EQ,0
!MESSAGE  *****GALDEV23 DIDN'T ABORT *****
!STEP NE,0
!MESSAGE  *****GALDEV23 ABORTED *****
!JOB :SYS,LBE(GALDEV24),7.CA00.REMOVE WSN AUTHORIZATION. LDEV WITH BAD CHAR.
     zY
!LDEV L1,(WSN,LDEVTEST),(DEV,LP),(T)    .OK
!SUPER
X LDEVTEST
END
!MESSAGE  ** THIS JOB SHOULD ABORT **
!LDEV L1,(T),(COPIES,B)             .ILLEGAL VALUE
!STEP EQ,0
!MESSAGE  *****GALDEV24 DIDN'T ABORT *****
!STEP NE,0
!MESSAGE  *****GALDEV24 ABORTED *****

