// JOB   ADD1KCOS                                                       PRP00010
// WRTBIG 'JOB$'                                                        PRP00020
// COS1KADD                                                             PRP00030
/&                                                                      PRP00040
